X-Git-Url: http://git.samba.org/samba.git/?p=ira%2Fwip.git;a=blobdiff_plain;f=testsuite%2Flib%2Fsmbclient.exp;h=dc55d72139cbfdd7bc24077a446577a602458de0;hp=6528d784fa57217d9c3ffc5537cb0f957df571c5;hb=28b9d61076912adbc0c6571c71688aa6831506bf;hpb=b0953a35959c70f2a9a55149732daa77cf3e5235

diff --git a/testsuite/lib/smbclient.exp b/testsuite/lib/smbclient.exp
index 6528d784fa5..dc55d72139c 100644
--- a/testsuite/lib/smbclient.exp
+++ b/testsuite/lib/smbclient.exp
@@ -15,7 +15,9 @@ proc spawn_smbclient { args } {
 
     # Spawn smbclient
 
-    spawn smbclient [lindex $args 0] [lindex $args 1] [lindex $args 2]
+    spawn smbclient [lindex $args 0] [lindex $args 1] [lindex $args 2] \
+	    [lindex $args 3] [lindex $args 4] [lindex $args 5] \
+	    [lindex $args 6]
 
     # Wait for prompt
 
@@ -44,7 +46,7 @@ proc do_smbclient { args } {
     expect {
 	$smb_prompt     {}
 	timeout         { perror "timed out $description"; return -1}
-	eof             { perror "end of file description"; return -1 }
+	eof             { perror "end of file $description"; return -1 }
     }
 
     verbose $expect_out(buffer)