Add tests for VMS-Unix file syntax conversion routines

diff --git a/vms/ext/filespec.t b/vms/ext/filespec.t
new file mode 100644 (file)
index 0000000..7c1d4c9
--- /dev/null
+++ b/vms/ext/filespec.t
@@ -0,0 +1,88 @@
+#!./perl
+
+use VMS::Filespec;
+
+foreach (<DATA>) {
+  chomp;
+  s/\s*#.*//;
+  next if /^\s*$/;
+  push(@tests,$_);
+}
+print '1..',scalar(@tests)+1,"\n";
+
+foreach $test (@tests) {
+  ($arg,$func,$expect) = split(/\t+/,$test);
+  $idx++;
+  $rslt = eval "$func('$arg')";
+  if ($@) { print "not ok $idx  : eval error: $@\n"; next; }
+  else {
+    if ($rslt ne $expect) {
+      print "not ok $idx  : $func('$arg') expected |$expect|, got |$rslt|\n";
+    }
+    else { print "ok $idx\n"; }
+  }
+}
+
+print +(rmsexpand('[]') eq "\U$ENV{DEFAULT}" ? 'ok ' : 'not ok '),++$idx,"\n";
+
+__DATA__
+
+# Basic VMS to Unix filespecs
+some:[where.over]the.rainbow   unixify /some/where/over/the.rainbow
+[.some.where.over]the.rainbow  unixify some/where/over/the.rainbow
+[-.some.where.over]the.rainbow unixify ../some/where/over/the.rainbow
+[.some.--.where.over]the.rainbow       unixify some/../../where/over/the.rainbow
+[]     unixify         ./
+[-]    unixify         ../
+[--]   unixify         ../../
+
+# and back again
+/some/where/over/the.rainbow   vmsify  some:[where.over]the.rainbow
+some/where/over/the.rainbow    vmsify  [.some.where.over]the.rainbow
+../some/where/over/the.rainbow vmsify  [-.some.where.over]the.rainbow
+some/../../where/over/the.rainbow      vmsify  [-.where.over]the.rainbow
+.      vmsify  []
+..     vmsify  [-]
+../..  vmsify  [--]
+
+# Fileifying directory specs
+down:[the.garden.path] fileify down:[the.garden]path.dir;1
+[.down.the.garden.path]        fileify [.down.the.garden]path.dir;1
+/down/the/garden/path  fileify /down/the/garden/path.dir;1
+/down/the/garden/path/ fileify /down/the/garden/path.dir;1
+down/the/garden/path   fileify down/the/garden/path.dir;1
+down:[the.garden]path  fileify down:[the.garden]path.dir;1
+down:[the.garden]path. fileify # N.B. trailing . ==> null type
+down:[the]garden.path  fileify 
+/down/the/garden/path. fileify # N.B. trailing . ==> null type
+/down/the/garden.path  fileify 
+
+# and pathifying them
+down:[the.garden]path.dir;1    pathify down:[the.garden.path]
+[.down.the.garden]path.dir     pathify [.down.the.garden.path]
+/down/the/garden/path.dir      pathify /down/the/garden/path/
+down/the/garden/path.dir       pathify down/the/garden/path/
+down:[the.garden]path  pathify down:[the.garden.path]
+down:[the.garden]path. pathify # N.B. trailing . ==> null type
+down:[the]garden.path  pathify 
+/down/the/garden/path. pathify # N.B. trailing . ==> null type
+/down/the/garden.path  pathify 
+down:[the.garden]path.dir;2    pathify #N.B. ;2
+path   pathify path/
+path.notdir    pathify 
+
+# Both VMS/Unix and file/path conversions
+down:[the.garden]path.dir;1    unixpath        /down/the/garden/path/
+/down/the/garden/path  vmspath down:[the.garden.path]
+down:[the.garden.path] unixpath        /down/the/garden/path/
+/down/the/garden/path.dir      vmspath down:[the.garden.path]
+[.down.the.garden]path.dir     unixpath        down/the/garden/path/
+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.over]the.rainbow
+..//../        vmspath [--]
+./././ vmspath []
+./../. vmsify  [-]
+