r23800: LGPL is now called GNU Lesser General Public License
[ira/wip.git] / testsuite / lib / smbclient.exp
index 6528d784fa57217d9c3ffc5537cb0f957df571c5..dc55d72139cbfdd7bc24077a446577a602458de0 100644 (file)
@@ -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)