49 lines
1.8 KiB
Plaintext
49 lines
1.8 KiB
Plaintext
|
(*
|
||
|
|
Module: Test_Known_Hosts
|
||
|
|
Provides unit tests and examples for the <Known_Hosts> lens.
|
||
|
|
*)
|
||
|
|
|
||
|
|
module Test_Known_Hosts =
|
||
|
|
|
||
|
|
(* Test: Known_Hosts.lns
|
||
|
|
Simple get test *)
|
||
|
|
test Known_Hosts.lns get "# A comment
|
||
|
|
foo.example.com,foo ecdsa-sha2-nistp256 AAABBBDKDFX=
|
||
|
|
bar.example.com,bar ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIN9NJSjDZh4+K6WBS16iX7ZndnwbGsaEbLwHlCEhZmef
|
||
|
|
|1|FhUqf1kMlRWNfK6InQSAmXiNiSY=|jwbKFwD4ipl6D0k6OoshmW7xOao= ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIvNOU8OedkWalFmoFcJWP3nasnCLx6M78F9y0rzTQtplggNd0dvR0A4SQOBfHInmk5dH6YGGcpT3PM3cJBR7rI=\n" =
|
||
|
|
{ "#comment" = "A comment" }
|
||
|
|
{ "1" = "foo.example.com"
|
||
|
|
{ "alias" = "foo" }
|
||
|
|
{ "type" = "ecdsa-sha2-nistp256" }
|
||
|
|
{ "key" = "AAABBBDKDFX=" } }
|
||
|
|
{ "2" = "bar.example.com"
|
||
|
|
{ "alias" = "bar" }
|
||
|
|
{ "type" = "ssh-ed25519" }
|
||
|
|
{ "key" = "AAAAC3NzaC1lZDI1NTE5AAAAIN9NJSjDZh4+K6WBS16iX7ZndnwbGsaEbLwHlCEhZmef" } }
|
||
|
|
{ "3" = "|1|FhUqf1kMlRWNfK6InQSAmXiNiSY=|jwbKFwD4ipl6D0k6OoshmW7xOao="
|
||
|
|
{ "type" = "ecdsa-sha2-nistp256" }
|
||
|
|
{ "key" = "AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIvNOU8OedkWalFmoFcJWP3nasnCLx6M78F9y0rzTQtplggNd0dvR0A4SQOBfHInmk5dH6YGGcpT3PM3cJBR7rI=" } }
|
||
|
|
|
||
|
|
(* Test: Known_Hosts.lns
|
||
|
|
Markers *)
|
||
|
|
test Known_Hosts.lns get "@revoked * ssh-rsa AAAAB5W
|
||
|
|
@cert-authority *.mydomain.org,*.mydomain.com ssh-rsa AAAAB5W\n" =
|
||
|
|
{ "1" = "*"
|
||
|
|
{ "@revoked" }
|
||
|
|
{ "type" = "ssh-rsa" }
|
||
|
|
{ "key" = "AAAAB5W" } }
|
||
|
|
{ "2" = "*.mydomain.org"
|
||
|
|
{ "@cert-authority" }
|
||
|
|
{ "alias" = "*.mydomain.com" }
|
||
|
|
{ "type" = "ssh-rsa" }
|
||
|
|
{ "key" = "AAAAB5W" } }
|
||
|
|
|
||
|
|
(* Test: Known_Hosts.lns
|
||
|
|
Eol comment *)
|
||
|
|
test Known_Hosts.lns get "@revoked * ssh-rsa AAAAB5W # this is revoked\n" =
|
||
|
|
{ "1" = "*"
|
||
|
|
{ "@revoked" }
|
||
|
|
{ "type" = "ssh-rsa" }
|
||
|
|
{ "key" = "AAAAB5W" }
|
||
|
|
{ "#comment" = "this is revoked" } }
|