diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-31 22:44:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-31 22:44:56 +0000 |
| commit | 893fe2c21345ec73429b2371c33adad8d22fc7f2 (patch) | |
| tree | 40616f23c0e5583acd35f985de295e3ebf64efdb /t | |
| parent | d6a287148f674729887096e6af50b42b464c3451 (diff) | |
| download | perl-893fe2c21345ec73429b2371c33adad8d22fc7f2.tar.gz | |
Integer overflow iteration.
p4raw-id: //depot/cfgperl@3843
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/oct.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/oct.t b/t/op/oct.t index 32b081c9a3..27ac5aa042 100755 --- a/t/op/oct.t +++ b/t/op/oct.t @@ -1,6 +1,6 @@ #!./perl -print "1..35\n"; +print "1..36\n"; print +(oct('0b10101') == 0b10101) ? "ok" : "not ok", " 1\n"; print +(oct('0b10101') == 025) ? "ok" : "not ok", " 2\n"; @@ -48,3 +48,6 @@ print +(oct('037777777777') == 4294967295) ? "ok" : "not ok", " 34\n"; print +(oct('0xffffffff') == 4294967295) ? "ok" : "not ok", " 35\n"; + +print +(hex('0xffffffff') == 4294967295) ? + "ok" : "not ok", " 36\n"; |