augeas-lenses 0.10.0-0ubuntu4 / usr / share / augeas / lenses / dist / tests / test_debctrl.aug

This file is indexed.

/usr/share/augeas/lenses/dist/tests/test_debctrl.aug is in augeas-lenses 0.10.0-0ubuntu4.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
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
"

APT Browse - Built by Thomas Orozco.