See ChangeLog: Sat Nov 13 17:44:23 CET 1999 Werner Koch
[gnupg.git] / checks / genkey1024.test
1 #!/bin/sh
2
3 . $srcdir/defs.inc || exit 3
4
5
6 if (expect -v) < /dev/null > /dev/null 2>&1 ; then
7   :
8 else
9   echo "\"expect\" needed but not found - test skipped"
10   exit 0
11 fi
12
13 LANG=
14 LANGUAGE=
15
16 expect  - <<EOF >/dev/null
17 #set timeout -1
18 set timeout 8
19 match_max 100000
20 spawn ../g10/gpg --no-batch --homedir . --gen-key
21 expect {
22     -exact "Please select what kind of key you want:\r
23    (1) DSA and ElGamal (default)\r
24    (2) DSA (sign only)\r
25    (4) ElGamal (sign and encrypt)\r
26 Your selection? "  { send -- "1\r" }
27     timeout { exit 1 } }
28 expect {
29     -exact "1\r
30 \r                 \rDSA keypair will have 1024 bits.\r
31 About to generate a new ELG-E keypair.\r
32               minimum keysize is  768 bits\r
33               default keysize is 1024 bits\r
34     highest suggested keysize is 2048 bits\r
35 What keysize do you want? (1024) " { send -- "\r" }
36     timeout { exit 1 } }
37 expect {
38     -exact "\r
39 \r                                 \rRequested keysize is 1024 bits\r
40 Please specify how long the key should be valid.\r
41          0 = key does not expire\r
42       <n>  = key expires in n days\r
43       <n>w = key expires in n weeks\r
44       <n>m = key expires in n months\r
45       <n>y = key expires in n years\r
46 Key is valid for? (0) " { send -- "1\r" }
47     timeout { exit 1 } }
48 expect {
49      -exact "1\r
50 \r                       \rKey expires at " { }
51     timeout { exit 1 } }
52 expect {
53      -re "(.*)\r
54 " {}
55     timeout { exit 1 } }
56 expect {
57     -exact "Is this correct (y/n)? " { send -- "y\r" }
58     timeout { exit 1 } }
59 expect {
60     -exact "y\r
61 \r                        \r\r
62 You need a User-ID to identify your key; the software constructs the user id\r
63 from Real Name, Comment and Email Address in this form:\r
64     \"Heinrich Heine (Der Dichter) <heinrichh@duesseldorf.de>\"\r
65 \r
66 Real name: " { send -- "Harry H.\r" }
67     timeout { exit 1 } }
68 expect {
69    -exact "Harry H.\r
70 \r                   \rEmail address: " { send -- "hh@ddorf.de\r" }
71     timeout { exit 1 } }
72 expect {
73    -exact "hh@ddorf.de\r
74 \r                          \rComment: " { send -- "a test\r" }
75     timeout { exit 1 } }
76 expect {
77    -exact "a test\r
78 \r               \rYou selected this USER-ID:\r
79     \"Harry H. (a test) <hh@ddorf.de> (INSECURE!)\"\r
80 \r
81 Change (N)ame, (C)omment, (E)mail or (O)kay/(Q)uit? " { send -- "o\r" }
82     timeout { exit 1 } }
83 expect {
84    -exact "o\r
85 \r                                                     \rYou need a Passphrase to protect your secret key.\r
86 \r
87 Enter passphrase: " { sleep 1; send -- "abc\r" }
88     timeout { exit 1 } }
89 expect {
90   -ex "\r                  \rRepeat passphrase: " { sleep 1; send -- "abc\r" }
91     timeout { exit 1 } }
92 set timeout 600
93 expect {
94     -re "^.*\r\npublic and secret key" { exit 0 }
95     eof  { exit 1 }
96 }
97 exit 1
98 EOF
99
100 #*-*wedit:notab*-*