module Test_debctrl =

 let source = "Source: libtest-distmanifest-perl\n"

 let source_result =   { "Source" = "libtest-distmanifest-perl" }

 test (Debctrl.simple_entry Debctrl.simple_src_keyword ) get source =

    source_result

 test (Debctrl.simple_entry Debctrl.simple_src_keyword ) get 

  "Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>\n"

   = {  "Maintainer" = "Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>"

     }

 let uploaders 

   = "Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n"

   . "  gregor herrmann <gregoa@xxx.yy>\n"

 let uploaders_result =

    { "Uploaders"

       { "1" = "foo@bar"}

       { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" }

       { "3" = "gregor herrmann <gregoa@xxx.yy>" } }

 test Debctrl.uploaders get uploaders = uploaders_result

(* test package dependencies *)

test Debctrl.version_depends get "( >= 5.8.8-12 )" = 

   { "version" { "relation"  = ">=" } { "number"  = "5.8.8-12" } }

test Debctrl.arch_depends get "[ !hurd-i386]" = 

   { "arch" { "prefix"  = "!" } { "name"  = "hurd-i386" } }

test Debctrl.arch_depends get "[ hurd-i386]" = 

   { "arch" { "prefix"  = "" } { "name"  = "hurd-i386" } }

let p_depends_test = "perl ( >= 5.8.8-12 ) [ !hurd-i386]"

test Debctrl.package_depends get p_depends_test =

   { "perl"

       { "version"

                   { "relation"  = ">=" }

                   { "number"  = "5.8.8-12" } }

       { "arch" { "prefix"  = "!" } { "name"  = "hurd-i386" } } }

let dependency_test = "perl-modules (>= 5.10) | libmodule-build-perl"

test Debctrl.dependency get dependency_test = 

   { "or" { "perl-modules" 

                { "version" { "relation"  = ">=" } 

                            { "number"  = "5.10" } } } }

   { "or" { "libmodule-build-perl" } }

test (Debctrl.dependency_list "Build-Depends-Indep") get 

  "Build-Depends-Indep: perl (>= 5.8.8-12) [ !hurd-i386], \n"

  . "   perl-modules (>= 5.10) | libmodule-build-perl,\n"

  . "   libcarp-assert-more-perl,\n"

  . "   libconfig-tiny-perl\n"

  = { "Build-Depends-Indep"

       { "and" { "or" { "perl" 

                        { "version"

                          { "relation"  = ">=" }

                          { "number"  = "5.8.8-12" } }

                        { "arch" 

                          { "prefix"  = "!" } 

                          { "name"  = "hurd-i386" } } } } }

       { "and" { "or" { "perl-modules" 

                        { "version" { "relation"  = ">=" }  

                                    { "number"  = "5.10" } } } }

               { "or" { "libmodule-build-perl" } } }

       { "and" { "or" { "libcarp-assert-more-perl" } } }

       { "and" { "or" { "libconfig-tiny-perl" } } } }

test (Debctrl.dependency_list "Depends") get 

  "Depends: ${perl:Depends}, ${misc:Depends},\n"

  ." libparse-recdescent-perl (>= 1.90.0)\n"

  = { "Depends"

       {  "and" { "or" { "${perl:Depends}" }} }

       {  "and" { "or" { "${misc:Depends}" }} }

       {  "and" { "or" { "libparse-recdescent-perl"  

                         { "version"

                           { "relation"  = ">=" }

                           { "number"  = "1.90.0" } } } } }

    } 

 let description = "Description: describe and edit configuration data\n"

 ." Config::Model enables [...] must:\n"

 ."    - if the configuration data\n"

 ." .\n"

 ." With the elements above, (...) on ReadLine.\n"

 test Debctrl.description get description = 

  { "Description" 

    { "summary" = "describe and edit configuration data" }

    { "text" = "Config::Model enables [...] must:" }

    { "text" = "   - if the configuration data" }

    { "text" = "." }            

    { "text" = "With the elements above, (...) on ReadLine."} }

 let simple_bin_pkg1 = "Package: libconfig-model-perl\n"

     . "Architecture: all\n"

     . "Description: dummy1\n"

     . " dummy text 1\n"

 let simple_bin_pkg2 = "Package: libconfig-model2-perl\n"

     . "Architecture: all\n"

     . "Description: dummy2\n"

     . " dummy text 2\n"

 test Debctrl.src_entries get source.uploaders 

 =  { "Source" = "libtest-distmanifest-perl" }

                { "Uploaders"

                  { "1" = "foo@bar"}

                  { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" }

                  { "3" = "gregor herrmann <gregoa@xxx.yy>" } }

 test Debctrl.bin_entries get simple_bin_pkg1 = 

  { "Package" = "libconfig-model-perl" }

  { "Architecture" = "all" } 

  { "Description" { "summary" = "dummy1" } {"text" = "dummy text 1" } }

 let paragraph_simple = source . uploaders ."\n" 

       . simple_bin_pkg1 . "\n" 

       . simple_bin_pkg2 

 test Debctrl.lns get paragraph_simple =

   { "srcpkg"   { "Source" = "libtest-distmanifest-perl" }

                { "Uploaders"

                  { "1" = "foo@bar"}

                  { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" }

                  { "3" = "gregor herrmann <gregoa@xxx.yy>" } } }

   { "binpkg" { "Package" = "libconfig-model-perl" }

                    { "Architecture" = "all" } 

                    { "Description" { "summary" = "dummy1" } 

                                    { "text" = "dummy text 1" } } }

   { "binpkg" { "Package" = "libconfig-model2-perl" }

                    { "Architecture" = "all" } 

		    { "Description" { "summary" = "dummy2" } 

                                    { "text" = "dummy text 2" } } } 

(* PUT TESTS *)

test Debctrl.src_entries

     put uploaders  

     after set "/Uploaders/1" "foo@bar"

   =  uploaders

test Debctrl.src_entries

     put uploaders  

  after set "/Uploaders/1" "bar@bar" 

 =  "Uploaders: bar@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n"

   . "  gregor herrmann <gregoa@xxx.yy>\n"

test Debctrl.src_entries

     put uploaders  

     after set "/Uploaders/4" "baz@bar"

   =  "Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n"

   . "  gregor herrmann <gregoa@xxx.yy>,\n"

   . " baz@bar\n"

test Debctrl.lns put (source."\nPackage: test\nDescription: foobar\n")

  after

  set "/srcpkg/Uploaders/1" "foo@bar" ;

  set "/srcpkg/Uploaders/2" "Dominique Dumont <dominique.dumont@xx.yyy>" ;

  set "/srcpkg/Uploaders/3" "gregor herrmann <gregoa@xxx.yy>" ;

  set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/version/relation" ">=" ;

  set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/version/number" "5.8.8-12" ;

  set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/arch/prefix" "!" ;

  set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/arch/name" "hurd-i386" ;

  set "/srcpkg/Build-Depends-Indep/and[2]/or[1]/perl-modules/version/relation" ">=" ;

  set "/srcpkg/Build-Depends-Indep/and[2]/or[1]/perl-modules/version/number" "5.10" ;

  set "/srcpkg/Build-Depends-Indep/and[2]/or[2]/libmodule-build-perl" "";

  set "/srcpkg/Build-Depends-Indep/and[3]/or/libcarp-assert-more-perl" "" ;

  set "/srcpkg/Build-Depends-Indep/and[4]/or/libconfig-tiny-perl" "" ;

  set "/binpkg[1]/Package" "libconfig-model-perl"  ; 

  (* must remove description because set cannot insert Archi before description *)

  rm  "/binpkg[1]/Description" ;

  set "/binpkg/Architecture" "all"  ;

  set "/binpkg[1]/Description/summary" "dummy1" ;

  set "/binpkg[1]/Description/text" "dummy text 1" ;

  set "/binpkg[2]/Package" "libconfig-model2-perl" ;

  set "/binpkg[2]/Architecture" "all" ;

  set "/binpkg[2]/Description/summary" "dummy2" ;

  set "/binpkg[2]/Description/text" "dummy text 2" 

  =  

"Source: libtest-distmanifest-perl

Uploaders: foo@bar,

 Dominique Dumont <dominique.dumont@xx.yyy>,

 gregor herrmann <gregoa@xxx.yy>

Build-Depends-Indep: perl ( >= 5.8.8-12 ) [ !hurd-i386 ],

 perl-modules ( >= 5.10 ) | libmodule-build-perl,

 libcarp-assert-more-perl,

 libconfig-tiny-perl

Package: libconfig-model-perl

Architecture: all

Description: dummy1

 dummy text 1

Package: libconfig-model2-perl

Architecture: all

Description: dummy2

 dummy text 2

"

(* Test Augeas' own control file *)

let augeas_control = "Source: augeas

Priority: optional

Maintainer: Nicolas Valcárcel Scerpella (Canonical) <nicolas.valcarcel@canonical.com>

Uploaders: Free Ekanayaka <freee@debian.org>, Micah Anderson <micah@debian.org>

Build-Depends: debhelper (>= 5), autotools-dev, libreadline-dev, chrpath,

 naturaldocs (>= 1.51-1), texlive-latex-base

Standards-Version: 3.9.2

Section: libs

Homepage: http://augeas.net/

DM-Upload-Allowed: yes

Package: augeas-tools

Section: admin

Architecture: any

Depends: ${shlibs:Depends}, ${misc:Depends}

Description: Augeas command line tools

 Augeas is a configuration editing tool. It parses configuration files in their

 native formats and transforms them into a tree. Configuration changes are made

 by manipulating this tree and saving it back into native config files.

 .

 This package provides command line tools based on libaugeas0:

 - augtool, a tool to manage configuration files.

 - augparse, a testing and debugging tool for augeas lenses.

Package: libaugeas-dev

Section: libdevel

Architecture: any

Depends: libaugeas0 (= ${binary:Version}), ${shlibs:Depends}, ${misc:Depends}

Description: Development files for writing applications based on libaugeas0

 Augeas is a configuration editing tool. It parses configuration files in their

 native formats and transforms them into a tree. Configuration changes are made

 by manipulating this tree and saving it back into native config files.

 .

 This package includes the development files to write programs using the Augeas

 API.

"

test DebCtrl.lns get augeas_control =

  { "srcpkg"

    { "Source" = "augeas" }

    { "Priority" = "optional" }

    { "Maintainer" = "Nicolas Valcárcel Scerpella (Canonical) <nicolas.valcarcel@canonical.com>" }

    { "Uploaders"

      { "1" = "Free Ekanayaka <freee@debian.org>" }

      { "2" = "Micah Anderson <micah@debian.org>" }

    }

    { "Build-Depends"

      { "and"

        { "or"

          { "debhelper"

            { "version"

              { "relation" = ">=" }

              { "number" = "5" }

            }

          }

        }

      }

      { "and"

        { "or"

          { "autotools-dev" }

        }

      }

      { "and"

        { "or"

          { "libreadline-dev" }

        }

      }

      { "and"

        { "or"

          { "chrpath" }

        }

      }

      { "and"

        { "or"

          { "naturaldocs"

            { "version"

              { "relation" = ">=" }

              { "number" = "1.51-1" }

            }

          }

        }

      }

      { "and"

        { "or"

          { "texlive-latex-base" }

        }

      }

    }

    { "Standards-Version" = "3.9.2" }

    { "Section" = "libs" }

    { "Homepage" = "http://augeas.net/" }

    { "DM-Upload-Allowed" = "yes" }

  }

  { "binpkg"

    { "Package" = "augeas-tools" }

    { "Section" = "admin" }

    { "Architecture" = "any" }

    { "Depends"

      { "and"

        { "or"

          { "${shlibs:Depends}" }

        }

      }

      { "and"

        { "or"

          { "${misc:Depends}" }

        }

      }

    }

    { "Description"

      { "summary" = "Augeas command line tools" }

      { "text" = "Augeas is a configuration editing tool. It parses configuration files in their" }

      { "text" = "native formats and transforms them into a tree. Configuration changes are made" }

      { "text" = "by manipulating this tree and saving it back into native config files." }

      { "text" = "." }

      { "text" = "This package provides command line tools based on libaugeas0:" }

      { "text" = "- augtool, a tool to manage configuration files." }

      { "text" = "- augparse, a testing and debugging tool for augeas lenses." }

    }

  }

  { "binpkg"

    { "Package" = "libaugeas-dev" }

    { "Section" = "libdevel" }

    { "Architecture" = "any" }

    { "Depends"

      { "and"

        { "or"

          { "libaugeas0"

            { "version"

              { "relation" = "=" }

              { "number" = "${binary:Version}" }

            }

          }

        }

      }

      { "and"

        { "or"

          { "${shlibs:Depends}" }

        }

      }

      { "and"

        { "or"

          { "${misc:Depends}" }

        }

      }

    }

    { "Description"

      { "summary" = "Development files for writing applications based on libaugeas0" }

      { "text" = "Augeas is a configuration editing tool. It parses configuration files in their" }

      { "text" = "native formats and transforms them into a tree. Configuration changes are made" }

      { "text" = "by manipulating this tree and saving it back into native config files." }

      { "text" = "." }

      { "text" = "This package includes the development files to write programs using the Augeas" }

      { "text" = "API." }

    }

  }

(* Bug #267: Python module extensions, from Debian Python Policy, chapter 2 *)

let python_control = "Source: graphite-web

Maintainer: Will Pearson (Editure Key) <wpearson@editure.co.uk>

Section: python

Priority: optional

Build-Depends: debhelper (>= 7), python-support (>= 0.8.4)

Standards-Version: 3.7.2

XS-Python-Version: current

Package: python-graphite-web

Architecture: all

Depends: ${python:Depends}

XB-Python-Version: ${python:Versions}

Provides: ${python:Provides}

Description: Enterprise scalable realtime graphing

"

test Debctrl.lns get python_control =

  { "srcpkg"

    { "Source" = "graphite-web" }

    { "Maintainer" = "Will Pearson (Editure Key) <wpearson@editure.co.uk>" }

    { "Section" = "python" }

    { "Priority" = "optional" }

    { "Build-Depends"

      { "and"

        { "or"

          { "debhelper"

            { "version"

              { "relation" = ">=" }

              { "number" = "7" }

            }

          }

        }

      }

      { "and"

        { "or"

          { "python-support"

            { "version"

              { "relation" = ">=" }

              { "number" = "0.8.4" }

            }

          }

        }

      }

    }

    { "Standards-Version" = "3.7.2" }

    { "XS-Python-Version" = "current" }

  }

  { "binpkg"

    { "Package" = "python-graphite-web" }

    { "Architecture" = "all" }

    { "Depends"

      { "and"

        { "or"

          { "${python:Depends}" }

        }

      }

    }

    { "XB-Python-Version" = "${python:Versions}" }

    { "Provides"

      { "and"

        { "or"

          { "${python:Provides}" }

        }

      }

    }

    { "Description"

      { "summary" = "Enterprise scalable realtime graphing" }

    }

  }