12 my @versions = ({a => '1.0-1',
34 plan tests => @versions * 2 + 1;
38 $cmp = 'gt' if not defined $cmp;
39 return system('dpkg','--compare-versions',$a,$cmp,$b) == 0;
43 use_ok('Debbugs::Versions::Dpkg');
45 for my $version_cmp (@versions) {
46 ok(Debbugs::Versions::Dpkg::vercmp($$version_cmp{a},$$version_cmp{b}) == $$version_cmp{result},
47 "Version $$version_cmp{a} $$version_cmp{relation} $$version_cmp{b} ok");
48 ok(dpkg_vercmp($$version_cmp{a},$$version_cmp{b},$$version_cmp{relation}),
49 "Dpkg concures: Version $$version_cmp{a} $$version_cmp{relation} $$version_cmp{b}");