1 files changed, 59 insertions, 0 deletions
diff --git a/t/wrap_call.t b/t/wrap_call.t
new file mode 100644
index 0000000..8677d54
--- /dev/null
+++ b/t/wrap_call.t
@@ -0,0 +1,59 @@
+#!/usr/bin/perl -w
+#
+#  $Id: wrap_call.t,v 1.1 2001/05/03 07:32:34 ftobin Exp $
+#
+
+use strict;
+
+use lib './t';
+use MyTest;
+use MyTestSpecific;
+
+TEST
+{
+    reset_handles();
+
+    my $pid = $gnupg->wrap_call
+      ( commands     => [ qw( --list-packets ) ],
+        command_args => [ qw( test/key.1.asc ) ],
+        handles      => $handles,
+      );
+
+    close $stdin;
+
+    my @out = <$stdout>;
+    waitpid $pid, 0;
+
+    return @out > 0;  #just check if we have output.
+};
+
+TEST
+{
+    return $CHILD_ERROR == 0;
+};
+
+
+# same as above, but now with deprecated stuff
+TEST
+{
+    reset_handles();
+
+    my $pid = $gnupg->wrap_call
+      ( gnupg_commands     => [ qw( --list-packets ) ],
+        gnupg_command_args => [ qw( test/key.1.asc ) ],
+        handles      => $handles,
+      );
+
+    close $stdin;
+
+    my @out = <$stdout>;
+    waitpid $pid, 0;
+
+    return @out > 0;  #just check if we have output.
+};
+
+
+TEST
+{
+    return $CHILD_ERROR == 0;
+};