diff options
Diffstat (limited to 'source4/script/tests/win/wintest_remove.exp')
-rw-r--r-- | source4/script/tests/win/wintest_remove.exp | 71 |
1 files changed, 0 insertions, 71 deletions
diff --git a/source4/script/tests/win/wintest_remove.exp b/source4/script/tests/win/wintest_remove.exp deleted file mode 100644 index a361db2958..0000000000 --- a/source4/script/tests/win/wintest_remove.exp +++ /dev/null @@ -1,71 +0,0 @@ -# An expect script to remove a directory and share which was -# previously setup for an smbtorture test. -# Copyright Brad Henry <brad@samba.org> 2006 -# Released under the GNU GPL v2 or later. - -proc remove_test { remote_prompt sharepath sharename hosts_file_path \ - backup_hosts_filename } { - - set err_str [delete_share $remote_prompt $sharename] - if { $err_str != "OK" } { - puts stderr "Error in function delete_share: $err_str." - puts stderr "Function remove_test will continue." - } - - set err_str [delete_directory $remote_prompt $sharepath] - if { $err_str != "OK" } { - puts stderr "Error in function delete_directory: $err_str." - puts stderr "Function remove_test will continue." - } - - # Overwrite the current hosts file with the backup we made during setup. - set err_str [delete_hosts_entry $remote_prompt $hosts_file_path \ - $backup_hosts_filename] - if { $err_str != "OK" } { - puts stderr "Error in function delete_hosts_entry: $err_str." - puts stderr "Function remove_test will continue." - } - return $err_str -} - -# read parameters -set remote_host $env(SMBTORTURE_REMOTE_HOST) -set remote_prompt $env(SMBTORTURE_REMOTE_PROMPT) - -set username $env(SMBTORTURE_USERNAME) -set password $env(SMBTORTURE_PASSWORD) - -set timeout $env(SMBTORTURE_EXPECT_TIMEOUT) - -set sharepath $env(SMBTORTURE_REMOTE_SHARE_PATH) -set sharename $env(SMBTORTURE_REMOTE_SHARE_NAME) - -set backup_hosts_filename $env(REMOTE_BACKUP_HOSTS_FILENAME) -set hosts_file_path $env(REMOTE_HOSTS_FILE_PATH) - -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 cleanup." - puts stderr "Error was: $err_str." - exit 1 -} - -set err_str [remove_test $remote_prompt $sharepath $sharename \ - $hosts_file_path $backup_hosts_filename] -if {$err_str != "OK"} { - puts stderr "\nFunction remove_test failed." - 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 |