| Subject: | t/metadata.t failure under Cygwin |
I get the following failure:
Show quoted text
> ../../perl.exe -I../../lib t/metadata.t
1..116
ok 1 - require Module::Metadata;
ok 2 - find_module_by_name() succeeds
ok 3 - fail if can't find module by module name
ok 4 - fail if can't find module by file name
ok 5 - new_from_file() succeeds
ok 6 - new_from_handle() succeeds
ok 7 - new_from_handle() without filename returns undef
ok 8 - new_from_module() succeeds
Can't write '/tmp/MB-wQi2Imf6/Simple/lib/Simple.pm'
# Looks like you planned 116 tests but ran 8.
# Looks like your test exited with 13 just after 8.
This is because there is an open filehandle in the test script. The
attached patch fixes this.
| Subject: | mod-meta.patch |
--- t/metadata.t-orig 2012-07-14 17:58:27.177375000 -0400
+++ t/metadata.t 2012-07-14 17:44:06.517375000 -0400
@@ -246,7 +246,7 @@
ok( defined( $pm_info ), 'new_from_handle() succeeds' );
$pm_info = Module::Metadata->new_from_handle( $handle );
is( $pm_info, undef, "new_from_handle() without filename returns undef" );
-
+close($handle);
# construct from module name, using custom include path
$pm_info = Module::Metadata->new_from_module(