diff --git a/test/recipes/20-test_enc.t b/test/recipes/20-test_enc.t index 836d9792f..55f39421f 100644 --- a/test/recipes/20-test_enc.t +++ b/test/recipes/20-test_enc.t @@ -51,10 +51,8 @@ if (!$init) { @d = ( "enc", @{$variant{$t}}, "-d" ); } - ok(run(app([$cmd, @e], - stdin => $test, stdout => $cipherfile)) - && run(app([$cmd, @d], - stdin => $cipherfile, stdout => $clearfile)) + ok(run(app([$cmd, @e, "-in", $test, "-out", $cipherfile])) + && run(app([$cmd, @d, "-in", $cipherfile, "-out", $clearfile])) && compare_text($test,$clearfile) == 0, $t); unlink $cipherfile, $clearfile; } diff --git a/test/recipes/tconversion.pl b/test/recipes/tconversion.pl index 07e34060f..0f9b03b48 100644 --- a/test/recipes/tconversion.pl +++ b/test/recipes/tconversion.pl @@ -53,8 +53,9 @@ sub tconversion { ok(run(app([@cmd, "-in", "$testtype-fff.p", "-inform", "p", - "-outform", $to], - stdout => "$testtype-f.$to")), "p -> $to"); + "-out", "$testtype-f.$to", + "-outform", $to])), + "p -> $to"); } foreach my $to (@conversionforms) { @@ -62,8 +63,9 @@ sub tconversion { ok(run(app([@cmd, "-in", "$testtype-f.$from", "-inform", $from, - "-outform", $to], - stdout => "$testtype-ff.$from$to")), "$from -> $to"); + "-out", "$testtype-ff.$from$to", + "-outform", $to])), + "$from -> $to"); } }