diff options
| author | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2004-03-07 22:11:20 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-03-07 20:34:05 +0000 |
| commit | 076d9a11d18d650bf0992032a42c6e83fb1c2ea6 (patch) | |
| tree | 5d0ce10e8b8d41dc8d45e20564b9caaa4c0575ba /t/op/range.t | |
| parent | b86ce628f044c5a1a6c161059427f158d00aee13 (diff) | |
| download | perl-076d9a11d18d650bf0992032a42c6e83fb1c2ea6.tar.gz | |
undef and the range operator
Message-Id: <20040307211120.10e46933@r2d2>
p4raw-id: //depot/perl@22462
Diffstat (limited to 't/op/range.t')
| -rwxr-xr-x | t/op/range.t | 30 |
1 files changed, 19 insertions, 11 deletions
diff --git a/t/op/range.t b/t/op/range.t index d92be7adb1..cdc494c4ea 100755 --- a/t/op/range.t +++ b/t/op/range.t @@ -1,6 +1,6 @@ #!./perl -print "1..30\n"; +print "1..34\n"; print join(':',1..5) eq '1:2:3:4:5' ? "ok 1\n" : "not ok 1\n"; @@ -83,25 +83,33 @@ print join(":","-4\n".."-0\n") eq "-4:-3:-2:-1:0" ? "ok 19\n" : "not ok 19\n"; # undef should be treated as 0 for numerical range print join(":",undef..2) eq '0:1:2' ? "ok 20\n" : "not ok 20\n"; print join(":",-2..undef) eq '-2:-1:0' ? "ok 21\n" : "not ok 21\n"; +print join(":",undef..'2') eq '0:1:2' ? "ok 22\n" : "not ok 22\n"; +print join(":",'-2'..undef) eq '-2:-1:0' ? "ok 23\n" : "not ok 23\n"; # undef should be treated as "" for magical range -print join(":","".."B") eq '' ? "ok 22\n" : "not ok 22\n"; -print join(":",undef.."B") eq '' ? "ok 23\n" : "not ok 23\n"; -print join(":","B".."") eq '' ? "ok 24\n" : "not ok 24\n"; -print join(":","B"..undef) eq '' ? "ok 25\n" : "not ok 25\n"; +print join(":","".."B") eq '' ? "ok 24\n" : "not ok 24\n"; +print join(":",undef.."B") eq '' ? "ok 25\n" : "not ok 25\n"; +print join(":","B".."") eq '' ? "ok 26\n" : "not ok 26\n"; +print join(":","B"..undef) eq '' ? "ok 27\n" : "not ok 27\n"; -# undef..undef used to segfault and should be 0..0 -print join(":",undef..undef) eq '0' ? "ok 26\n" : "not ok 26\n"; +# undef..undef used to segfault +print join(":",undef..undef) eq '' ? "ok 28\n" : "not ok 28\n"; # also test undef in foreach loops @foo=(); push @foo, $_ for undef..2; -print join(":",@foo) eq '0:1:2' ? "ok 27\n" : "not ok 27\n"; +print join(":",@foo) eq '0:1:2' ? "ok 29\n" : "not ok 29\n"; @foo=(); push @foo, $_ for -2..undef; -print join(":",@foo) eq '-2:-1:0' ? "ok 28\n" : "not ok 28\n"; +print join(":",@foo) eq '-2:-1:0' ? "ok 30\n" : "not ok 30\n"; + +@foo=(); push @foo, $_ for undef..'2'; +print join(":",@foo) eq '0:1:2' ? "ok 31\n" : "not ok 31\n"; + +@foo=(); push @foo, $_ for '-2'..undef; +print join(":",@foo) eq '-2:-1:0' ? "ok 32\n" : "not ok 32\n"; @foo=(); push @foo, $_ for undef.."B"; -print join(":",@foo) eq '' ? "ok 29\n" : "not ok 29\n"; +print join(":",@foo) eq '' ? "ok 33\n" : "not ok 33\n"; @foo=(); push @foo, $_ for "B"..undef; -print join(":",@foo) eq '' ? "ok 30\n" : "not ok 30\n"; +print join(":",@foo) eq '' ? "ok 34\n" : "not ok 34\n"; |