X-Git-Url: http://git.ieval.ro/?p=app-edwardng.git;a=blobdiff_plain;f=t%2FApp-EdwardNG.t;h=015e054d68898892171dda131067a2120a5c460a;hp=4b4550eed576672e7135dfdc550e4eb78843cf3d;hb=2f363992eb7c1ca18e787bce8729d6cc2167da76;hpb=d03d611f3dd49549200b266ff84b70bd7a69ba4f

diff --git a/t/App-EdwardNG.t b/t/App-EdwardNG.t
index 4b4550e..015e054 100644
--- a/t/App-EdwardNG.t
+++ b/t/App-EdwardNG.t
@@ -5,16 +5,20 @@ use warnings;
 use constant KEYID => '34B22806';
 use constant EMAIL => 'EdwardNG (Key for testing EdwardNG) <edwardng@ieval.ro>';
 
-use Test::More tests => 19;
-BEGIN { use_ok('App::EdwardNG') };
+use Test::More tests => 20;
+BEGIN { use_ok('App::EdwardNG', qw/import_pubkeys process_message/) };
 $ENV{EDWARDNG_DEBUG} = $ENV{TEST_VERBOSE};
 $ENV{EDWARDNG_KEYDIR} = 't/keydir';
 
+my $contains_pubkey = App::EdwardNG::mp->parse_open('t/data/contains-pubkey');
+my @keys = import_pubkeys ($contains_pubkey, App::EdwardNG::mg);
+is $keys[0], 'DE12658069C2F09BF996CC855AAF79E969137654', 'import_pubkeys';
+
 my ($tmpl, %params);
 
 sub process {
 	my ($name, $expected) = @_;
-	($tmpl, %params) = App::EdwardNG::process_message("t/data/$name");
+	($tmpl, %params) = process_message("t/data/$name");
 	is $tmpl, $expected, "Result for $name is $expected" or diag "GnuPG said: $params{message}"
 }