From: Craig A. Berry <craigberry@mac.com>
Date: Fri, 1 Oct 2004 12:57:55 +0000 (-0500)
Subject: make t/uni/class.t pass on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=53cd54806aabd2c7159c2bd2a9152721d6b02e08;p=p5sagit%2Fp5-mst-13.2.git

make t/uni/class.t pass on VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <415D9AA3.1000908@mac.com>

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

diff --git a/t/uni/class.t b/t/uni/class.t
index 130b720..66f3962 100644
--- a/t/uni/class.t
+++ b/t/uni/class.t
@@ -112,10 +112,17 @@ for my $p ('gc', 'sc') {
 }
 
 # test extra properties (ASCII_Hex_Digit, Bidi_Control, etc.)
+SKIP:
 {
-  # Aargh. Nasty case insensitive filesystems mean that Cf.pl will cause a -e
-  # test for cf.pl to return true. So need to read the filenames explicitly
-  # to get a case sensitive test
+  skip "Can't reliably derive class names from file names", 544 if $^O eq 'VMS';
+
+  # On case tolerant filesystems, Cf.pl will cause a -e test for cf.pl to
+  # return true. Try to work around this by reading the filenames explicitly
+  # to get a case sensitive test.  N.B.  This will fail if filename case is
+  # not preserved because you might go looking for a class name of CF or cf
+  # when you really want Cf.  Storing case sensitive data in filenames is 
+  # simply not portable.
+
   my %files;
 
   my $dirname = File::Spec->catdir($updir => lib => unicore => lib => gc_sc);