Select Code to Download

unlink 'test.errors';

...

unlink 'test.errors';

#   Failed test 'lcroak writes to the error file specified by redirect
+_error().'
t/lcroak....NOK 4#   in t/lcroak.t at line 25.
#                   ''
#     doesn't match '(?-xism:this is a sample error file)'
# Looks like you failed 1 test of 4.

{
local $@;
...
ok($@, "lcroak terminates");
}