Fix test added in change 23645 with an eval()

[p5sagit/p5-mst-13.2.git] / t / op / defins.t

diff --git a/t/op/defins.t b/t/op/defins.t
index 5dd614d..06d48b6 100755 (executable)
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -10,16 +10,19 @@ BEGIN {
     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
     print "1..14\n";
 }
+
+$wanted_filename = $^O eq 'VMS' ? '0.' : '0';
+$saved_filename = $^O eq 'MacOS' ? ':0' : './0';
     
 print "not " if $warns;
 print "ok 1\n";
 
-open(FILE,">./0");
+open(FILE,">$saved_filename");
 print FILE "1\n";
 print FILE "0";
 close(FILE);
 
-open(FILE,"<./0");
+open(FILE,"<$saved_filename");
 my $seen = 0;
 my $dummy;
 while (my $name = <FILE>)
@@ -59,12 +62,13 @@ while ($where{$seen} = <FILE>)
  }
 print "not " unless $seen;
 print "ok 5\n";
+close FILE;
 
-opendir(DIR,'.');
+opendir(DIR,($^O eq 'MacOS' ? ':' : '.'));
 $seen = 0;
 while (my $name = readdir(DIR))
  {
-  $seen++ if $name eq '0';
+  $seen++ if $name eq $wanted_filename;
  }            
 print "not " unless $seen;
 print "ok 6\n";
@@ -74,7 +78,7 @@ $seen = 0;
 $dummy = '';
 while (($seen ? $dummy : $name) = readdir(DIR))
  {
-  $seen++ if $name eq '0';
+  $seen++ if $name eq $wanted_filename;
  }
 print "not " unless $seen;
 print "ok 7\n";
@@ -83,7 +87,7 @@ rewinddir(DIR);
 $seen = 0;    
 while ($where{$seen} = readdir(DIR))
  {
-  $seen++ if $where{$seen} eq '0';
+  $seen++ if $where{$seen} eq $wanted_filename;
  }
 print "not " unless $seen;
 print "ok 8\n";
@@ -91,7 +95,7 @@ print "ok 8\n";
 $seen = 0;
 while (my $name = glob('*'))
  {
-  $seen++ if $name eq '0';
+  $seen++ if $name eq $wanted_filename;
  }            
 print "not " unless $seen;
 print "ok 9\n";
@@ -100,7 +104,7 @@ $seen = 0;
 $dummy = '';
 while (($seen ? $dummy : $name) = glob('*'))
  {
-  $seen++ if $name eq '0';
+  $seen++ if $name eq $wanted_filename;
  }
 print "not " unless $seen;
 print "ok 10\n";
@@ -108,12 +112,12 @@ print "ok 10\n";
 $seen = 0;    
 while ($where{$seen} = glob('*'))
  {
-  $seen++ if $where{$seen} eq '0';
+  $seen++ if $where{$seen} eq $wanted_filename;
  }
 print "not " unless $seen;
 print "ok 11\n";
 
-unlink("./0");
+unlink($saved_filename);
 
 my %hash = (0 => 1, 1 => 2);