lenses/tests/test_apt_update_manager.aug

   1 (*
   2 Module: Test_Apt_Update_Manager
   3   Provides unit tests and examples for the <Apt_Update_Manager> lens.
   4 *)
   5 module Test_Apt_Update_Manager =
   6
   7 (* Variable: meta_release *)
   8 let meta_release = "# default location for the meta-release file
   9
  10 [METARELEASE]
  11 URI = http://changelogs.ubuntu.com/meta-release
  12 URI_LTS = http://changelogs.ubuntu.com/meta-release-lts
  13 URI_UNSTABLE_POSTFIX = -development
  14 URI_PROPOSED_POSTFIX = -proposed
  15 "
  16
  17 (* Test: Apt_Update_Manager.lns *)
  18 test Apt_Update_Manager.lns get meta_release =
  19   { "#comment" = "default location for the meta-release file" }
  20   {  }
  21   { "METARELEASE"
  22     { "URI" = "http://changelogs.ubuntu.com/meta-release" }
  23     { "URI_LTS" = "http://changelogs.ubuntu.com/meta-release-lts" }
  24     { "URI_UNSTABLE_POSTFIX" = "-development" }
  25     { "URI_PROPOSED_POSTFIX" = "-proposed" }
  26   }
  27
  28 (* Variable: release_upgrades *)
  29 let release_upgrades = "# Default behavior for the release upgrader.
  30
  31 [DEFAULT]
  32 Prompt=lts
  33 "
  34
  35 (* Test: Apt_Update_Manager.lns *)
  36 test Apt_Update_Manager.lns get release_upgrades =
  37   { "#comment" = "Default behavior for the release upgrader." }
  38   {  }
  39   { "DEFAULT"
  40     { "Prompt" = "lts" }
  41   }