stest/t-nonnego-oo

   1 #! /usr/bin/tclsh
   2
   3 source stest/common.tcl
   4
   5 # `non-negotiating' ends:
   6 set privkey(inside) {load-private rsa1 test-example/inside.key}
   7 set privkey(outside) {load-private rsa1 test-example/outside.key}
   8 # So old, old; ie -oo
   9
  10 # There is no -no because the sites file tells a new inside to expect
  11 # a different key.
  12
  13 proc sitesconf_hook {l} {
  14     global builddir
  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}"
  20     }
  21     return $l
  22 }
  23
  24 test-kex