From ce331809e4684030eba6437d5e3bae0b8f7b8b4b Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 13 Feb 2002 00:45:02 +0000 Subject: [PATCH] Tiny test script tweaks. p4raw-id: //depot/perl@14665 --- t/uni/fold.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/uni/fold.t b/t/uni/fold.t index 936a690..789ba67 100644 --- a/t/uni/fold.t +++ b/t/uni/fold.t @@ -15,13 +15,15 @@ if (open(CF, $CF)) { my @CF; while () { - 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"; -- 2.7.4