Imported Upstream version 1.15.1

[platform/upstream/krb5.git] / src / lib / rpc / unit-test / lib / helpers.exp

diff --git a/src/lib/rpc/unit-test/lib/helpers.exp b/src/lib/rpc/unit-test/lib/helpers.exp
index 963fff4..a1b0783 100644 (file)
--- a/src/lib/rpc/unit-test/lib/helpers.exp
+++ b/src/lib/rpc/unit-test/lib/helpers.exp
@@ -170,7 +170,7 @@ proc flush_server {} {
 
 proc start_client {testname ccname user password lifetime count
                  {target ""}} {
-       global env CLIENT PROT hostname spawn_id verbose
+       global env CLIENT PROT hostname server_port spawn_id verbose
 
        if {$target == ""} {
                set target "server@$hostname"
@@ -180,9 +180,9 @@ proc start_client {testname ccname user password lifetime count
        kinit $user $password $lifetime
 
        if {$verbose > 0} {
-               spawn $CLIENT -a 1 -s 1 -m 1 $PROT $hostname $target $count
+               spawn $CLIENT -a 1 -s 1 -m 1 $PROT $hostname $server_port $target $count
        } else {
-               spawn $CLIENT $PROT $hostname $target $count
+               spawn $CLIENT $PROT $hostname $server_port $target $count
        }
 
        verbose "$testname: client $ccname started"