1# An expect script to create a temporary file, map a share, copy the file to the share, 2# and compare the contents of the two files. 3# Copyright Brad Henry <brad@samba.org> 2006 4# Released under the GNU GPL version 3 or later. 5 6proc run_test { remote_prompt tmp_filename share_drive host_drive buildhost_ip buildhost_share username domain password } { 7 8 # Create the temp file on the windows host and connect to the samba share. 9 set host_tmpfile "$host_drive\\$tmp_filename" 10 set err_str [create_tmp_file $remote_prompt $host_tmpfile] 11 if { $err_str != "OK" } { 12 return $err_str 13 } 14 15 set buildhost_sharepoint "\\\\$buildhost_ip\\$buildhost_share" 16 set err_str [map_share $remote_prompt $share_drive $buildhost_sharepoint $username $domain $password] 17 if { $err_str != "OK" } { 18 return $err_str 19 } 20 21 # Copy the temp file to the share and compare its contents with the original. 22 set share_tmpfile "$share_drive\\$tmp_filename" 23 set xcopy_options "" 24 set err_str [xcopy_file $remote_prompt $host_tmpfile $share_tmpfile $xcopy_options] 25 if { $err_str != "OK" } { 26 return $err_str 27 } 28 29 set err_str [compare_files $remote_prompt $host_tmpfile $share_tmpfile] 30 if { $err_str != "OK" } { 31 return $err_str 32 } 33 34 # Remove files and unmap share. 35 set err_str [delete_file $remote_prompt $share_tmpfile] 36 if { $err_str != "OK" } { 37 return $err_str 38 } 39 set err_str [delete_file $remote_prompt $host_tmpfile] 40 if { $err_str != "OK" } { 41 return $err_str 42 } 43 44 set err_str [unmap_share $remote_prompt $share_drive] 45 if {$err_str != "OK" } { 46 return $err_str 47 } 48 49 return $err_str 50} 51 52# Read parameters. 53set remote_prompt $env(SMBTORTURE_REMOTE_PROMPT) 54set remote_host $env(SMBTORTURE_REMOTE_HOST) 55set username $env(SMBTORTURE_USERNAME) 56set password $env(SMBTORTURE_PASSWORD) 57set timeout $env(SMBTORTURE_EXPECT_TIMEOUT) 58 59set tmp_filename $env(SMBTORTURE_TMP_FILENAME) 60 61set share_drive $env(SMBTORTURE_REMOTE_DRIVE_LETTER) 62set host_drive "%HOMEDRIVE%" 63 64set buildhost_ip $env(SMBTORTURE_LOCAL_IP) 65set buildhost_share $env(SMBTORTURE_LOCAL_SHARE_NAME) 66set buildhost_username $env(SMBTORTURE_LOCAL_USERNAME) 67set buildhost_domain $env(SMBTORTURE_LOCAL_DOMAIN) 68set buildhost_password $env(SMBTORTURE_LOCAL_PASSWORD) 69 70set err_val [spawn $env(SHELL)] 71if {$err_val == 0} { 72 puts stderr "Expect failed while spawning a shell process." 73 exit $err_val 74} 75 76set err_str [telnet_login $remote_prompt $remote_host $username $password] 77if {$err_str != "OK"} { 78 puts stderr "\nFunction telnet_login failed during Samba server testing." 79 puts stderr "Error was: $err_str." 80 exit 1 81} 82 83set err_str [run_test $remote_prompt $tmp_filename $share_drive $host_drive $buildhost_ip $buildhost_share $buildhost_username $buildhost_domain $buildhost_password] 84if {$err_str != "OK"} { 85 puts stderr "\nFunction run_test failed during Samba server testing." 86 puts stderr "Error was: $err_str." 87 88 # Log off from the telnet server. 89 send "exit\r\n" 90 exit 1 91} 92 93# Log off from the telnet server. 94send "exit\r\n" 95exit 0 96