Commit | Line | Data |
729c079f |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = ('.', '../lib'); |
6 | } |
7 | |
8 | require 'test.pl'; |
9 | |
10 | plan (6); |
11 | |
12 | my $blank = ""; |
13 | eval {select undef, $blank, $blank, 0}; |
14 | is ($@, ""); |
15 | eval {select $blank, undef, $blank, 0}; |
16 | is ($@, ""); |
17 | eval {select $blank, $blank, undef, 0}; |
18 | is ($@, ""); |
19 | |
20 | eval {select "", $blank, $blank, 0}; |
21 | like ($@, qr/^Modification of a read-only value attempted/); |
22 | eval {select $blank, "", $blank, 0}; |
23 | like ($@, qr/^Modification of a read-only value attempted/); |
24 | eval {select $blank, $blank, "", 0}; |
25 | like ($@, qr/^Modification of a read-only value attempted/); |