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 close FILE;
  65
  66 opendir(DIR,'.');
  67 $seen = 0;
  68 while (my $name = readdir(DIR))
  69  {
  70   $seen++ if $name eq $wanted_filename;
  71  }
  72 print "not " unless $seen;
  73 print "ok 6\n";
  74
  75 rewinddir(DIR);
  76 $seen = 0;
  77 $dummy = '';
  78 while (($seen ? $dummy : $name) = readdir(DIR))
  79  {
  80   $seen++ if $name eq $wanted_filename;
  81  }
  82 print "not " unless $seen;
  83 print "ok 7\n";
  84
  85 rewinddir(DIR);
  86 $seen = 0;
  87 while ($where{$seen} = readdir(DIR))
  88  {
  89   $seen++ if $where{$seen} eq $wanted_filename;
  90  }
  91 print "not " unless $seen;
  92 print "ok 8\n";
  93
  94 $seen = 0;
  95 while (my $name = glob('*'))
  96  {
  97   $seen++ if $name eq $wanted_filename;
  98  }
  99 print "not " unless $seen;
 100 print "ok 9\n";
 101
 102 $seen = 0;
 103 $dummy = '';
 104 while (($seen ? $dummy : $name) = glob('*'))
 105  {
 106   $seen++ if $name eq $wanted_filename;
 107  }
 108 print "not " unless $seen;
 109 print "ok 10\n";
 110
 111 $seen = 0;
 112 while ($where{$seen} = glob('*'))
 113  {
 114   $seen++ if $where{$seen} eq $wanted_filename;
 115  }
 116 print "not " unless $seen;
 117 print "ok 11\n";
 118
 119 unlink("./0");
 120
 121 my %hash = (0 => 1, 1 => 2);
 122
 123 $seen = 0;
 124 while (my $name = each %hash)
 125  {
 126   $seen++ if $name eq '0';
 127  }
 128 print "not " unless $seen;
 129 print "ok 12\n";
 130
 131 $seen = 0;
 132 $dummy = '';
 133 while (($seen ? $dummy : $name) = each %hash)
 134  {
 135   $seen++ if $name eq '0';
 136  }
 137 print "not " unless $seen;
 138 print "ok 13\n";
 139
 140 $seen = 0;
 141 while ($where{$seen} = each %hash)
 142  {
 143   $seen++ if $where{$seen} eq '0';
 144  }
 145 print "not " unless $seen;
 146 print "ok 14\n";
 147