diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/00distribution.t | 15 | ||||
| -rw-r--r-- | t/cowsay-3.03-11mdv2007.0.noarch.rpm | bin | 0 -> 23573 bytes | |||
| -rw-r--r-- | t/gpghome/pubring.gpg | bin | 0 -> 565 bytes | |||
| -rw-r--r-- | t/gpghome/secring.gpg | bin | 0 -> 628 bytes | |||
| -rw-r--r-- | t/gpghome/trustdb.gpg | bin | 0 -> 1280 bytes | |||
| -rwxr-xr-x | t/package.t | 497 | ||||
| -rwxr-xr-x | t/version.t | 71 |
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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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 Binary files differnew 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]" + ); +} |