diff options
| author | markm <markm@FreeBSD.org> | 1998-09-09 07:00:04 +0000 |
|---|---|---|
| committer | markm <markm@FreeBSD.org> | 1998-09-09 07:00:04 +0000 |
| commit | 4fcbc3669aa997848e15198cc9fb856287a6788c (patch) | |
| tree | 58b20e81687d6d5931f120b50802ed21225bf440 /contrib/perl5/t/op/oct.t | |
| download | FreeBSD-src-4fcbc3669aa997848e15198cc9fb856287a6788c.zip FreeBSD-src-4fcbc3669aa997848e15198cc9fb856287a6788c.tar.gz | |
Initial import of Perl5. The king is dead; long live the king!
Diffstat (limited to 'contrib/perl5/t/op/oct.t')
| -rwxr-xr-x | contrib/perl5/t/op/oct.t | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/contrib/perl5/t/op/oct.t b/contrib/perl5/t/op/oct.t new file mode 100755 index 0000000..24b5c43 --- /dev/null +++ b/contrib/perl5/t/op/oct.t @@ -0,0 +1,14 @@ +#!./perl + +# $RCSfile: oct.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:08 $ + +print "1..8\n"; + +print +(oct('01234') == 01234) ? "ok" : "not ok", " 1\n"; +print +(oct('0x1234') == 0x1234) ? "ok" : "not ok", " 2\n"; +print +(hex('01234') == 0x1234) ? "ok" : "not ok", " 3\n"; +print +(oct('20000000000') == 020000000000) ? "ok" : "not ok", " 4\n"; +print +(oct('x80000000') == 0x80000000) ? "ok" : "not ok", " 5\n"; +print +(hex('80000000') == 0x80000000) ? "ok" : "not ok", " 6\n"; +print +(oct('1234') == 668) ? "ok" : "not ok", " 7\n"; +print +(hex('1234') == 4660) ? "ok" : "not ok", " 8\n"; |
