diff options
| author | Steve Peters <steve@fisharerojo.org> | 2006-09-13 14:59:01 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-09-13 14:59:01 +0000 |
| commit | 8dd049801f67fc018c2d3f2b647bf7aa24933c09 (patch) | |
| tree | bf5109708b79da4a03f69f2f24f7e48121128645 /lib/version.t | |
| parent | 7fefbd4402375aa51661a98e79d837b4c791b26f (diff) | |
| download | perl-8dd049801f67fc018c2d3f2b647bf7aa24933c09.tar.gz | |
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
Diffstat (limited to 'lib/version.t')
| -rw-r--r-- | lib/version.t | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lib/version.t b/lib/version.t index cc2fde700d..06afb26966 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/, |