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 (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/);