diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-11-15 14:56:16 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2013-11-15 14:56:16 +0000 |
| commit | 24a9a64b2ef0fc76f883e6b5e693b611e8d29218 (patch) | |
| tree | ae840250c6780e94ff0d8da9aa9c2fdd83e3c244 /cpan | |
| parent | 1ca67c899cfe66644e9f361a62a1a6e8556e97f2 (diff) | |
| download | perl-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.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-Cmd/t/03_run-forked.t | 20 |
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"); |