3 source stest/common.tcl
5 # `non-negotiating' ends:
6 set privkey(inside) test-example/inside.key
7 set privkey(outside) test-example/outside.key
10 # There is no -no because the sites file tells a new inside to expect
13 proc sitesconf_hook {l} {
15 # Use `make-public' verb, so we have a test case for it
16 if {[regexp {^(.* key )rsa-public\("(\d+)","(\d+)"\)(;.*)$} \
17 $l dummy lhs rsa_e rsa_n rhs]} {
18 set b91 [exec $builddir/base91s/base91s -w0 << "42 $rsa_e $rsa_n"]
19 set l "${lhs}make-public(\"rsa1\",\"$b91\")${rhs}"