| Subject: | several tests hang on Windows |
Strawberry perl 5.14.0, 5.16.1, 5.8.9, Windows XP SP3
Show quoted text
>perl -Mblib t/tap2junit-filter.t
1..2
ok 1 - tap2junit started
Terminating on signal SIGINT(2)
tap2junit.t no longer hangs after applying attached patch
--
Alexandr Ciornii, http://chorny.net
| Subject: | tap2junit.t.patch |
--- tap2junit.t.dist 2012-01-26 01:35:55.000000000 +0200
+++ tap2junit.t 2012-11-15 17:29:20.562500000 +0200
@@ -5,6 +5,7 @@
use Test::More;
use Test::Differences;
use File::Slurp qw(slurp);
+use File::Spec;
###############################################################################
# Figure out how many TAP files we have to run. Yes, the results *ARE* going
@@ -19,7 +20,9 @@
foreach my $test (@tests) {
(my $junit = $test) =~ s{/tap/}{/tap/junit/};
- my $rc = system(qq{ $^X -Iblib/lib blib/script/tap2junit $test 2>/dev/null });
+ my $devnull = File::Spec->devnull();
+ my $cmd = qq{ $^X -Iblib/lib blib/script/tap2junit $test 2>$devnull };
+ my $rc = system($cmd);
my $outfile = "$test.xml";
my $received = slurp($outfile);