Author: djpig
Date: 2007-07-08 20:34:15 +0000 (Sun, 08 Jul 2007)
New Revision: 853
Added:
branches/dpkg-shlibdeps-buxy/scripts/t/100_Dpkg_Version.t
Removed:
branches/dpkg-shlibdeps-buxy/scripts/t/02_version_dpkg.t
Log:
Rename test script
Should really not have used the filename from Debbugs
in the first place. Rename it to something that makes
more sense in our context
Deleted: branches/dpkg-shlibdeps-buxy/scripts/t/02_version_dpkg.t
===================================================================
--- branches/dpkg-shlibdeps-buxy/scripts/t/02_version_dpkg.t 2007-07-08
20:17:55 UTC (rev 852)
+++ branches/dpkg-shlibdeps-buxy/scripts/t/02_version_dpkg.t 2007-07-08
20:34:15 UTC (rev 853)
@@ -1,51 +0,0 @@
-# -*- mode: cperl;-*-
-
-use Test::More;
-
-use warnings;
-use strict;
-
-use utf8;
-use Encode;
-
-# Default cmp '>'
-my @versions = ({a => '1.0-1',
- b => '2.0-2',
- result => -1,
- relation => 'lt',
- },
- {a => '2.2~rc-4',
- b => '2.2-1',
- result => -1,
- relation => 'lt',
- },
- {a => '2.2-1',
- b => '2.2~rc-4',
- result => 1,
- relation => 'gt',
- },
- {a => '1.0000-1',
- b => '1.0-1',
- result => 0,
- relation => 'eq',
- },
- );
-
-plan tests => @versions * 2 + 1;
-
-sub dpkg_vercmp{
- my ($a,$b,$cmp) = @_;
- $cmp = 'gt' if not defined $cmp;
- return system('dpkg','--compare-versions',$a,$cmp,$b) == 0;
-}
-
-
-use_ok('Dpkg::Version');
-
-for my $version_cmp (@versions) {
- ok(Dpkg::Version::vercmp($$version_cmp{a},$$version_cmp{b}) ==
$$version_cmp{result},
- "Version $$version_cmp{a} $$version_cmp{relation} $$version_cmp{b} ok");
- ok(dpkg_vercmp($$version_cmp{a},$$version_cmp{b},$$version_cmp{relation}),
- "Dpkg concures: Version $$version_cmp{a} $$version_cmp{relation}
$$version_cmp{b}");
-}
-
Copied: branches/dpkg-shlibdeps-buxy/scripts/t/100_Dpkg_Version.t (from rev
852, branches/dpkg-shlibdeps-buxy/scripts/t/02_version_dpkg.t)
===================================================================
--- branches/dpkg-shlibdeps-buxy/scripts/t/100_Dpkg_Version.t
(rev 0)
+++ branches/dpkg-shlibdeps-buxy/scripts/t/100_Dpkg_Version.t 2007-07-08
20:34:15 UTC (rev 853)
@@ -0,0 +1,51 @@
+# -*- mode: cperl;-*-
+
+use Test::More;
+
+use warnings;
+use strict;
+
+use utf8;
+use Encode;
+
+# Default cmp '>'
+my @versions = ({a => '1.0-1',
+ b => '2.0-2',
+ result => -1,
+ relation => 'lt',
+ },
+ {a => '2.2~rc-4',
+ b => '2.2-1',
+ result => -1,
+ relation => 'lt',
+ },
+ {a => '2.2-1',
+ b => '2.2~rc-4',
+ result => 1,
+ relation => 'gt',
+ },
+ {a => '1.0000-1',
+ b => '1.0-1',
+ result => 0,
+ relation => 'eq',
+ },
+ );
+
+plan tests => @versions * 2 + 1;
+
+sub dpkg_vercmp{
+ my ($a,$b,$cmp) = @_;
+ $cmp = 'gt' if not defined $cmp;
+ return system('dpkg','--compare-versions',$a,$cmp,$b) == 0;
+}
+
+
+use_ok('Dpkg::Version');
+
+for my $version_cmp (@versions) {
+ ok(Dpkg::Version::vercmp($$version_cmp{a},$$version_cmp{b}) ==
$$version_cmp{result},
+ "Version $$version_cmp{a} $$version_cmp{relation} $$version_cmp{b} ok");
+ ok(dpkg_vercmp($$version_cmp{a},$$version_cmp{b},$$version_cmp{relation}),
+ "Dpkg concures: Version $$version_cmp{a} $$version_cmp{relation}
$$version_cmp{b}");
+}
+
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
