This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: extra tests to check on negative float to unsigned cast
authorJeff Okamoto <okamoto@corp.hp.com>
Fri, 23 Feb 2001 13:28:33 +0000 (05:28 -0800)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 26 Feb 2001 14:38:04 +0000 (14:38 +0000)
Message-Id: <200102232128.NAA28938@xfiles.corp.hp.com>

p4raw-id: //depot/perl@8950

t/op/bop.t

index 622d169..0354f00 100755 (executable)
@@ -9,7 +9,7 @@ BEGIN {
     @INC = '../lib';
 }
 
-print "1..42\n";
+print "1..44\n";
 
 # numerics
 print ((0xdead & 0xbeef) == 0x9ead ? "ok 1\n" : "not ok 1\n");
@@ -163,3 +163,9 @@ print "ok 40\n";
 # More variations on 19 and 22.
 print "ok \xFF\x{FF}\n" & "ok 41\n";
 print "ok \x{FF}\xFF\n" & "ok 42\n";
+
+# Tests to see if you really can do casts negative floats to unsigned properly
+$neg1 = -1.0;
+print ((~ $neg1 == 0) ? "ok 43\n" : "not ok 43\n");
+$neg7 = -7.0;
+print ((~ $neg7 == 6) ? "ok 44\n" : "not ok 44\n");