From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Thu, 27 Jun 1996 02:13:01 +0000 (+0000)
Subject: Add tests for VMS-Unix file syntax conversion routines
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=acbb349efe800369164f5f9e27b78797fb74036d;p=p5sagit%2Fp5-mst-13.2.git

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
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	[-]
+