Tryag File Manager

//usr/share/augeas/lenses/dist/tests/test_aptpreferences.aug

module Test_aptpreferences =

let conf ="Explanation: Backport packages are never prioritary
Package: *
Pin: release a=backports
Pin-Priority: 100

# This is a comment
Explanation: My packages are the most prioritary
Package: *
Pin: release l=Raphink, v=3.0
Pin-Priority: 700

Package: liferea-data
Pin: version 1.4.26-4
Pin-Priority: 600

Package: *
Pin: origin packages.linuxmint.com
Pin-Priority: 700
"

test AptPreferences.lns get conf =
       { "1"
          { "Explanation"  = "Backport packages are never prioritary" }
          { "Package"      = "*" }
          { "Pin"          = "release"
              { "a" = "backports" } }
          { "Pin-Priority" = "100" } }
       { "2"
          { "#comment"     = "This is a comment" }
          { "Explanation"  = "My packages are the most prioritary" }
          { "Package"      = "*" }
          { "Pin"          = "release"
              { "l" = "Raphink" }
              { "v" = "3.0"     } }
          { "Pin-Priority" = "700" } }
       { "3"
          { "Package"      = "liferea-data" }
          { "Pin"          = "version"
              { "version" = "1.4.26-4" } }
          { "Pin-Priority" = "600" } }
       { "4"
          { "Package"      = "*" }
          { "Pin"          = "origin"
              { "origin" = "packages.linuxmint.com" } }
          { "Pin-Priority" = "700" } }

(*************************************************************************)

test AptPreferences.lns put "\n" after
       set "/1/Package" "something-funny";
       set "/1/Pin" "version";
       set "/1/Pin/version" "1.2.3-4";
       set "/1/Pin-Priority" "2000"
    = "
Package: something-funny
Pin: version 1.2.3-4
Pin-Priority: 2000
"

(* Test: AptPreferences.pin
     Spaces in origins are valid *)
test AptPreferences.pin get "Pin: release o=Quantum GIS project\n" =
  { "Pin" = "release"
    { "o" = "Quantum GIS project" } }