This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix IPC-Cmd tests for Solaris (and potentially other SVR* variants)
[perl5.git] / cpan / IPC-Cmd / t / 03_run-forked.t
index 8e9051f..eedbad8 100644 (file)
@@ -31,9 +31,9 @@ unless ( $true and $false and $echo and $sleep ) {
 my $r;
 
 $r = run_forked($true);
-ok($r->{'exit_code'} eq 0, "$true returns 0");
+ok($r->{'exit_code'} eq '0', "$true returns 0");
 $r = run_forked($false);
-ok($r->{'exit_code'} eq 1, "$false returns 1");
+ok($r->{'exit_code'} ne '0', "$false returns 1");
 
 $r = run_forked([$echo, "test"]);
 ok($r->{'stdout'} =~ /test/, "arrayref cmd: https://rt.cpan.org/Ticket/Display.html?id=70530");