| Subject: | t/carped.t fails on VMS with Perl 5.8.7 - PATCH |
Hello and thank you for Test::Warn 0.11
t/carped.t fails on VMS with Perl 5.8.7 because the warn
being checked contains a *nix file path as this is the syntax
used when "make test" (I'm using MMK) invokes the tests thus:
MCR _dev:[path]perl.exe "-MExtUtils::Command::MM" "-e" "test_harness
(0, '[.blib.lib]', '[.blib.arch]')" t/*.t
The fix is to set $tcarped to "t/carped.t" on VMS, otherwise
it is "[.t]carped.t" and this does not match the warn:
==== test-warn-0_11/t/carped.t#1 - test-warn-0_11/t/carped.t ====
20a21,30
Show quoted text
>
> # When running this test on VMS the output of the filename
> # is t/carped.t, and NOT [.t]carped.t
> # It seems strange having to add this condition to get the tests to
pass,
Show quoted text> # but maybe other OS's versions of Perl warn/warn with the OS version
of the filename.
Show quoted text>
> if ($^O eq 'VMS') {
> $tcarped = 't/carped.t';
> }
>
Cheers,
Peter (Stig) Edwards