Add a test to ensure the isomorphism for RSA key between awa_gen_key and what the user can give to initiate an SSH connection

dune-project

@@ -1,2 +1,3 @@
-(lang dune 1.0)
+(lang dune 2.7)
 (name awa)
+(cram enable)

test/dune

@@ -2,7 +2,8 @@
  (name test)
  (modules test)
  (package awa)
- (deps (source_tree data))
+ (deps
+  (source_tree data))
  (libraries awa mtime.clock.os cstruct-unix mirage-crypto-rng.unix))
 
 (executable
@@ -17,7 +18,8 @@
  (public_name awa_test_client)
  (modules awa_test_client)
  (package awa)
- (libraries awa mirage-crypto-rng.unix mtime.clock.os cmdliner fmt.tty logs.fmt logs.cli fmt.cli cstruct-unix))
+ (libraries awa mirage-crypto-rng.unix mtime.clock.os cmdliner fmt.tty
+   logs.fmt logs.cli fmt.cli cstruct-unix))
 
 (executable
  (name awa_lwt_server)
@@ -32,3 +34,11 @@
  (modules awa_gen_key)
  (package awa)
  (libraries awa mirage-crypto-rng.unix cmdliner))
+
+(executable
+ (name public_key_of_seed)
+ (modules public_key_of_seed)
+ (libraries awa))
+
+(cram
+ (deps %{bin:awa_gen_key} public_key_of_seed.exe))

test/iso.t

@@ -0,0 +1,5 @@
+  $ awa_gen_key > a.key
+  $ cat a.key | tail -n1 > a.public_key
+  $ cat a.key | head -n1 | cut -d' ' -f3 > a.seed
+  $ ./public_key_of_seed.exe rsa:$(cat a.seed) > b.public_key
+  $ diff a.public_key b.public_key

test/public_key_of_seed.ml

@@ -0,0 +1,13 @@
+let b64s x = Cstruct.to_string x |> Base64.encode_string
+
+let () =
+  match Awa.Keys.of_string Sys.argv.(1) with
+  | Ok pk ->
+    let pub = Awa.Hostkey.pub_of_priv pk in
+    let public = Awa.Wire.blob_of_pubkey pub in
+    Format.printf "%s %s [email protected]\n%!"
+      (Awa.Hostkey.sshname pub)
+      (b64s public)
+  | Error (`Msg err) ->
+    Format.eprintf "%s: %s.\n%!" Sys.argv.(0) err ;
+    exit 1