-
-# Check to see that all error messages use tags (for l10n reasons.)
-foreach my $file (@testitems) {
- $file =~ s/\s.*$//; # nuke everything after the first space (#comment)
- next if (!$file); # skip null entries
- if (! open (FILE, $file)) {
- ok(0,"could not open $file --WARNING");
- next;
- }
- my $lineno = 0;
- my $error = 0;
-
- while (!$error && (my $file_line = <FILE>)) {
- $lineno++;
- if ($file_line =~ /Throw.*Error\("(.*?)"/) {
- if ($1 =~ /\s/) {
- ok(0,"$file has a Throw*Error call on line $lineno which doesn't use a tag --ERROR");
- $error = 1;
- }
- }
- }
-
- ok(1,"$file uses Throw*Error calls correctly") if !$error;
-
- close(FILE);