From: Vincent Pit <perl@profvince.com>
Date: Mon, 1 Aug 2016 20:21:39 +0000 (-0300)
Subject: Add a few more version tests
X-Git-Tag: v1.19~3
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f6fc0cc882bbaa44ecfa004e338ba09f017dda8d;p=perl%2Fmodules%2FTest-Valgrind.git

Add a few more version tests
---

diff --git a/t/60-version.t b/t/60-version.t
index 68a99a0..9d7183d 100644
--- a/t/60-version.t
+++ b/t/60-version.t
@@ -3,7 +3,7 @@
 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;
 
@@ -53,14 +53,15 @@ for my $failure (@string_failures) {
 }
 
 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 }
@@ -91,27 +92,29 @@ sub tvv_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) {