Skip to content

Commit

Permalink
[TODO FUDGE] run(:merge) on non-existent program does not crash
Browse files Browse the repository at this point in the history
RT#128594
  • Loading branch information
zoffixznet committed Jul 13, 2016
1 parent eb77164 commit a8afed7
Showing 1 changed file with 12 additions and 1 deletion.
13 changes: 12 additions & 1 deletion S29-os/system.t
Expand Up @@ -8,7 +8,7 @@ use Test::Util;
# L<S29/"OS"/"=item run">
# system is renamed to run, so link there.

plan 20;
plan 30;

my $res;

Expand Down Expand Up @@ -72,7 +72,18 @@ throws-like { shell("program_that_does_not_exist_ignore_errors_please.exe") },
is $rt115390, 5050, 'no crash with run() in loop; run() not in sink context';
}

# RT #128594
{
for ^10 {
#?rakudo todo 'RT 128594'
is_run q{run("non-existent-program-RT128594", :merge).out.slurp-rest},
{ status => 0 },
":merge with run on non-existent program does not crash [attempt $_]"
}
}

# all these tests feel like bogus, what are we testing here???
# note: is_run fails after these tests because we are no longer in the right dir
chdir "t";
my $cwd;
BEGIN { $cwd = $*DISTRO.is-win ?? 'cd' !! 'pwd' };
Expand Down

0 comments on commit a8afed7

Please sign in to comment.