1 When /^the "([^"]*)" OpenPGP key is not in the live user's public keyring$/ do |keyid|
2 next if @skip_steps_while_restoring_background
3 assert(!@vm.execute("gpg --batch --list-keys '#{keyid}'", $live_user).success?,
4 "The '#{keyid}' key is in the live user's public keyring.")
7 When /^I fetch the "([^"]*)" OpenPGP key using the GnuPG CLI$/ do |keyid|
8 next if @skip_steps_while_restoring_background
9 @gnupg_recv_key_res = @vm.execute(
10 "gpg --batch --recv-key '#{keyid}'",
14 When /^the GnuPG fetch is successful$/ do
15 next if @skip_steps_while_restoring_background
16 assert(@gnupg_recv_key_res.success?,
17 "gpg keyserver fetch failed:\n#{@gnupg_recv_key_res.stderr}")
20 When /^GnuPG uses the configured keyserver$/ do
21 next if @skip_steps_while_restoring_background
22 assert(@gnupg_recv_key_res.stderr[$configured_keyserver_hostname],
23 "GnuPG's stderr did not mention keyserver #{$configured_keyserver_hostname}")
26 When /^the "([^"]*)" key is in the live user's public keyring after at most (\d+) seconds$/ do |keyid, delay|
27 next if @skip_steps_while_restoring_background
28 try_for(delay.to_f, :msg => "The '#{keyid}' key is not in the live user's public keyring") {
29 @vm.execute("gpg --batch --list-keys '#{keyid}'", $live_user).success?
33 When /^I fetch the "([^"]*)" OpenPGP key using Seahorse$/ do |keyid|
34 next if @skip_steps_while_restoring_background
35 step "I run \"seahorse\""
36 @screen.wait("SeahorseWindow.png", 10)
37 @screen.type("r", Sikuli::KEY_ALT) # Menu: "Remote" ->
38 @screen.type("f") # "Find Remote Keys...".
39 @screen.wait("SeahorseFindKeysWindow.png", 10)
40 # Seahorse doesn't seem to support searching for fingerprints
41 @screen.type(keyid + Sikuli::KEY_RETURN)
42 @screen.wait("SeahorseFoundKeyResult.png", 5*60)
43 @screen.type(Sikuli::DOWN_ARROW) # Select first item in result menu
44 @screen.type("f", Sikuli::KEY_ALT) # Menu: "File" ->
45 @screen.type("i") # "Import"