From: Craig A. Berry <craigberry@mac.com>
Date: Tue, 17 Jan 2006 03:28:20 +0000 (+0000)
Subject: more case tolerance for vms/ext/filespec.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51078f7bc8ba938e8bb9302522fc032016e57e52;p=p5sagit%2Fp5-mst-13.2.git

more case tolerance for vms/ext/filespec.t

p4raw-id: //depot/perl@26869
---

diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t
index b0efa4c..6c099d9 100644
--- a/vms/ext/filespec.t
+++ b/vms/ext/filespec.t
@@ -21,7 +21,7 @@ foreach $test (@tests) {
   $expect = undef if $expect eq 'undef';
   $rslt = eval "$func('$arg')";
   is($@, '', "eval ${func}('$arg')");
-  is($rslt, $expect, "${func}('$arg'): '$rslt'");
+  is(lc($rslt), lc($expect), "${func}('$arg'): '$rslt'");
 }
 
 $defwarn = <<'EOW';
@@ -32,10 +32,10 @@ $defwarn = <<'EOW';
 EOW
 
 is(uc(rmsexpand('[]')),   "\U$ENV{DEFAULT}", 'rmsexpand()') || print $defwarn;
-is(rmsexpand('from.here'),"\L$ENV{DEFAULT}from.here") || print $defwarn;
-is(rmsexpand('from'),     "\L$ENV{DEFAULT}from")      || print $defwarn;
+is(lc(rmsexpand('from.here')),"\L$ENV{DEFAULT}from.here") || print $defwarn;
+is(lc(rmsexpand('from')),     "\L$ENV{DEFAULT}from")      || print $defwarn;
 
-is(rmsexpand('from.here','cant:[get.there];2'),
+is(lc(rmsexpand('from.here','cant:[get.there];2')),
    'cant:[get.there]from.here;2')                     || print $defwarn;