diff options
| author | Mark Murray <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
|---|---|---|
| committer | Mark Murray <markm@FreeBSD.org> | 1999-05-02 14:33:17 +0000 |
| commit | 7c312e6b6a7b1f9412f10365baf3c5eca8fa5649 (patch) | |
| tree | b4adabf341898a4378f4b7f8c7fb65f3f7c77769 /contrib/perl5/t/op/range.t | |
| parent | ff6b7ba98e8d4aab04cbe2bfdffdfc9171c1812b (diff) | |
Maintenance releace 3 of perl5.005. Includes support for threads.
Notes
Notes:
svn path=/vendor/perl5/dist/; revision=46307
Diffstat (limited to 'contrib/perl5/t/op/range.t')
| -rwxr-xr-x | contrib/perl5/t/op/range.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/contrib/perl5/t/op/range.t b/contrib/perl5/t/op/range.t index 7999b869cb1b..01f5f705687f 100755 --- a/contrib/perl5/t/op/range.t +++ b/contrib/perl5/t/op/range.t @@ -1,6 +1,6 @@ #!./perl -print "1..10\n"; +print "1..12\n"; print join(':',1..5) eq '1:2:3:4:5' ? "ok 1\n" : "not ok 1\n"; @@ -46,3 +46,12 @@ foreach ('09'..'08') { print "not " unless join(",", @y) eq join(",", @x); print "ok 10\n"; +# check bounds +@a = 0x7ffffffe..0x7fffffff; +print "not " unless "@a" eq "2147483646 2147483647"; +print "ok 11\n"; + +@a = -0x7fffffff..-0x7ffffffe; +print "not " unless "@a" eq "-2147483647 -2147483646"; +print "ok 12\n"; + |