From 8080cc9db88173e21d185713bd6d332c5187448f Mon Sep 17 00:00:00 2001 From: David Bremner Date: Sun, 24 Apr 2011 07:33:24 -0300 Subject: [PATCH] modify test to test export of OpenPGP_to_OpenSSH_pub --- unit-tests/40.keytrans/10.openpgp2ssh.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/unit-tests/40.keytrans/10.openpgp2ssh.t b/unit-tests/40.keytrans/10.openpgp2ssh.t index a14b641..ed042fa 100644 --- a/unit-tests/40.keytrans/10.openpgp2ssh.t +++ b/unit-tests/40.keytrans/10.openpgp2ssh.t @@ -1,7 +1,7 @@ # -*- perl -*- use Test::More; -use Crypt::Monkeysphere::Keytrans; +use Crypt::Monkeysphere::Keytrans qw(GnuPGKey_to_OpenSSH_pub); use GnuPG::Interface; use File::Temp qw(tempdir); @@ -47,7 +47,7 @@ waitpid($pid, 0); my @keys = $gnupg->get_public_keys(); foreach $key (@keys) { - my $output = Crypt::Monkeysphere::Keytrans::GnuPGKey_to_OpenSSH_pub($key); + my $output = GnuPGKey_to_OpenSSH_pub($key); is($sshdata, $output); } -- 2.26.2