diff options
Diffstat (limited to 't/op.oct')
| -rw-r--r-- | t/op.oct | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/t/op.oct b/t/op.oct new file mode 100644 index 0000000000..718a4d32b8 --- /dev/null +++ b/t/op.oct @@ -0,0 +1,9 @@ +#!./perl + +# $Header: op.oct,v 1.0 87/12/18 13:13:57 root Exp $ + +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";} |