diff options
| author | Craig A. Berry <craigberry@mac.com> | 2006-01-17 03:28:20 +0000 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-01-17 03:28:20 +0000 |
| commit | 51078f7bc8ba938e8bb9302522fc032016e57e52 (patch) | |
| tree | 3ac9964769046179c4b35f73761570b4ec4d3b5b /vms | |
| parent | 7692a1edf7c7e1676cdb76e2a016e73fa1a5a254 (diff) | |
| download | perl-51078f7bc8ba938e8bb9302522fc032016e57e52.tar.gz | |
more case tolerance for vms/ext/filespec.t
p4raw-id: //depot/perl@26869
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/ext/filespec.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index b0efa4c7e6..6c099d9612 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; |