42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
(*
|
|
Module: Test_Apt_Update_Manager
|
|
Provides unit tests and examples for the <Apt_Update_Manager> lens.
|
|
*)
|
|
module Test_Apt_Update_Manager =
|
|
|
|
(* Variable: meta_release *)
|
|
let meta_release = "# default location for the meta-release file
|
|
|
|
[METARELEASE]
|
|
URI = http://changelogs.ubuntu.com/meta-release
|
|
URI_LTS = http://changelogs.ubuntu.com/meta-release-lts
|
|
URI_UNSTABLE_POSTFIX = -development
|
|
URI_PROPOSED_POSTFIX = -proposed
|
|
"
|
|
|
|
(* Test: Apt_Update_Manager.lns *)
|
|
test Apt_Update_Manager.lns get meta_release =
|
|
{ "#comment" = "default location for the meta-release file" }
|
|
{ }
|
|
{ "METARELEASE"
|
|
{ "URI" = "http://changelogs.ubuntu.com/meta-release" }
|
|
{ "URI_LTS" = "http://changelogs.ubuntu.com/meta-release-lts" }
|
|
{ "URI_UNSTABLE_POSTFIX" = "-development" }
|
|
{ "URI_PROPOSED_POSTFIX" = "-proposed" }
|
|
}
|
|
|
|
(* Variable: release_upgrades *)
|
|
let release_upgrades = "# Default behavior for the release upgrader.
|
|
|
|
[DEFAULT]
|
|
Prompt=lts
|
|
"
|
|
|
|
(* Test: Apt_Update_Manager.lns *)
|
|
test Apt_Update_Manager.lns get release_upgrades =
|
|
{ "#comment" = "Default behavior for the release upgrader." }
|
|
{ }
|
|
{ "DEFAULT"
|
|
{ "Prompt" = "lts" }
|
|
}
|