contrib/perl5/t/op/undef.t

   1 #!./perl
   2
   3 print "1..23\n";
   4
   5 print defined($a) ? "not ok 1\n" : "ok 1\n";
   6
   7 $a = 1+1;
   8 print defined($a) ? "ok 2\n" : "not ok 2\n";
   9
  10 undef $a;
  11 print defined($a) ? "not ok 3\n" : "ok 3\n";
  12
  13 $a = "hi";
  14 print defined($a) ? "ok 4\n" : "not ok 4\n";
  15
  16 $a = $b;
  17 print defined($a) ? "not ok 5\n" : "ok 5\n";
  18
  19 @ary = ("1arg");
  20 $a = pop(@ary);
  21 print defined($a) ? "ok 6\n" : "not ok 6\n";
  22 $a = pop(@ary);
  23 print defined($a) ? "not ok 7\n" : "ok 7\n";
  24
  25 @ary = ("1arg");
  26 $a = shift(@ary);
  27 print defined($a) ? "ok 8\n" : "not ok 8\n";
  28 $a = shift(@ary);
  29 print defined($a) ? "not ok 9\n" : "ok 9\n";
  30
  31 $ary{'foo'} = 'hi';
  32 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n";
  33 print defined($ary{'bar'}) ? "not ok 11\n" : "ok 11\n";
  34 undef $ary{'foo'};
  35 print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n";
  36
  37 print defined(@ary) ? "ok 13\n" : "not ok 13\n";
  38 print defined(%ary) ? "ok 14\n" : "not ok 14\n";
  39 undef @ary;
  40 print defined(@ary) ? "not ok 15\n" : "ok 15\n";
  41 undef %ary;
  42 print defined(%ary) ? "not ok 16\n" : "ok 16\n";
  43 @ary = (1);
  44 print defined @ary ? "ok 17\n" : "not ok 17\n";
  45 %ary = (1,1);
  46 print defined %ary ? "ok 18\n" : "not ok 18\n";
  47
  48 sub foo { print "ok 19\n"; }
  49
  50 &foo || print "not ok 19\n";
  51
  52 print defined &foo ? "ok 20\n" : "not ok 20\n";
  53 undef &foo;
  54 print defined(&foo) ? "not ok 21\n" : "ok 21\n";
  55
  56 eval { undef $1 };
  57 print $@ =~ /^Modification of a read/ ? "ok 22\n" : "not ok 22\n";
  58
  59 eval { $1 = undef };
  60 print $@ =~ /^Modification of a read/ ? "ok 23\n" : "not ok 23\n";
  61