t/op/defins.t

   1 #!./perl -w
   2
   3 #
   4 # test auto defined() test insertion
   5 #
   6
   7 BEGIN {
   8     chdir 't' if -d 't';
   9     @INC = '../lib';
  10     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
  11     print "1..14\n";
  12 }
  13
  14 $wanted_filename = $^O eq 'VMS' ? '0.' : '0';
  15
  16 print "not " if $warns;
  17 print "ok 1\n";
  18
  19 open(FILE,">./0");
  20 print FILE "1\n";
  21 print FILE "0";
  22 close(FILE);
  23
  24 open(FILE,"<./0");
  25 my $seen = 0;
  26 my $dummy;
  27 while (my $name = <FILE>)
  28  {
  29   $seen++ if $name eq '0';
  30  }
  31 print "not " unless $seen;
  32 print "ok 2\n";
  33
  34 seek(FILE,0,0);
  35 $seen = 0;
  36 my $line = '';
  37 do
  38  {
  39   $seen++ if $line eq '0';
  40  } while ($line = <FILE>);
  41
  42 print "not " unless $seen;
  43 print "ok 3\n";
  44
  45
  46 seek(FILE,0,0);
  47 $seen = 0;
  48 while (($seen ? $dummy : $name) = <FILE>)
  49  {
  50   $seen++ if $name eq '0';
  51  }
  52 print "not " unless $seen;
  53 print "ok 4\n";
  54
  55 seek(FILE,0,0);
  56 $seen = 0;
  57 my %where;
  58 while ($where{$seen} = <FILE>)
  59  {
  60   $seen++ if $where{$seen} eq '0';
  61  }
  62 print "not " unless $seen;
  63 print "ok 5\n";
  64
  65 opendir(DIR,'.');
  66 $seen = 0;
  67 while (my $name = readdir(DIR))
  68  {
  69   $seen++ if $name eq $wanted_filename;
  70  }
  71 print "not " unless $seen;
  72 print "ok 6\n";
  73
  74 rewinddir(DIR);
  75 $seen = 0;
  76 $dummy = '';
  77 while (($seen ? $dummy : $name) = readdir(DIR))
  78  {
  79   $seen++ if $name eq $wanted_filename;
  80  }
  81 print "not " unless $seen;
  82 print "ok 7\n";
  83
  84 rewinddir(DIR);
  85 $seen = 0;
  86 while ($where{$seen} = readdir(DIR))
  87  {
  88   $seen++ if $where{$seen} eq $wanted_filename;
  89  }
  90 print "not " unless $seen;
  91 print "ok 8\n";
  92
  93 $seen = 0;
  94 while (my $name = glob('*'))
  95  {
  96   $seen++ if $name eq $wanted_filename;
  97  }
  98 print "not " unless $seen;
  99 print "ok 9\n";
 100
 101 $seen = 0;
 102 $dummy = '';
 103 while (($seen ? $dummy : $name) = glob('*'))
 104  {
 105   $seen++ if $name eq $wanted_filename;
 106  }
 107 print "not " unless $seen;
 108 print "ok 10\n";
 109
 110 $seen = 0;
 111 while ($where{$seen} = glob('*'))
 112  {
 113   $seen++ if $where{$seen} eq $wanted_filename;
 114  }
 115 print "not " unless $seen;
 116 print "ok 11\n";
 117
 118 unlink("./0");
 119
 120 my %hash = (0 => 1, 1 => 2);
 121
 122 $seen = 0;
 123 while (my $name = each %hash)
 124  {
 125   $seen++ if $name eq '0';
 126  }
 127 print "not " unless $seen;
 128 print "ok 12\n";
 129
 130 $seen = 0;
 131 $dummy = '';
 132 while (($seen ? $dummy : $name) = each %hash)
 133  {
 134   $seen++ if $name eq '0';
 135  }
 136 print "not " unless $seen;
 137 print "ok 13\n";
 138
 139 $seen = 0;
 140 while ($where{$seen} = each %hash)
 141  {
 142   $seen++ if $where{$seen} eq '0';
 143  }
 144 print "not " unless $seen;
 145 print "ok 14\n";
 146