diff options
Diffstat (limited to 't/wrap_call.t')
-rw-r--r-- | t/wrap_call.t | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/t/wrap_call.t b/t/wrap_call.t index 22b074c..8677d54 100644 --- a/t/wrap_call.t +++ b/t/wrap_call.t @@ -12,21 +12,21 @@ use MyTestSpecific; TEST { reset_handles(); - + my $pid = $gnupg->wrap_call ( commands => [ qw( --list-packets ) ], - command_args => [ qw( test/key.1.asc ) ], - handles => $handles, + command_args => [ qw( test/key.1.asc ) ], + handles => $handles, ); - + close $stdin; - + my @out = <$stdout>; waitpid $pid, 0; - + return @out > 0; #just check if we have output. }; - + TEST { return $CHILD_ERROR == 0; @@ -37,20 +37,20 @@ TEST TEST { reset_handles(); - + my $pid = $gnupg->wrap_call ( gnupg_commands => [ qw( --list-packets ) ], - gnupg_command_args => [ qw( test/key.1.asc ) ], - handles => $handles, + gnupg_command_args => [ qw( test/key.1.asc ) ], + handles => $handles, ); - + close $stdin; - + my @out = <$stdout>; waitpid $pid, 0; - + return @out > 0; #just check if we have output. -}; +}; TEST |