diff options
Diffstat (limited to 't/op/flip.t')
-rwxr-xr-x | t/op/flip.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/flip.t b/t/op/flip.t index 475f55a8c8..7852d0cee9 100755 --- a/t/op/flip.t +++ b/t/op/flip.t @@ -2,7 +2,7 @@ # $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $ -print "1..8\n"; +print "1..9\n"; @a = (1,2,3,4,5,6,7,8,9,10,11,12); @@ -24,3 +24,6 @@ while (<of>) { $x = ($foo =~ y/\n/\n/); if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";} + +$x = 3.14; +if (($x...$x) eq "1") {print "ok 9\n";} else {print "not ok 9\n";} |