A couple more tests to make sure the captures work

John Peacock · John Peacock · commit 4458e5ce3981 · 2016-05-29T06:50:46.000-04:00
diff --git a/t/04strict_lax.t b/t/04strict_lax.t
@@ -15,7 +15,11 @@ SKIP: {
     is ref($version::STRICT), 'Regexp', 'Can see $version::STRICT '.$version::STRICT;
     { # https://rt.cpan.org/Ticket/Display.html?id=114712
         my ($v) = ( "snapshot-1.2.3ga-001-432" =~ /($version::LAX)/ );
-        is $v, '1.2.3', 'Extract just the version';
+        is $v, '1.2.3', "Extract just the version: $v";
+        ($v) = ( "snapshot-1.2ga-001-432" =~ /($version::LAX)/ );
+        is $v, '1.2', "Extract just the version: $v";
+        ($v) = ( "snapshot-v1.2.3ga-001-432" =~ /($version::STRICT)/ );
+        is $v, 'v1.2.3', "Extract just the version: $v";
     }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -15,7 +15,11 @@ SKIP: {`
`15`	`15`	`is ref($version::STRICT), 'Regexp', 'Can see $version::STRICT '.$version::STRICT;`
`16`	`16`	`{ # https://rt.cpan.org/Ticket/Display.html?id=114712`
`17`	`17`	`my ($v) = ( "snapshot-1.2.3ga-001-432" =~ /($version::LAX)/ );`
`18`		`- is $v, '1.2.3', 'Extract just the version';`
	`18`	`+ is $v, '1.2.3', "Extract just the version: $v";`
	`19`	`+ ($v) = ( "snapshot-1.2ga-001-432" =~ /($version::LAX)/ );`
	`20`	`+ is $v, '1.2', "Extract just the version: $v";`
	`21`	`+ ($v) = ( "snapshot-v1.2.3ga-001-432" =~ /($version::STRICT)/ );`
	`22`	`+ is $v, 'v1.2.3', "Extract just the version: $v";`
`19`	`23`	`}`
`20`	`24`	`}`
`21`	`25`