diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-07 03:16:00 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-07 03:16:00 +0000 |
| commit | 740ce14cd863bb8986a54f425a6f1ec20b26c6cc (patch) | |
| tree | e25f5b48ba535ed07ec57bf13ed1c50973dbacd1 /vms/ext/filespec.t | |
| parent | c43cd16b2d0254cdf3b775a546b5a6986ff4b90a (diff) | |
| download | perl-740ce14cd863bb8986a54f425a6f1ec20b26c6cc.tar.gz | |
VMS 5.003_05 Update.
Diffstat (limited to 'vms/ext/filespec.t')
| -rw-r--r-- | vms/ext/filespec.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t index 7c1d4c9d4e..38cd5368c9 100644 --- a/vms/ext/filespec.t +++ b/vms/ext/filespec.t @@ -8,7 +8,7 @@ foreach (<DATA>) { next if /^\s*$/; push(@tests,$_); } -print '1..',scalar(@tests)+1,"\n"; +print '1..',scalar(@tests)+3,"\n"; foreach $test (@tests) { ($arg,$func,$expect) = split(/\t+/,$test); @@ -24,6 +24,10 @@ foreach $test (@tests) { } print +(rmsexpand('[]') eq "\U$ENV{DEFAULT}" ? 'ok ' : 'not ok '),++$idx,"\n"; +print +(rmsexpand('from.here') eq "\L$ENV{DEFAULT}from.here" ? + 'ok ' : 'not ok '),++$idx,"\n"; +print +(rmsexpand('from.here','cant:[get.there];2') eq + 'cant:[get.there]from.here;2' ? 'ok ' : 'not ok '),++$idx,"\n"; __DATA__ @@ -81,6 +85,7 @@ down/the/garden/path vmspath [.down.the.garden.path] path vmspath [.path] # Redundant characters in Unix paths +//some/where//over/../the.rainbow vmsify some:[where]the.rainbow /some/where//over/./the.rainbow vmsify some:[where.over]the.rainbow ..//../ vmspath [--] ./././ vmspath [] |