Add a test before fixing bug

John Peacock · John Peacock · commit 6e57f659b6e9 · 2016-05-25T21:10:22.000-04:00
diff --git a/t/04strict_lax.t b/t/04strict_lax.t
@@ -13,6 +13,10 @@ SKIP: {
     strict_lax_tests();
     is ref($version::LAX), 'Regexp', 'Can see $version::LAX '.$version::LAX ;
     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';
+    }
 }
 
 

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