imported initial version of youri svn

7 files changed, 583 insertions, 0 deletions

diff --git a/t/00distribution.t b/t/00distribution.t
new file mode 100755
index 0000000..acdbe4e
--- /dev/null
+++ b/t/00distribution.t
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+# $Id: 00distribution.t 846 2006-04-04 22:08:02Z guillomovitch $
+
+use Test::More;
+
+BEGIN {
+    eval {
+        require Test::Distribution;
+    };
+    if($@) {
+        plan skip_all => 'Test::Distribution not installed';
+    } else {
+        import Test::Distribution only => [ qw/use pod description/ ];
+    }
+}
diff --git a/t/cowsay-3.03-11mdv2007.0.noarch.rpm b/t/cowsay-3.03-11mdv2007.0.noarch.rpm
new file mode 100644
index 0000000..fab8f9d
--- /dev/null
+++ b/t/cowsay-3.03-11mdv2007.0.noarch.rpm
diff --git a/t/gpghome/pubring.gpg b/t/gpghome/pubring.gpg
new file mode 100644
index 0000000..fcfc0e3
--- /dev/null
+++ b/t/gpghome/pubring.gpg
diff --git a/t/gpghome/secring.gpg b/t/gpghome/secring.gpg
new file mode 100644
index 0000000..9017e4d
--- /dev/null
+++ b/t/gpghome/secring.gpg
diff --git a/t/gpghome/trustdb.gpg b/t/gpghome/trustdb.gpg
new file mode 100644
index 0000000..30712a3
--- /dev/null
+++ b/t/gpghome/trustdb.gpg
diff --git a/t/package.t b/t/package.t
new file mode 100755
index 0000000..6a6d4b2
--- /dev/null
+++ b/t/package.t
@@ -0,0 +1,497 @@
+#!/usr/bin/perl
+# $Id: /local/youri/soft/trunk/t/version.t 2257 2006-07-05T09:22:47.088572Z guillaume  $
+
+use Test::More;
+use Test::Exception;
+use Youri::Utils;
+use File::Temp qw/tempdir/;
+use strict;
+
+my @classes = qw/
+    Youri::Package::URPM
+    Youri::Package::RPM4
+/;
+my $file = 't/cowsay-3.03-11mdv2007.0.noarch.rpm';
+my $fake_file = 'foobar.rpm';
+plan(tests => 36 * scalar @classes);
+
+foreach my $class (@classes) {
+    load($class);
+
+    # instanciation errors
+    dies_ok { $class->new(file => undef) } 'undefined file';
+    unlink $fake_file;
+    dies_ok { $class->new(file => $fake_file) } 'non-existant file';
+    system('touch', $fake_file);
+    chmod 0000, $fake_file;
+    dies_ok { $class->new(file => $fake_file) } 'non-readable file';
+    chmod 0644, $fake_file;
+    dies_ok { $class->new(file => $fake_file) } 'non-rpm file';
+
+    my $package = $class->new(file => $file);
+    isa_ok($package, $class);
+
+    # tag value access
+    is($package->get_name(), 'cowsay', 'get name directly');
+    is($package->get_tag('name'), 'cowsay', 'get name indirectly');
+    is($package->get_version(), '3.03', 'get version directly');
+    is($package->get_tag('version'), '3.03', 'get version indirectly');
+    is($package->get_release(), '11mdv2007.0', 'get release directly');
+    is($package->get_tag('release'), '11mdv2007.0', 'get release indirectly');
+    is($package->get_arch(), 'noarch', 'get arch directly');
+    is($package->get_tag('arch'), 'noarch', 'get arch indirectly');
+    is($package->get_summary(), 'Configurable talking cow', 'get summary directly');
+    is($package->get_tag('summary'), 'Configurable talking cow', 'get summary indirectly');
+    is($package->get_url(), 'http://www.nog.net/~tony/warez/cowsay.shtml', 'get url directly');
+    is($package->get_tag('url'), 'http://www.nog.net/~tony/warez/cowsay.shtml', 'get url indirectly');
+    is($package->get_packager(), 'Guillaume Rousse <guillomovitch@mandriva.org>', 'get packager directly');
+    is($package->get_tag('packager'), 'Guillaume Rousse <guillomovitch@mandriva.org>', 'get packager indirectly');
+
+    # name formating
+    is($package->get_revision_name(), 'cowsay-3.03-11mdv2007.0', 'revision name');
+    is($package->get_full_name(), 'cowsay-3.03-11mdv2007.0.noarch', 'full name');
+    is($package->get_file_name(), 'cowsay-3.03-11mdv2007.0.noarch.rpm', 'file name');
+    is($package, 'cowsay-3.03-11mdv2007.0.noarch', 'stringification');
+
+    # type
+    ok(!$package->is_source(), 'not a source package');
+    ok($package->is_binary(), 'a binary package');
+    is($package->get_type(), 'binary', 'a binary package');
+
+    # gpg key
+    is($package->get_gpg_key(), '26752624', 'get gpg key');
+
+    # dependencies
+    is_deeply(
+        [ $package->get_requires() ],
+        [
+            [ 'perl-base', undef ], 
+            [ 'perl(Cwd)', undef ],
+            [ 'perl(File::Basename)', undef ],
+            [ 'perl(Getopt::Std)', undef ],
+            [ 'perl(Text::Tabs)', undef ],
+            [ 'perl(Text::Wrap)', undef ]
+        ],
+        'requires'
+    );
+    is_deeply(
+        [ $package->get_provides() ],
+        [
+            [ 'cowsay', '== 3.03-11mdv2007.0']
+        ],
+        'provides'
+    );
+    is_deeply(
+        [ $package->get_obsoletes() ],
+        [ ],
+        'obsoletes'
+    );
+    is_deeply(
+        [ $package->get_conflicts() ],
+        [ ],
+        'conflicts'
+    );
+
+    # files
+    is_deeply(
+        [ $package->get_files() ],
+        [
+            [
+                '/etc/bash_completion.d/cowsay',
+                33188,
+                '6048be1dd827011c15cab0c3db1f438d'
+            ],
+            [
+                '/usr/bin/cowsay',
+                33261,
+                'b405026c6040eeb4781ca5c523129fe4'
+            ],
+            [
+                '/usr/bin/cowthink',
+                41471,
+                ''
+            ],
+            [
+                '/usr/share/cows',
+                16877,
+                ''
+            ],
+            [
+                '/usr/share/cows/beavis.zen.cow',
+                33188,
+                '582b2ddb72122d3aa078730abd0456b3'
+            ],
+            [
+                '/usr/share/cows/bong.cow',
+                33188,
+                '045f9bf39c027dded9a7145f619bac02'
+            ],
+            [
+                '/usr/share/cows/bud-frogs.cow',
+                33188,
+                '5c61632eb06305d613061882e1955cd2'
+            ],
+            [
+                '/usr/share/cows/bunny.cow',
+                33188,
+                '05eb914d3b96aea903542cb29f5c42c7'
+            ],
+            [
+                '/usr/share/cows/cheese.cow',
+                33188,
+                'f3618110a22d8e9ecde888c1f5e38b61'
+            ],
+            [
+                '/usr/share/cows/cower.cow',
+                33188,
+                'd73ea60eec692555a34a9f3eec981578'
+            ],
+            [
+                '/usr/share/cows/daemon.cow',
+                33188,
+                'a7dd7588ee0386a0f29e88e4881885ee'
+            ],
+            [
+                '/usr/share/cows/default.cow',
+                33188,
+                'f1206515a0f27e9d5cf09c188e46bc82'
+            ],
+            [
+                '/usr/share/cows/dragon-and-cow.cow',
+                33188,
+                '0ca99b8edd1a9d14fd231a88d9746b39'
+            ],
+            [
+                '/usr/share/cows/dragon.cow',
+                33188,
+                '448f736bf56dccafa2635e71e7485345'
+            ],
+            [
+                '/usr/share/cows/duck.cow',
+                33188,
+                'd8ffcd64667d2e3697a3e8b65e8bea9d'
+            ],
+            [
+                '/usr/share/cows/elephant-in-snake.cow',
+                33188,
+                'c5a9f406277e0e8a674bd3ffb503738f'
+            ],
+            [
+                '/usr/share/cows/elephant.cow',
+                33188,
+                'e355c72e893787376c047805d4a1fe9d'
+            ],
+            [
+                '/usr/share/cows/eyes.cow',
+                33188,
+                'b2eb5b612fae17877895aa6edafa0a5f'
+            ],
+            [
+                '/usr/share/cows/flaming-sheep.cow',
+                33188,
+                '3213cfa04a069f42d71115ca623a2f95'
+            ],
+            [
+                '/usr/share/cows/ghostbusters.cow',
+                33188,
+                'df294e6278bcb275aecb0fbd6b2546ba'
+            ],
+            [
+                '/usr/share/cows/girafe.cow',
+                33188,
+                '6d2e142313109b6a5a0a45dba0f11351'
+            ],
+            [
+                '/usr/share/cows/head-in.cow',
+                33188,
+                '365287a5d1f34a53f8716285e79c28df'
+            ],
+            [
+                '/usr/share/cows/hellokitty.cow',
+                33188,
+                'e0bbea69c4cbcfb3d799740ccc8a0b0e'
+            ],
+            [
+                '/usr/share/cows/kenny.cow',
+                33188,
+                '16ce8c334a7547197ac4c9e8a1d6ae90'
+            ],
+            [
+                '/usr/share/cows/kiss.cow',
+                33188,
+                '2a7bdd4a20741b7769af463bf09e64e8'
+            ],
+            [
+                '/usr/share/cows/kitty.cow',
+                33188,
+                '76d65a3ebfbacb16a654c1aa1af6ed27'
+            ],
+            [
+                '/usr/share/cows/koala.cow',
+                33188,
+                'cc524706707f32253dd06fc548334f11'
+            ],
+            [
+                '/usr/share/cows/kosh.cow',
+                33188,
+                'e4e28e0f472bd524fd1b44c67ae357c2'
+            ],
+            [
+                '/usr/share/cows/luke-koala.cow',
+                33188,
+                '63bbc35da73cd22b8cf25f86dcf9f870'
+            ],
+            [
+                '/usr/share/cows/mech-and-cow',
+                33188,
+                '12c0320b33704d8564dd97278d056204'
+            ],
+            [
+                '/usr/share/cows/meow.cow',
+                33188,
+                'a6092008647ed37cfe1663d10e388cbb'
+            ],
+            [
+                '/usr/share/cows/milk.cow',
+                33188,
+                'd26ac36e13e77dabb408e104fc8e0167'
+            ],
+            [
+                '/usr/share/cows/moofasa.cow',
+                33188,
+                '5fcdd4a9f3bf521c337af0a066b14512'
+            ],
+            [
+                '/usr/share/cows/moose.cow',
+                33188,
+                'dcfa09df7d2b9afa112dab374bf06e99'
+            ],
+            [
+                '/usr/share/cows/mutilated.cow',
+                33188,
+                '24cdaef0a29fb44dc673abf19a8ba631'
+            ],
+            [
+                '/usr/share/cows/phaco.cow',
+                33188,
+                'f277c1bf92ce2a3f6058955ba93758aa'
+            ],
+            [
+                '/usr/share/cows/pumpkin.cow',
+                33188,
+                'c661ea78714c1ce31559f77d73694473'
+            ],
+            [
+                '/usr/share/cows/ren.cow',
+                33188,
+                '3d7941d454779e000adc1c91e5f0b20b'
+            ],
+            [
+                '/usr/share/cows/satanic.cow',
+                33188,
+                'a69ca42a31486757ddcb322a1e68f886'
+            ],
+            [
+                '/usr/share/cows/shark.cow',
+                33188,
+                'd8950ec63abb00bbd9d96ec63637c1ac'
+            ],
+            [
+                '/usr/share/cows/sheep.cow',
+                33188,
+                '543b75f295cbd51326f5a40f111469f1'
+            ],
+            [
+                '/usr/share/cows/skeleton.cow',
+                33188,
+                '64f6ec1a0c170508e72269d533492e57'
+            ],
+            [
+                '/usr/share/cows/small.cow',
+                33188,
+                '50cb1c55628c439fc81f96db9d855252'
+            ],
+            [
+                '/usr/share/cows/sodomized.cow',
+                33188,
+                'b4888afcca51629cc3138b283608b837'
+            ],
+            [
+                '/usr/share/cows/stegosaurus.cow',
+                33188,
+                'fb0e45d101a3ecba9cf6e112facbbc7e'
+            ],
+            [
+                '/usr/share/cows/stimpy.cow',
+                33188,
+                '9b4ec6e0750ba0eeaaa432d8d3413559'
+            ],
+            [
+                '/usr/share/cows/supermilker.cow',
+                33188,
+                '316573fb585e4a6b375373c85be025b1'
+            ],
+            [
+                '/usr/share/cows/surgery.cow',
+                33188,
+                '7f25005083c1fde19d4e548c005ef000'
+            ],
+            [
+                '/usr/share/cows/telebears.cow',
+                33188,
+                '15f00abb070d9018ce6ef3441e936ef4'
+            ],
+            [
+                '/usr/share/cows/three-eyes.cow',
+                33188,
+                'c85faef9496f4a5b111bd92bfd7e7528'
+            ],
+            [
+                '/usr/share/cows/turkey.cow',
+                33188,
+                '484b5bc69c09d420d7fd5586d8570f04'
+            ],
+            [
+                '/usr/share/cows/turtle.cow',
+                33188,
+                '87eed5a00e88860b78dbec04efcdede3'
+            ],
+            [
+                '/usr/share/cows/tux.cow',
+                33188,
+                'dc1db4eac66c99179ef6adb15dd75bda'
+            ],
+            [
+                '/usr/share/cows/udder.cow',
+                33188,
+                'd97f78887c3b218a54876edc51f2963b'
+            ],
+            [
+                '/usr/share/cows/vader-koala.cow',
+                33188,
+                '7b5dd51278f0fa217a70a9b499f97a07'
+            ],
+            [
+                '/usr/share/cows/vader.cow',
+                33188,
+                '97b4ef9fc4c26082f253e9f0f35c4590'
+            ],
+            [
+                '/usr/share/cows/www.cow',
+                33188,
+                'ef4c0bc8330f329666e1705f97f283cc'
+            ],
+            [
+                '/usr/share/doc/cowsay-3.03',
+                16877,
+                ''
+            ],
+            [
+                '/usr/share/doc/cowsay-3.03/INSTALL',
+                33188,
+                '3333fd2865107626d5dffc0dbfb7e244'
+            ],
+            [
+                '/usr/share/doc/cowsay-3.03/LICENSE',
+                33188,
+                'f879dda90a5a9928253a63ecd76406e6'
+            ],
+            [
+                '/usr/share/doc/cowsay-3.03/README',
+                33188,
+                'a5c1c61e4920c278a735cdaaca62453e'
+            ],
+            [
+                '/usr/share/man/man1/cowsay.1.bz2',
+                33188,
+                '01fdd49d0b477f20099aae384fe8c1b2'
+            ],
+            [
+                '/usr/share/man/man1/cowthink.1.bz2',
+                41471,
+                ''
+            ]
+        ],
+        'files'
+    );
+
+    # changelog
+    is_deeply(
+        [ $package->get_changes() ],
+        [
+            [
+                'Guillaume Rousse <guillomovitch@mandriva.org> 3.03-11mdv2007.0',
+                1149847200,
+                [
+                    '%mkrel',
+                    'rpmbuildupdate aware'
+                ]
+            ],
+            [
+                'Guillaume Rousse <guillomovitch@mandriva.org> 3.03-10mdk ',
+                1117879200,
+                [
+                    'fix man page (fix #16291)'
+                ]
+            ],
+            [
+                'Guillaume Rousse <guillomovitch@mandrake.org> 3.03-9mdk ',
+                1090058400,
+                [
+                    'hurry businesman compliant (aka two new wonderful cows)'
+                ]
+            ],
+            [
+                'Guillaume Rousse <guillomovitch@mandrake.org> 3.03-8mdk ',
+                1089540000,
+                [
+                    'apologies to the girafes (with one only f)'
+                ]
+            ],
+            [
+                'Guillaume Rousse <guillomovitch@mandrake.org> 3.03-7mdk ',
+                  1086429600,
+                [
+                    '#mandrakefr compliant (aka four new additional cows)'
+                ]
+            ],
+            [
+                'Guillaume Rousse <guillomovitch@linux-mandrake.com> 3.03-6mdk',
+                1061460000,
+                [
+                    'save.the.world patch'
+                ]
+            ]
+        ],
+        'changelog'
+    );
+    is_deeply(
+        $package->get_last_change(),
+        [
+            'Guillaume Rousse <guillomovitch@mandriva.org> 3.03-11mdv2007.0',
+            1149847200,
+            [
+                '%mkrel',
+                'rpmbuildupdate aware'
+            ]
+        ],
+        'last change'
+    );
+    is($package->compare($package), 0, 'compare');
+}
+
+
+foreach my $class (@classes) {
+    load($class);
+
+    my $tempdir = tempdir(CLEANUP => 1);
+    system('cp', $file, $tempdir);
+    my $package = $class->new(file => "$tempdir/cowsay-3.03-11mdv2007.0.noarch.rpm");
+
+    $package->sign('Youri', 't/gpghome', 'Youri rulez');
+
+    my $resigned_package = $class->new(file => "$tempdir/cowsay-3.03-11mdv2007.0.noarch.rpm");
+    is($resigned_package->get_gpg_key(), '2333e817', 'get gpg key');
+
+    system('rm', '-fr', '--', $tempdir);
+}
diff --git a/t/version.t b/t/version.t
new file mode 100755
index 0000000..9873037
--- /dev/null
+++ b/t/version.t
@@ -0,0 +1,71 @@
+#!/usr/bin/perl
+# $Id: version.t 913 2006-05-17 19:29:38Z pterjan $
+
+use Test::More;
+use Youri::Check::Input::Updates;
+use strict;
+
+my @differents = (
+    [ '3.0.0', '1.0.0' ],
+    [ '3.0.0', '1.99.9' ],
+    [ '3.0.1', '3.0' ],
+    [ '3.0pl1', '3.0' ],
+    [ '3.0', '3.0beta1' ],
+    [ '3.0', '3.0beta' ],
+    [ '3.0', '3.0alpha1' ],
+    [ '3.0', '3.0alpha' ],
+    [ '3.0', '3.0pre1' ],
+    [ '3.0', '3.0pre' ],
+    [ '3.0pre', '3.0beta' ],
+    [ '3.0beta', '3.0alpha' ],
+    [ '1.0.0-p1', '1.0.0RC1' ],
+    [ '0.9.7f', '0.9.7e' ],
+    [ '10', '9' ],
+);
+
+my @equals = (
+    [ '1.0.0', '1.0.0' ],
+    [ '0.9Beta1', '0.9beta1' ],
+    [ '0.9beta1', '0.9 beta 1' ],
+    [ '0.3-alpha', '0.3_alpha' ],
+    [ '0.02', '.02' ],
+    [ '2.0.11', '15aug2000' ],
+    [ '2.0.11', '20060401' ],
+    [ '20', '20060401' ],
+);
+
+plan tests => 2 * @differents + 2 * @equals;
+
+foreach my $different (@differents) {
+    ok(
+        Youri::Check::Input::Updates::is_newer(
+	    $different->[0],
+	    $different->[1]
+	),
+        "$different->[0] is newer as $different->[1]"
+    );
+    ok(
+        !Youri::Check::Input::Updates::is_newer(
+	    $different->[1],
+	    $different->[0]
+	),
+        "$different->[1] is older as $different->[0]"
+    );
+}
+
+foreach my $equal (@equals) {
+    ok(
+        !Youri::Check::Input::Updates::is_newer(
+	    $equal->[0],
+	    $equal->[1]
+	),
+        "$equal->[0] is equal as $equal->[1]"
+    );
+    ok(
+        !Youri::Check::Input::Updates::is_newer(
+	    $equal->[1],
+	    $equal->[0]
+	),
+        "$equal->[1] is equal as $equal->[0]"
+    );
+}