blob: 8cb337d7e242181c348e5aec9dbc2ba7384e42f1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/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 "passphrase"
#
# Author: Daniel Kahn Gillmor <dkg@fifthhorseman.net>
#
# License: Creative Commons Zero ("Public Domain Dedication") --
# 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 (<STDIN>) {
chomp;
next if (/^$/);
next if (/^#/);
print ("D passphrase\n") if (/^getpin/i);
print "OK\n";
exit if (/^bye/i);
}
1;
|
