mirror of
https://github.com/shadow-maint/shadow.git
synced 2024-11-24 10:35:01 +08:00
b999d48941
We're losing the svn history (which we could probably keep if we tried hard enough) but don't consider that worthwhile. Note these tests are destructive, so run them only in a throwaway environment like a chroot, container, or vm. The tests/run.all script should be the one which launches all the tests. Signed-off-by: Serge Hallyn <serge.hallyn@ubuntu.com>
62 lines
1.7 KiB
Plaintext
Executable File
62 lines
1.7 KiB
Plaintext
Executable File
#!/usr/bin/expect -f
|
|
|
|
# This is a script for repeatedly logging into the localhost
|
|
# using `rlogin` in order to apparently see a symptoms described
|
|
# in bug #332198.
|
|
# As described in the bug log, sometimes `rlogind` will fail to
|
|
# establish a connection, because it starts "login" process and
|
|
# the latter fails with "unable to determine TTY name, got /dev/pts/1"
|
|
# message.
|
|
#
|
|
# BUGS
|
|
#
|
|
# * the script rlogins to localhost
|
|
# * the script doesn't handle passwdord prompt, because it's intended
|
|
# to use .rhosts auth and expects shell prompt immediately after
|
|
# `rlogin`
|
|
# * the regexp for shell prompt is hardcoded
|
|
|
|
log_user 0
|
|
match_max 8192
|
|
|
|
while {1} {
|
|
set rlogin_spawn [spawn rlogin localhost]
|
|
if { $rlogin_spawn == 0 } { exit 1 }
|
|
expect {
|
|
-timeout 10 -re "^.*(Last login\[^\r\n\]*).*\n(\[^\r\n\]*\[#$\] )$" {
|
|
send_error "$expect_out(1,string)\n"
|
|
send_error "$expect_out(2,string)\n"
|
|
# send_error "$expect_out(0,string)\n"
|
|
}
|
|
timeout {
|
|
send_error "TIMEOUT/prompt\n"
|
|
send_error "$expect_out(buffer)\n"
|
|
send_error "RETRYING\n"
|
|
log_user 1
|
|
send "tty /\r"
|
|
expect -timeout 2 -re "^.*\r?\n(\[^\r\n\]*# )$" {}
|
|
send "tty /\r"
|
|
expect -timeout 2 -re "^.*\r?\n(\[^\r\n\]*# )$" {}
|
|
send_error "\n"
|
|
exit 2
|
|
}
|
|
}
|
|
send "tty\r"
|
|
expect {
|
|
-timeout 4 -re "tty\r?\n(\[^\r\n\]*)\r?\n(\[^\r\n\]*\[#$\] )$" {
|
|
send_error "$expect_out(2,string)$expect_out(1,string)\n"
|
|
# send_error "$expect_out(0,string)\n"
|
|
}
|
|
timeout { send_error "TIMEOUT/tty\n" ; exit 3 }
|
|
}
|
|
send "exit\r"
|
|
expect {
|
|
-timeout 2 eof {
|
|
# send_error "OK4: EOF\n"
|
|
}
|
|
timeout { send_error "TIMEOUT/eof\n" ; exit 4 }
|
|
}
|
|
wait
|
|
}
|
|
# vi: set sw=4:
|