diff options
Diffstat (limited to 't/op/oct.t')
| -rw-r--r-- | t/op/oct.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/op/oct.t b/t/op/oct.t new file mode 100644 index 0000000000..1a9a92ec58 --- /dev/null +++ b/t/op/oct.t @@ -0,0 +1,9 @@ +#!./perl + +# $Header: oct.t,v 4.0 91/03/20 01:53:43 lwall Locked $ + +print "1..3\n"; + +if (oct('01234') == 01234) {print "ok 1\n";} else {print "not ok 1\n";} +if (oct('0x1234') == 0x1234) {print "ok 2\n";} else {print "not ok 2\n";} +if (hex('01234') == 0x1234) {print "ok 3\n";} else {print "not ok 3\n";} |