← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/libgnupg-interface-perl/gutsy

« back to all changes in this revision

Viewing changes to t/detach_sign.t

  • Committer: Bazaar Package Importer
  • Author(s): Peter Palfrader
  • Date: 2002-03-31 20:54:51 UTC
  • Revision ID: james.westby@ubuntu.com-20020331205451-ggm3hbo19ff14h1l
Tags: upstream-0.31
Import upstream version 0.31

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/detach_sign.t
 
1
#!/usr/bin/perl -w
 
2
#
 
3
# $Id: detach_sign.t,v 1.4 2001/05/03 06:00:06 ftobin Exp $
 
4
#
 
5
 
 
6
use strict;
 
7
use English;
 
8
 
 
9
use lib './t';
 
10
use MyTest;
 
11
use MyTestSpecific;
 
12
 
 
13
TEST
 
14
{
 
15
    reset_handles();
 
16
    
 
17
    my $pid = $gnupg->detach_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
 
 
27
TEST
 
28
{
 
29
    reset_handles();
 
30
    
 
31
    $handles->stdin( $texts{plain}->fh() );
 
32
    $handles->options( 'stdin' )->{direct} = 1;
 
33
    my $pid = $gnupg->detach_sign( handles => $handles );
 
34
    
 
35
    waitpid $pid, 0;
 
36
    
 
37
    return $CHILD_ERROR == 0;
 
38
};