From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 13 Sep 2006 14:59:01 +0000 (+0000)
Subject: Test cases for version cannot handle Test::More versions that
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8dd049801f67fc018c2d3f2b647bf7aa24933c09;p=p5sagit%2Fp5-mst-13.2.git

Test cases for version cannot handle Test::More versions that
end with _0X.  TODO-ing the failing test cases for now.

p4raw-id: //depot/perl@28838
---

diff --git a/lib/version.t b/lib/version.t
index cc2fde7..06afb26 100644
--- a/lib/version.t
+++ b/lib/version.t
@@ -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/,