# -*- 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);
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);
}