diff options
| author | Gisle Aas <gisle@aas.no> | 2005-10-21 01:04:40 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-10-21 15:44:38 +0000 |
| commit | 15547071d7923e1ad71df03a6a5f4bf10b39825e (patch) | |
| tree | 61d7ccb7bd478aece49364aa9b9cedec3a343d07 /t | |
| parent | 9a9897716602799978192865b19161f65ea040c1 (diff) | |
| download | perl-15547071d7923e1ad71df03a6a5f4bf10b39825e.tar.gz | |
allow "" as select bitmask [PATCH]
Message-ID: <lrach229o7.fsf_-_@caliper.activestate.com>
p4raw-id: //depot/perl@25818
Diffstat (limited to 't')
| -rw-r--r-- | t/op/sselect.t | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/t/op/sselect.t b/t/op/sselect.t index 4e50b29995..0f877b1eff 100644 --- a/t/op/sselect.t +++ b/t/op/sselect.t @@ -7,7 +7,7 @@ BEGIN { require 'test.pl'; -plan (6); +plan (9); my $blank = ""; eval {select undef, $blank, $blank, 0}; @@ -18,8 +18,15 @@ eval {select $blank, $blank, undef, 0}; is ($@, ""); eval {select "", $blank, $blank, 0}; -like ($@, qr/^Modification of a read-only value attempted/); +is ($@, ""); eval {select $blank, "", $blank, 0}; -like ($@, qr/^Modification of a read-only value attempted/); +is ($@, ""); eval {select $blank, $blank, "", 0}; +is ($@, ""); + +eval {select "a", $blank, $blank, 0}; +like ($@, qr/^Modification of a read-only value attempted/); +eval {select $blank, "a", $blank, 0}; +like ($@, qr/^Modification of a read-only value attempted/); +eval {select $blank, $blank, "a", 0}; like ($@, qr/^Modification of a read-only value attempted/); |