This was previously untested. It is awkward to get make-secnet-sites
to generate this right now because it wants to generate `rsa-public'
calls for rsa1 keys for compatibility reasons.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
&DEPS += & udp-preload.so
&DEPS += &^ common.tcl
&DEPS += secnet
+&DEPS += base91s/base91s
&DEPS += test-example/sites.conf
&DEPS += test-example/sites-nonego.conf
&DEPS += $(test-example_PRIVKEYS)
# There is no -no because the sites file tells a new inside to expect
# a different key.
+proc sitesconf_hook {l} {
+ global builddir
+ # Use `make-public' verb, so we have a test case for it
+ if {[regexp {^(.* key )rsa-public\("(\d+)","(\d+)"\)(;.*)$} \
+ $l dummy lhs rsa_e rsa_n rhs]} {
+ set b91 [exec $builddir/base91s/base91s -w0 << "42 $rsa_e $rsa_n"]
+ set l "${lhs}make-public(\"rsa1\",\"$b91\")${rhs}"
+ }
+ return $l
+}
+
test-kex