diff options
Diffstat (limited to 'source4/script/tests/win/wintest_client.exp')
-rw-r--r-- | source4/script/tests/win/wintest_client.exp | 95 |
1 files changed, 0 insertions, 95 deletions
diff --git a/source4/script/tests/win/wintest_client.exp b/source4/script/tests/win/wintest_client.exp deleted file mode 100644 index 5b45eb2bb03..00000000000 --- a/source4/script/tests/win/wintest_client.exp +++ /dev/null @@ -1,95 +0,0 @@ -# An expect script to create a temporary file, map a share, copy the file to the share, -# and compare the contents of the two files. -# Copyright Brad Henry <brad@samba.org> 2006 -# Released under the GNU GPL v2 or later. - -proc run_test { remote_prompt tmp_filename share_drive host_drive buildhost_ip buildhost_share username domain password } { - - # Create the temp file on the windows host and connect to the samba share. - set host_tmpfile "$host_drive\\$tmp_filename" - set err_str [create_tmp_file $remote_prompt $host_tmpfile] - if { $err_str != "OK" } { - return $err_str - } - - set buildhost_sharepoint "\\\\$buildhost_ip\\$buildhost_share" - set err_str [map_share $remote_prompt $share_drive $buildhost_sharepoint $username $domain $password] - if { $err_str != "OK" } { - return $err_str - } - - # Copy the temp file to the share and compare its contents with the original. - set share_tmpfile "$share_drive\\$tmp_filename" - set xcopy_options "" - set err_str [xcopy_file $remote_prompt $host_tmpfile $share_tmpfile $xcopy_options] - if { $err_str != "OK" } { - return $err_str - } - - set err_str [compare_files $remote_prompt $host_tmpfile $share_tmpfile] - if { $err_str != "OK" } { - return $err_str - } - - # Remove files and unmap share. - set err_str [delete_file $remote_prompt $share_tmpfile] - if { $err_str != "OK" } { - return $err_str - } - set err_str [delete_file $remote_prompt $host_tmpfile] - if { $err_str != "OK" } { - return $err_str - } - - set err_str [unmap_share $remote_prompt $share_drive] - if {$err_str != "OK" } { - return $err_str - } - - return $err_str -} - -# Read parameters. -set remote_prompt $env(SMBTORTURE_REMOTE_PROMPT) -set remote_host $env(SMBTORTURE_REMOTE_HOST) -set username $env(SMBTORTURE_USERNAME) -set password $env(SMBTORTURE_PASSWORD) -set timeout $env(SMBTORTURE_EXPECT_TIMEOUT) - -set tmp_filename $env(SMBTORTURE_TMP_FILENAME) - -set share_drive $env(SMBTORTURE_REMOTE_DRIVE_LETTER) -set host_drive "%HOMEDRIVE%" - -set buildhost_ip $env(SMBTORTURE_LOCAL_IP) -set buildhost_share $env(SMBTORTURE_LOCAL_SHARE_NAME) -set buildhost_username $env(SMBTORTURE_LOCAL_USERNAME) -set buildhost_domain $env(SMBTORTURE_LOCAL_DOMAIN) -set buildhost_password $env(SMBTORTURE_LOCAL_PASSWORD) - -set err_val [spawn $env(SHELL)] -if {$err_val == 0} { - puts stderr "Expect failed while spawning a shell process." - exit $err_val -} - -set err_str [telnet_login $remote_prompt $remote_host $username $password] -if {$err_str != "OK"} { - puts stderr "\nFunction telnet_login failed during Samba server testing." - puts stderr "Error was: $err_str." - exit 1 -} - -set err_str [run_test $remote_prompt $tmp_filename $share_drive $host_drive $buildhost_ip $buildhost_share $buildhost_username $buildhost_domain $buildhost_password] -if {$err_str != "OK"} { - puts stderr "\nFunction run_test failed during Samba server testing." - puts stderr "Error was: $err_str." - - # Log off from the telnet server. - send "exit\r\n" - exit 1 -} - -# Log off from the telnet server. -send "exit\r\n" -exit 0 |