diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-03-21 00:00:00 +0000 |
| commit | fe14fcc35f78a371a174a1d14256c2f35ae4262b (patch) | |
| tree | d472cb1055c47b9701cb0840969aacdbdbc9354a /t/op.oct | |
| parent | 27e2fb84680b9cc1db17238d5bf10b97626f477f (diff) | |
| download | perl-fe14fcc35f78a371a174a1d14256c2f35ae4262b.tar.gz | |
perl 4.0.00: (no release announcement available)perl-4.0.00
So far, 4.0 is still a beta test version. For the last production
version, look in pub/perl.3.0/kits@44.
Diffstat (limited to 't/op.oct')
| -rw-r--r-- | t/op.oct | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/t/op.oct b/t/op.oct deleted file mode 100644 index 7f129f6488..0000000000 --- a/t/op.oct +++ /dev/null @@ -1,9 +0,0 @@ -#!./perl - -# $Header: op.oct,v 3.0 89/10/18 15:30:15 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";} |