From f86f7052663258161c4b9db4f10678c4216a9b84 Mon Sep 17 00:00:00 2001
From: David Bremner <bremner@unb.ca>
Date: Sat, 19 Mar 2011 08:22:35 -0300
Subject: [PATCH] Add gpg key generation from rfc822 template file.

This is pretty much translated from tests/basic.  It is unfortunately
a bit more verbose in perl. It could be made shorter by avoiding
GnuPG::Interface.
---
 unit-tests/keys.txt     | 47 +++++++++++++++++++++++++++++++++++++++++
 unit-tests/run-tests.pl | 30 ++++++++++++++++++++++++++
 2 files changed, 77 insertions(+)
 create mode 100644 unit-tests/keys.txt

diff --git a/unit-tests/keys.txt b/unit-tests/keys.txt
new file mode 100644
index 0000000..61e6563
--- /dev/null
+++ b/unit-tests/keys.txt
@@ -0,0 +1,47 @@
+# For use with gpg --batch --gen-key
+
+Key-Type: DSA
+Key-Length: 1024
+Subkey-Type: ELG-E
+Subkey-Length: 1024
+Name-Real: Joe Tester
+Name-Email: joe@example.net
+Expire-Date: 0
+
+Key-Type: RSA
+Key-Length: 2048
+Key-Usage: sign
+Subkey-Type: RSA
+Subkey-Length: 1024
+Subkey-Usage: auth
+Name-Real: Joe Tester
+Name-Email: joe@example.net
+Expire-Date: 0
+
+Key-Type: RSA
+Key-Length: 2048
+Key-Usage: sign
+Subkey-Type: RSA
+Subkey-Length: 1024
+Subkey-Usage: sign
+Name-Real: Joe Tester
+Name-Email: joe@example.net
+Expire-Date: 0
+
+Key-Type: RSA
+Key-Length: 2048
+Key-Usage: auth
+Name-Real: Joe Tester
+Name-Email: joe@example.net
+Expire-Date: 0
+
+Key-Type: RSA
+Key-Length: 2048
+Key-Usage: encrypt
+Subkey-Type: RSA
+Subkey-Length: 1024
+Subkey-Usage: auth
+Name-Real: Joe Tester
+Name-Email: jojo@example.net
+Expire-Date: 0
+
diff --git a/unit-tests/run-tests.pl b/unit-tests/run-tests.pl
index 4c3731c..0764b65 100644
--- a/unit-tests/run-tests.pl
+++ b/unit-tests/run-tests.pl
@@ -4,9 +4,39 @@ use strict;
 use TAP::Harness;
 use File::Find;
 use FindBin;
+use GnuPG::Interface;
+use GnuPG::Handles;
+use File::Temp qw(tempdir);
+
 my $BINDIR;
 BEGIN { $BINDIR = $FindBin::Bin; }
 
+
+{ 
+# Generate Keys from template file
+
+  my $tempdir = tempdir("/tmp/test-gnupgXXXXX", CLEANUP=> 1);
+  my $gnupg = new GnuPG::Interface();
+  $gnupg->options->hash_init(homedir=>$tempdir,batch=>1);
+
+  my $GPGQR='';
+  if (system qw(gpg --quick-random --version) ==0) {
+    $GPGQR='--quick-random';
+  } elsif (system qw(gpg --debug-quick-random --version) ==0) {
+    $GPGQR='--debug-quick-random';
+  }
+
+  print STDERR "WARNING: no quick random option found. Tests may hang!\n" 
+    unless(scalar $GPGQR);
+
+  my $pid = $gnupg->wrap_call( commands=>[qw(--gen-key --batch),$GPGQR],
+			       command_args=>[$BINDIR.'/keys.txt'],
+			       handles=>new GnuPG::Handles() );
+  waitpid $pid,0;
+
+  $ENV{GNUPGHOME}=$tempdir;
+}
+
 my @dirs = scalar(@ARGV) > 0 ? @ARGV : ($BINDIR);
 
 my @tests;
-- 
2.26.2