Test that Taint mode works

Bug: https://rt.cpan.org/Ticket/Display.html?id=133041
Last-Update: 2021-01-28


Gbp-Pq: Name detect-taint-mode

1 files changed, 26 insertions, 0 deletions

diff --git a/t/taint.t b/t/taint.t
new file mode 100644
index 0000000..b9d8df8
--- /dev/null
+++ b/t/taint.t
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -wT
+#
+# Ensure we can instatiate in Taint mode. Don't need to
+# do any work, as GnuPG::Interface runs the command we're going
+# to use to detect the version.
+
+use strict;
+
+use lib './t';
+use MyTest;
+
+use GnuPG::Interface;
+
+my $gnupg;
+
+# See that we instantiate an object in Taint mode
+TEST
+{
+    $gnupg = GnuPG::Interface->new( call => '/usr/bin/gpg' );
+};
+
+# See that version is set
+TEST
+{
+    defined $gnupg->version;
+};