Move the require './test.pl' to the end of t/comp/hints.t
[p5sagit/p5-mst-13.2.git] / t / op / sselect.t
1 #!./perl
2
3 BEGIN {
4     chdir 't' if -d 't';
5     @INC = ('.', '../lib');
6 }
7
8 require 'test.pl';
9
10 plan (9);
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 is ($@, "");
22 eval {select $blank, "", $blank, 0};
23 is ($@, "");
24 eval {select $blank, $blank, "", 0};
25 is ($@, "");
26
27 eval {select "a", $blank, $blank, 0};
28 like ($@, qr/^Modification of a read-only value attempted/);
29 eval {select $blank, "a", $blank, 0};
30 like ($@, qr/^Modification of a read-only value attempted/);
31 eval {select $blank, $blank, "a", 0};
32 like ($@, qr/^Modification of a read-only value attempted/);