File: taint_mode.t

package info (click to toggle)
libgnupg-interface-perl 1.04-6
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 824 kB
  • sloc: perl: 3,828; makefile: 6; sh: 5
file content (26 lines) | stat: -rw-r--r-- 445 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/usr/bin/perl -wT
#
# Ensure we can instatiate in Taint mode. Don't need to
# do any work, as GnuPG::Interface runs the command we're going
# to use to detect the version.

use strict;

use lib './t';
use MyTest;

use GnuPG::Interface;

my $gnupg;

# See that we instantiate an object in Taint mode
TEST
{
    $gnupg = GnuPG::Interface->new( call => './test/fake-gpg-v2' );
};

# See that version is set
TEST
{
    defined $gnupg->version;
};