From b815e894e1fc82c49b9845b9884350949cec1752 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 7 Mar 2001 14:30:02 +0000 Subject: [PATCH] Floating point too messy. p4raw-id: //depot/perl@9066 --- t/camel-III/vstring.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/t/camel-III/vstring.t b/t/camel-III/vstring.t index a252a3b..7360ae7 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"); -- 1.8.3.1