view release on metacpan or  search on metacpan

t/taint_mode.t  view on Meta::CPAN

#!/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;
};