use strict;
use warnings;
-use Test::More tests => 6 + 5 + 4 * 8 + 2 * 21 + 2 * 14;
+use Test::More tests => 6 + 5 + 4 * 9 + 2 * 23 + 2 * 14;
use Test::Valgrind::Version;
}
my @command_valid = (
- 'valgrind-1' => '1.0.0',
- 'valgrind-1.2' => '1.2.0',
- 'valgrind-1.2.3' => '1.2.3',
- 'valgrind-1.2.4-rc5' => '1.2.4',
- 'valgrind-1.2.6a' => '1.2.6',
- 'valgrind-1.2.7.' => '1.2.7',
- 'valgrind-1.2.x.8' => '1.2.0',
- 'valgrind-1.10.' => '1.10.0',
+ 'valgrind-1' => '1.0.0',
+ 'valgrind-1.2' => '1.2.0',
+ 'valgrind-1.2.3' => '1.2.3',
+ 'valgrind-1.2.4-rc5' => '1.2.4',
+ 'valgrind-1.2.6a' => '1.2.6',
+ 'valgrind-1.2.7.' => '1.2.7',
+ 'valgrind-1.2.x.8' => '1.2.0',
+ 'valgrind-1.10.' => '1.10.0',
+ 'valgrind-3.12.0.SVN' => '3.12.0',
);
my @string_valid = map { my $s = $_; $s =~ s/^valgrind-//; $s }
}
my @compare = (
- '1', '1', 0,
- '1', '1.0', 0,
- '1', '1.0.0', 0,
- '1.1', '1', 1,
- '1.1', '1.0', 1,
- '1.1', '1.0.0', 1,
- '1', '1.1', -1,
- '1.0', '1.1', -1,
- '1.0.0', '1.1', -1,
- '1.1', '1.2', -1,
- '1.1.0', '1.2', -1,
- '1.1', '1.2.0', -1,
- '1.1.0', '1.2.0', -1,
- '1', '1', 0,
- '1.0.1', '1', 1,
- '1.0.1.0', '1', 1,
- '1.0.0.1', '1', 1,
- '1.0.0.1', '1.0.1', -1,
- '1.0.0.2', '1.0.1', -1,
- '3.4.0', '3.4.1', -1,
- '3.5.2', '3.5.1', 1,
+ '1', '1', 0,
+ '1', '1.0', 0,
+ '1', '1.0.0', 0,
+ '1.1', '1', 1,
+ '1.1', '1.0', 1,
+ '1.1', '1.0.0', 1,
+ '1', '1.1', -1,
+ '1.0', '1.1', -1,
+ '1.0.0', '1.1', -1,
+ '1.1', '1.2', -1,
+ '1.1.0', '1.2', -1,
+ '1.1', '1.2.0', -1,
+ '1.1.0', '1.2.0', -1,
+ '1', '1', 0,
+ '1.0.1', '1', 1,
+ '1.0.1.0', '1', 1,
+ '1.0.0.1', '1', 1,
+ '1.0.0.1', '1.0.1', -1,
+ '1.0.0.2', '1.0.1', -1,
+ '3.4.0', '3.4.1', -1,
+ '3.5.2', '3.5.1', 1,
+ '3.12.0', '3.1.0', 1,
+ '3.1.0', '3.12.0', -1,
);
while (@compare) {