1#!/usr/bin/perl -w 2# 3# $Id: sign.t,v 1.4 2001/05/03 06:00:06 ftobin Exp $ 4# 5 6use strict; 7use English qw( -no_match_vars ); 8 9use lib './t'; 10use MyTest; 11use MyTestSpecific; 12 13TEST 14{ 15 reset_handles(); 16 17 my $pid = $gnupg->sign( handles => $handles ); 18 19 print $stdin @{ $texts{plain}->data() }; 20 close $stdin; 21 waitpid $pid, 0; 22 23 return $CHILD_ERROR == 0; 24}; 25 26 27TEST 28{ 29 reset_handles(); 30 31 $handles->stdin( $texts{plain}->fh() ); 32 $handles->options( 'stdin' )->{direct} = 1; 33 my $pid = $gnupg->sign( handles => $handles ); 34 35 waitpid $pid, 0; 36 37 return $CHILD_ERROR == 0; 38}; 39