diff options
author | Damyan Ivanov <dmn@debian.org> | 2008-06-24 05:48:08 +0000 |
---|---|---|
committer | Damyan Ivanov <dmn@debian.org> | 2008-06-24 05:48:08 +0000 |
commit | 4b0a1050feb317d60d5d4b699b06ea014b77b4a7 (patch) | |
tree | a95ce9005a3b2e67c6e8d91777b4b7e291ac096b /t/sign.t |
[svn-inject] Installing original source of libgnupg-interface-perl
Diffstat (limited to 't/sign.t')
-rw-r--r-- | t/sign.t | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/t/sign.t b/t/sign.t new file mode 100644 index 0000000..57303fc --- /dev/null +++ b/t/sign.t @@ -0,0 +1,38 @@ +#!/usr/bin/perl -w +# +# $Id: sign.t,v 1.4 2001/05/03 06:00:06 ftobin Exp $ +# + +use strict; +use English; + +use lib './t'; +use MyTest; +use MyTestSpecific; + +TEST +{ + reset_handles(); + + my $pid = $gnupg->sign( handles => $handles ); + + print $stdin @{ $texts{plain}->data() }; + close $stdin; + waitpid $pid, 0; + + return $CHILD_ERROR == 0; +}; + + +TEST +{ + reset_handles(); + + $handles->stdin( $texts{plain}->fh() ); + $handles->options( 'stdin' )->{direct} = 1; + my $pid = $gnupg->sign( handles => $handles ); + + waitpid $pid, 0; + + return $CHILD_ERROR == 0; +}; |