1 files changed, 29 insertions, 0 deletions
diff --git a/t/Interface.t b/t/Interface.t
new file mode 100644
index 0000000..ec5dfe5
--- /dev/null
+++ b/t/Interface.t
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+#
+# $Id: Interface.t,v 1.1 2001/04/30 02:04:25 ftobin Exp $
+#
+
+use strict;
+
+use lib './t';
+use MyTest;
+
+use GnuPG::Interface;
+
+my $v1 = './test/fake-gpg-v1';
+my $v2 = './test/fake-gpg-v2';
+
+my $gnupg = GnuPG::Interface->new( call => $v1 );
+
+# deprecation test
+TEST
+{
+    $gnupg->gnupg_call() eq $v1;
+};
+
+# deprecation test
+TEST
+{
+    $gnupg->gnupg_call( $v2 );
+    $gnupg->call() eq $v2;
+};