435 lines
14 KiB
Plaintext
435 lines
14 KiB
Plaintext
|
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" }
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|