diff options
-rw-r--r-- | t/camel-III/vstring.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/camel-III/vstring.t b/t/camel-III/vstring.t index a252a3b3c8..7360ae7654 100644 --- a/t/camel-III/vstring.t +++ b/t/camel-III/vstring.t @@ -4,7 +4,7 @@ BEGIN { @INC = '../lib'; } use Test; -plan test => 6; +plan test => 5; # Error messages may have wide chars, say that is okay - if we can. eval { binmode STDOUT,":utf8" }; @@ -33,7 +33,7 @@ else # Chapter 28, pp671 ok(v5.6.0 lt v5.7.0,1,"v5.6.0 lt v5.7.0 fails"); -# Some floating-point risk here ... -my $v = ord($^V)+ord(substr($^V,1,1))/1000+ord(substr($^V,2,1))/1000000; -$v =~ s/^5\.006999\d+/5.007/; # floating point fun -ok($v,$],"\$^V and \$] do not match"); + +# floating point too messy +# my $v = ord($^V)+ord(substr($^V,1,1))/1000+ord(substr($^V,2,1))/1000000; +# ok($v,$],"\$^V and \$] do not match"); |