summaryrefslogtreecommitdiff
path: root/cpan
diff options
context:
space:
mode:
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>2013-11-15 14:56:16 +0000
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>2013-11-15 14:56:16 +0000
commit24a9a64b2ef0fc76f883e6b5e693b611e8d29218 (patch)
treeae840250c6780e94ff0d8da9aa9c2fdd83e3c244 /cpan
parent1ca67c899cfe66644e9f361a62a1a6e8556e97f2 (diff)
downloadperl-24a9a64b2ef0fc76f883e6b5e693b611e8d29218.tar.gz
Update IPC-Cmd to CPAN version 0.88
[DELTA] 0.88 Fri Nov 15 14:44:03 GMT 2013 Misc: * skip some problematic tests on Cygwin
Diffstat (limited to 'cpan')
-rw-r--r--cpan/IPC-Cmd/lib/IPC/Cmd.pm2
-rw-r--r--cpan/IPC-Cmd/t/03_run-forked.t20
2 files changed, 12 insertions, 10 deletions
diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
index e41095ffd9..8fdd26c659 100644
--- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm
+++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
@@ -18,7 +18,7 @@ BEGIN {
$HAVE_MONOTONIC
];
- $VERSION = '0.86';
+ $VERSION = '0.88';
$VERBOSE = 0;
$DEBUG = 0;
$WARN = 1;
diff --git a/cpan/IPC-Cmd/t/03_run-forked.t b/cpan/IPC-Cmd/t/03_run-forked.t
index 633f7ccd98..ecb271601e 100644
--- a/cpan/IPC-Cmd/t/03_run-forked.t
+++ b/cpan/IPC-Cmd/t/03_run-forked.t
@@ -42,9 +42,10 @@ ok($r->{'stdout'} =~ /test/, "arrayref cmd: https://rt.cpan.org/Ticket/Display.h
$r = run_forked("$sleep 5", {'timeout' => 2});
ok($r->{'timeout'}, "[$sleep 5] runs longer than 2 seconds");
-
-# https://rt.cpan.org/Ticket/Display.html?id=85912
-sub runSub {
+SKIP: {
+ skip "Exhibits problems on Cygwin", 4 if $^O eq 'cygwin';
+ # https://rt.cpan.org/Ticket/Display.html?id=85912
+ sub runSub {
my $blah = "blahblah";
my $out= $_[0];
my $err= $_[1];
@@ -56,13 +57,14 @@ sub runSub {
};
return run_forked($s);
-}
+ }
-my $retval= runSub("sailor", "eek!");
-ok($retval->{"stdout"} =~ /blahblah/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 1");
-ok($retval->{"stdout"} =~ /Hello sailor/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 2");
-ok($retval->{"stderr"} =~ /Boo/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 1");
-ok($retval->{"stderr"} =~ /eek/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 2");
+ my $retval= runSub("sailor", "eek!");
+ ok($retval->{"stdout"} =~ /blahblah/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 1");
+ ok($retval->{"stdout"} =~ /Hello sailor/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stdout 2");
+ ok($retval->{"stderr"} =~ /Boo/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 1");
+ ok($retval->{"stderr"} =~ /eek/, "https://rt.cpan.org/Ticket/Display.html?id=85912 stderr 2");
+}
$r = run_forked("$echo yes i know this is the way", {'discard_output' => 1});
ok($r->{'stdout'} eq '', "discard_output stdout");