Tiny test script tweaks.
Jarkko Hietaniemi [Wed, 13 Feb 2002 00:45:02 +0000 (00:45 +0000)]
p4raw-id: //depot/perl@14665

t/uni/fold.t

index 936a690..789ba67 100644 (file)
@@ -15,13 +15,15 @@ if (open(CF, $CF)) {
     my @CF;
 
     while (<CF>) {
-        if (/^([0-9A-F]+); ([CFSI]); ((?:[0-9A-F]+)(?: [0-9A-F]+)*); \# (.+)/) {
-            next if $2 eq 'S'; # we are going for 'F'ull case folding
+       # Skip S since we are going for 'F'ull case folding
+        if (/^([0-9A-F]+); ([CFI]); ((?:[0-9A-F]+)(?: [0-9A-F]+)*); \# (.+)/) {
            next if EBCDIC && hex $1 < 0x100;
            push @CF, [$1, $2, $3, $4];
        }
     }
 
+    close(CF);
+
     die qq[$0: failed to find casefoldings from "$CF"\n] unless @CF;
 
     print "1..", scalar @CF, "\n";