This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test cases for version cannot handle Test::More versions that
authorSteve Peters <steve@fisharerojo.org>
Wed, 13 Sep 2006 14:59:01 +0000 (14:59 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 13 Sep 2006 14:59:01 +0000 (14:59 +0000)
end with _0X.  TODO-ing the failing test cases for now.

p4raw-id: //depot/perl@28838

lib/version.t

index cc2fde7..06afb26 100644 (file)
@@ -319,12 +319,15 @@ SKIP: {
     like($@, qr/Test::More version $version/,
            'Replacement eval works with incremented version');
     
-    $version =~ s/\.0$//; #convert to string and remove trailing '.0'
-    chop($version);    # shorten by 1 digit, should still succeed
-    eval "use Test::More $version";
-    unlike($@, qr/Test::More version $version/,
+    TODO: {
+        local $TODO = "Test fails with Test::More versions ending in _0X";
+        $version =~ s/\.0$//; #convert to string and remove trailing '.0'
+        chop($version);        # shorten by 1 digit, should still succeed
+        eval "use Test::More $version";
+        unlike($@, qr/Test::More version $version/,
            'Replacement eval works with single digit');
-    
+    }
+
     $version += 0.1; # this would fail with old UNIVERSAL::VERSION
     eval "use Test::More $version";
     like($@, qr/Test::More version $version/,