@@ -5,6 +5,10 @@ Revision history for autodie * TEST: hints.t produces less debugging output when testing the Perl core. (Thanks to Jerry D. Hedden) + * TEST: hints.t no longer spuriously fails when checking + the return values from File::Copy under Windows before + Perl 5.10.1. (Thanks to Curtis Jewell) + 2.03 Wed Jul 1 15:39:16 AUSEST 2009 * BUGFIX: Stopped blog_hints.t from booching under Perl Changes @@ -61,7 +61,14 @@ isnt("$@", "", "Copying in scalar context should throw an error."); isa_ok($@, "autodie::exception"); is($@->function, "File::Copy::copy", "Function should be original name"); -is($@->return, 0, "File::Copy returns zero on failure"); + +SKIP: { + skip("File::Copy is weird on Win32 before 5.10.1", 1) + if ( ! PERL5101 and $^O eq "MSWin32" ); + + is($@->return, 0, "File::Copy returns zero on failure"); +} + is($@->context, "scalar", "File::Copy called in scalar context"); # List context test. @@ -76,7 +83,13 @@ isnt("$@", "", "Copying in list context should throw an error."); isa_ok($@, "autodie::exception"); is($@->function, "File::Copy::copy", "Function should be original name"); -is_deeply($@->return, [0], "File::Copy returns zero on failure"); + +SKIP: { + skip("File::Copy is weird on Win32 before 5.10.1", 1) + if ( ! PERL5101 and $^O eq "MSWin32" ); + + is_deeply($@->return, [0], "File::Copy returns zero on failure"); +} is($@->context, "list", "File::Copy called in list context"); # Tests on loaded funcs. t/hints.t a72aad70935ed7c385395fa3c792de40d54a79c1 Paul Fenwick pjf@perltraining.com.au http://github.com/pfenwick/autodie/commit/fe193f2af05c902063ed73abf84b1d5740b8d193 fe193f2af05c902063ed73abf84b1d5740b8d193 2009-07-01T21:49:32-07:00 2009-07-01T21:49:32-07:00 Remove spurious failures from hints.t/File::Copy under Win32 and < 5.10.1 Thanks to Curtis Jewell for spotting this. 674e50b491b30bac43cce8e444de92ed58ffa3fb Paul Fenwick pjf@perltraining.com.au