summaryrefslogtreecommitdiff
path: root/source4/script/tests/win/wintest_remove.exp
diff options
context:
space:
mode:
Diffstat (limited to 'source4/script/tests/win/wintest_remove.exp')
-rw-r--r--source4/script/tests/win/wintest_remove.exp71
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