Add support for cached ssh keys for testing. Shaves 20% off test runtime

1 files changed, 22 insertions, 6 deletions

diff --git a/testing/gitano-test-tool.in b/testing/gitano-test-tool.in
index 1a04b31..e892474 100644
--- a/testing/gitano-test-tool.in
+++ b/testing/gitano-test-tool.in
@@ -109,12 +109,28 @@ end
 
 function cmd_createsshkey(username, keyname, optionaltype)
    optionaltype = optionaltype or "rsa"
-   run_program {
-      "ssh-keygen", "-q",
-      "-t", optionaltype,
-      "-C", username .. "-" .. optionaltype .. "@" .. keyname,
-      "-f", ssh_key_file(username, keyname),
-      "-N", "" }
+   local targetkey = ssh_key_file(username, keyname)
+   local sourcekey = table.concat {
+      "testing/keys/", username, "@", keyname, "_", optionaltype }
+   local fh = io.open(sourcekey, "r")
+   if not fh then
+      run_program {
+	 "ssh-keygen", "-q",
+	 "-t", optionaltype,
+	 "-C", username .. "-" .. optionaltype .. "@" .. keyname,
+	 "-f", sourcekey,
+	 "-N", "" }
+      fh = assert(io.open(sourcekey, "r"))
+   end
+   local ofh = assert(io.open(targetkey, "w"))
+   ofh:write(fh:read("*a"))
+   fh:close()
+   ofh:close()
+   fh = assert(io.open(sourcekey .. ".pub", "r"))
+   ofh = assert(io.open(targetkey .. ".pub", "w"))
+   ofh:write(fh:read("*a"))
+   fh:close()
+   ofh:close()
 end
 
 function cmd_setupstandard(owning_user, master_key)