git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
t: planned test count beforehand
[barcat.git]
/
t
/
examples.t
diff --git
a/t/examples.t
b/t/examples.t
index ae3e7c9c8721d9a7ab43375c0f3159e48c138fa2..1af87e5fa5a368e799f589d5f6a2393f5d67dc73 100755
(executable)
--- a/
t/examples.t
+++ b/
t/examples.t
@@
-2,6
+2,7
@@
use 5.014;
use warnings;
use re '/ms';
use 5.014;
use warnings;
use re '/ms';
+use IPC::Run 'run';
use Test::More;
{ # silence fail diagnostics because of single caller
use Test::More;
{ # silence fail diagnostics because of single caller
@@
-47,15
+48,16
@@
while (readline $input) {
$subcmd .= " \\K", $args .= ' ' unless $subcmd =~ m/\\K/;
$cmd =~ s/\b$subcmd/$args/;
}
$subcmd .= " \\K", $args .= ' ' unless $subcmd =~ m/\\K/;
$cmd =~ s/\b$subcmd/$args/;
}
-
$cmd =~ s/'/'\\''/g, $cmd = " bash -c 'set -o pipefail\n$cmd'"
;
+
my @cmd = (bash => -c => "set -o pipefail\n$cmd")
;
# run and report unexpected results
ok(eval {
# run and report unexpected results
ok(eval {
- my $output = qx($cmd);
- $? == 0 or die "error status ", $? >> 8, "\n";
+ run(\@cmd, \undef, \my $output, \my $error);
+ die("error message:\n $error\n") if $error;
+ $? == 0 or die "exit status ", $? >> 8, "\n";
length $output or die "empty output\n";
return 1;
length $output or die "empty output\n";
return 1;
- }, $name) or diag("Failed command\n
$
cmd\nfrom $filename line $.: $@");
+ }, $name) or diag("Failed command\n
@
cmd\nfrom $filename line $.: $@");
}
done_testing();
}
done_testing();