| Date: | Wed, 25 Feb 2004 11:36:15 +0000 |
| From: | Steve Hay <steve.hay [...] uk.radan.com> |
| To: | andy [...] petdance.com |
| Subject: | [PATCH] Fix test failure in Test::Pod module |
Hi Andy,
I'm just trying out your Test::Pod module (version 1.08) on Win32 and
found that one of the tests fails:
t\all_pod_files........ok 1/2# Failed test (t\all_pod_files.t at
line 23)
t\all_pod_files........NOK 2# Structures begin differing at:
# $got->[1] = 't\pod/good.pod'
# $expected->[1] = 't/pod/good.pod'
# Looks like you failed 1 tests of 2.
t\all_pod_files........dubious
Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 2
As you can see, the "got" value has a combination of backslashes and
forward slashes. The backslash presumably arises from the use of
File::Spec->catfile('t', 'pod'), and indeed the following patch fixes
the error for me on Win32. Hopefully it won't break on other platforms:
Start of Patch
--- t/all_pod_files.t.orig 2004-01-21 06:39:26.000000000 +0000
+++ t/all_pod_files.t 2004-02-25 11:30:14.273717400 +0000
@@ -8,7 +8,7 @@
use_ok( "Test::Pod" );
}
-my $tpod = File::Spec->catfile( qw( t pod ) );
+my $tpod = 't/pod';
my @files = Test::Pod::all_pod_files( "blib", $tpod );
# The expected files have slashes, not File::Spec separators, because
End of Patch
Cheers,
- Steve
------------------------------------------------
Radan Computational Ltd.
The information contained in this message and any files transmitted with it are confidential and intended for the addressee(s) only. If you have received this message in error or there are any problems, please notify the sender immediately. The unauthorized use, disclosure, copying or alteration of this message is strictly forbidden. Note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Radan Computational Ltd. The recipient(s) of this message should check it and any attached files for viruses: Radan Computational will accept no liability for any damage caused by any virus transmitted by this email.