Cross Reference: /openbsd-current/gnu/usr.bin/perl/lib/unicore/mktables

19220 my $Validation = "Validation Tests";
19221 my $Validation_Documentation = "Documentation of validation Tests";
20151 # buggy, this won't necessarily catch those bugs.  Tests are generated for all
20158 my $Tests = 0;
20165     print ++$Tests;
20189         $Tests++;
20197             print "not ok $Tests - couldn't compile /$regex/; line $line: $@\n";
20201             print "not ok $Tests - expected $expected but got $result for $string =~ qr/$regex/; line $line\n";
20206                 print "not ok $Tests - for qr/$regex/ did not expect warning message '$warning_message'; line $line\n";
20210                 print "ok $Tests - expected and got a warning message for qr/$regex/; line $line\n";
20214             print "not ok $Tests - for qr/$regex/ expected a $warning_type warning message, but got none; line $line\n";
20218             print "ok $Tests - got $result for $string =~ qr/$regex/; line $line\n";
20225     $Tests++;
20229         print "not ok $Tests - re compiled ok, but expected error for qr/$regex/; line $line: $@\n";
20233         print "ok $Tests - got and expected error for qr/$regex/; line $line\n";
20442             print "ok ", ++$Tests, " - \"$display_string\" $matched_text /$pattern/$display_upgrade; line $line $display_locale$comment\n";
20454                 print "ok ", ++$Tests, " - \"$display_string\" $matched_text /$B_pattern/$display_upgrade; line $line $display_locale";
20469             $Tests++;
20471                 print "ok $Tests - ";
20481                 print "not ok $Tests -";
20493         $Tests++;
20495             print "ok $Tests - Nothing was left over; line $line\n";
20497             print "not ok $Tests - There were ", scalar @should_match, " \\X matches expected, but got ", scalar @matches, " instead; line $line";
20523     print "1..$Tests\n";