diff options
| author | Adam Krolnik <adamk@gypsy.cyrix.com> | 1998-12-12 09:30:18 -0600 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-02-11 06:31:50 +0000 |
| commit | c1ab3db27b18a2a38753176364fd557b05bb547f (patch) | |
| tree | 8da91d8611bf53b8392324f02d8b48675e2f9ec0 /t/op/range.t | |
| parent | 0214ae4041a6e53bb2f19e015bac063436f2df70 (diff) | |
| download | perl-c1ab3db27b18a2a38753176364fd557b05bb547f.tar.gz | |
applied suggested patch; added tests
Message-Id: <9812122130.AA03717@gypsy.eng.cyrix.com>
Subject: Range operation doesn't handle IV_MAX
p4raw-id: //depot/perl@2855
Diffstat (limited to 't/op/range.t')
| -rwxr-xr-x | t/op/range.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/range.t b/t/op/range.t index 7999b869cb..01f5f70568 100755 --- a/t/op/range.t +++ b/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"; + |