Make tests pass on case-insensitive file systems other than VMS.

theory · Nov 12, 2010 · 2e1cee2 · 2e1cee2
1 parent bdbd2b5
commit 2e1cee2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/search50.t b/t/search50.t
@@ -77,9 +77,9 @@ if( $testmod ) {
   print "# Comparing \"$x[0]\" to \"$x[1]\"\n";
   for(@x) { s{[/\\]}{/}g; }
   print "#        => \"$x[0]\" to \"$x[1]\"\n";
-  skip $^O eq 'VMS' ? '-- case may or may not be preserved' : 0,
-       $x[0], 
-       $x[1], 
+  ok
+       lc $x[0], 
+       lc $x[1], 
        " find('$testmod') should match survey's name2where{$testmod}";
 } else {
   ok 0;  # no 'thatpath/<name>.pm' means can't test find()