如何测试包括$的错误消息！没有区域设置问题？

Question

In my module, I've got this code:

croak("unable to parse file: $!");

Then, in my tests, I want to check that I get the right error message when I attempt to parse a file that doesn't exist:

like(
    exception { HTML::Tree->new_from_file( "t/non_existent.html" ) },
    qr!^unable to parse file: No such file !,
    "opening missing file failed"
);

This works fine, as long as the tests are running in an English locale. But if you run the tests in a German locale, the error message will come back unable to parse file: Datei oder Verzeichnis nicht gefunden and the test fails. Other locales have similar issues.

I can't believe this is the first time this has come up, but I can't find any modules on CPAN that address this issue. Do people simply never test the $! part of the error message? Is there a better solution than changing the test to only check for qr!^unable to parse file: ! ?

Note: this is RT#77823 in HTML-Tree .

Answer 1

Is there a better solution than changing the test to only check for qr!^unable to parse file: !?

$! is a dual variable, ie it has string and numeric values. You could use the numeric value in the error message.

Answer 2

You could use %! to test for errors symbolically as in

unless (open my $fh, "<", "/does/not/exist") {
  die "$0: unexpected errno " . ($! + 0)
    unless $!{ENOENT};
}

Answer 3

1. Tests for a module M should not check for features that M isn't responsible for.
2. Code that fails because of a non existing file should not croak "can't parse (file spec)", but "can't find (file spec)".

Answer 4

The way I solve this is to put

BEGIN { $ENV{LANG} = $ENV{LC_MESSAGES} = $ENV{LC_ALL} = "C" }

in any unit test script that involves such testing. That way, the locale is set to C for the duration of that test, and messages will reliably come in the plain C locale, rather than being localised.