Convert some more files to GPLv3.
[jra/samba/.git] / source4 / selftest / win / wintest_remove.exp
1 # An expect script to remove a directory and share which was
2 # previously setup for an smbtorture test.
3 # Copyright Brad Henry <brad@samba.org> 2006
4 # Released under the GNU GPL version 3 or later.
5
6 proc remove_test { remote_prompt sharepath sharename hosts_file_path \
7                         backup_hosts_filename } {
8
9         set err_str [delete_share $remote_prompt $sharename]
10         if { $err_str != "OK" } {
11                 puts stderr "Error in function delete_share: $err_str."
12                 puts stderr "Function remove_test will continue."
13         }
14
15         set err_str [delete_directory $remote_prompt $sharepath]
16         if { $err_str != "OK" } {
17                 puts stderr "Error in function delete_directory: $err_str."
18                 puts stderr "Function remove_test will continue."
19         }
20
21         # Overwrite the current hosts file with the backup we made during setup.
22         set err_str [delete_hosts_entry $remote_prompt $hosts_file_path \
23                         $backup_hosts_filename]
24         if { $err_str != "OK" } {
25                 puts stderr "Error in function delete_hosts_entry: $err_str."
26                 puts stderr "Function remove_test will continue."
27         }
28         return $err_str
29 }
30
31 # read parameters
32 set remote_host $env(SMBTORTURE_REMOTE_HOST)
33 set remote_prompt $env(SMBTORTURE_REMOTE_PROMPT)
34
35 set username $env(SMBTORTURE_USERNAME)
36 set password $env(SMBTORTURE_PASSWORD)
37
38 set timeout $env(SMBTORTURE_EXPECT_TIMEOUT)
39
40 set sharepath $env(SMBTORTURE_REMOTE_SHARE_PATH)
41 set sharename $env(SMBTORTURE_REMOTE_SHARE_NAME)
42
43 set backup_hosts_filename $env(REMOTE_BACKUP_HOSTS_FILENAME)
44 set hosts_file_path $env(REMOTE_HOSTS_FILE_PATH)
45
46 set err_val [spawn $env(SHELL)]
47 if {$err_val == 0} {
48         puts stderr "Expect failed while spawning a shell process."
49         exit $err_val
50 }
51
52 set err_str [telnet_login $remote_prompt $remote_host $username $password]
53 if {$err_str != "OK"} {
54         puts stderr "\nFunction telnet_login failed during cleanup."
55         puts stderr "Error was: $err_str."
56         exit 1
57 }
58
59 set err_str [remove_test $remote_prompt $sharepath $sharename \
60                 $hosts_file_path $backup_hosts_filename]
61 if {$err_str != "OK"} {
62         puts stderr "\nFunction remove_test failed."
63         puts stderr "Error was: $err_str."
64         # Log off from the telnet server.
65         send "exit\r\n"
66         exit 1
67 }
68
69 # Log off from the telnet server.
70 send "exit\r\n"
71 exit 0