update t/porting/filenames.t to check for path components contaning two
authorJesse Vincent <jesse@bestpractical.com>
Mon, 3 Jan 2011 17:24:05 +0000 (01:24 +0800)
committerJesse Vincent <jesse@bestpractical.com>
Mon, 3 Jan 2011 17:25:07 +0000 (01:25 +0800)
"." characters or with lenghts exceeding 32 characters.

t/porting/filenames.t

index 07232c4..67dc89a 100644 (file)
@@ -52,6 +52,21 @@ sub validate_file_name {
     my $path = shift;
     my $filename = basename $path;
 
+
+    my @path_components = split('/',$path);
+    pop @path_components; # throw away the filename
+    for my $component (@path_components) {
+        if ($component =~ /\..*?\./) {
+            fail("$path has a directory component containing more than one '.'");
+            return;
+        }
+
+        if (length($component) > 32) {
+            fail("$path has a directory with a name over 32 characters. This fails on VOS");
+        }
+    }
+
+
     if ($filename =~ m/^\-/) {
         fail("starts with -: $path");
         return;
@@ -81,7 +96,7 @@ sub validate_file_name {
         }
     }
 
-    ok($filename, $filename);
+    ok($filename, $path);
 }
 
 # EOF