From 136c25e277302900abd4ea997ce28721c59b5676 Mon Sep 17 00:00:00 2001 From: Andrew Ruthven Date: Wed, 18 Aug 2021 04:12:35 +0200 Subject: Import libgnupg-interface-perl_1.02.orig.tar.gz [dgit import orig libgnupg-interface-perl_1.02.orig.tar.gz] --- test/fake-pinentry.pl | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100755 test/fake-pinentry.pl (limited to 'test/fake-pinentry.pl') diff --git a/test/fake-pinentry.pl b/test/fake-pinentry.pl new file mode 100755 index 0000000..40b8b08 --- /dev/null +++ b/test/fake-pinentry.pl @@ -0,0 +1,28 @@ +#!/usr/bin/perl -w +# Use this for your test suites when a perl interpreter is available. +# +# The encrypted keys in your test suite that you expect to work must +# be locked with a passphrase of "test" +# +# Author: Daniel Kahn Gillmor +# +# License: This trivial work is hereby explicitly placed into the +# public domain. Anyone may reuse it, modify it, redistribute it for +# any purpose. + +use strict; +use warnings; + +# turn off buffering +$| = 1; + +print "OK This is only for test suites, and should never be used in production\n"; +while () { + chomp; + next if (/^$/); + next if (/^#/); + print ("D supercalifragilisticexpialidocious\n") if (/^getpin/i); + print "OK\n"; + exit if (/^bye/i); +} +1; -- cgit v1.2.3