embox

1
#!/usr/bin/expect
2

3
# This test works in three steps:
4
# 1. Execute 'rlogin -l <host_username> <host_ip>' on Embox and check if connection established.
5
# 2. Try to log in with <host_passwd> password.
6
# 3. Execute 'ls' on host.
7

8
source [file join [file dirname [info script]] framework/test_core.exp]
9

10
namespace import autotest::*
11

12
set HOST_PROMPT "$ "
13
set host_username "rlogin_user"
14
set host_passwd "rlogin"
15

16
# !!! FIXME: This test does not work with Embox because on Embox we could not
17
# run rlogin through telnet. Seems it is happened because telnet pass the
18
# all received data into shell but not into rlogin client
19
TEST_CASE_TARGET {rlogin test} {
20
	variable host_ip
21
	global host_username
22
	global host_passwd
23
	global HOST_PROMPT
24

25
	test_assert_regexp_equal "rlogin -l $host_username $host_ip\r"     "Password:"
26

27
	send "$host_passwd\r"
28
	expect {
29
	        timeout  { puts "rlogin.exp: 'Password:' timeout\n"; exit 1 }
30
	        $HOST_PROMPT
31
	}
32

33
	test_assert_regexp_equal "ls\r"     $HOST_PROMPT
34
	send "exit\r"
35

36
	return 0
37
}
38