summaryrefslogtreecommitdiff
path: root/source4/script/tests/win/wintest_remove.exp
blob: a361db295832d6820d1725e39076244d0d083990 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
# 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