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>
71 lines
1.7 KiB
Plaintext
Executable File
71 lines
1.7 KiB
Plaintext
Executable File
#!/usr/bin/expect
|
|
|
|
set timeout 2
|
|
expect_after default {puts "\nFAIL"; exit 1}
|
|
|
|
if {$argc != 4} {
|
|
puts "usage: gpasswd.exp <run_user> <group> <g_password> <user_prompt>"
|
|
exit 1
|
|
}
|
|
|
|
set run_user [lindex $argv 0]
|
|
set group [lindex $argv 1]
|
|
set g_password [lindex $argv 2]
|
|
set user_prompt [lindex $argv 3]
|
|
|
|
# First, switch to the testsuite user
|
|
# (otherwise, no password will be asked)
|
|
send_user "# switch to user '$run_user'\n"
|
|
send_user "# and expect a '$user_prompt' prompt\n"
|
|
spawn /bin/su $run_user
|
|
|
|
expect "$user_prompt" ;# Wait for the prompt
|
|
|
|
send_user "\n# make sure we are now '$run_user'"
|
|
send_user "\n# whoami should return '$run_user'"
|
|
send "\r" ;# restore the prompt for the logs
|
|
send "whoami\r" ;# Verify we are really testsuite
|
|
|
|
expect {
|
|
timeout {
|
|
puts "\ntimeout...FAIL"
|
|
exit 1
|
|
}
|
|
"$run_user"
|
|
}
|
|
|
|
expect "$user_prompt" ;# Wait for the prompt
|
|
|
|
send_user "\n\n"
|
|
send_user "# now change '$group' 's password to '$g_password'\n"
|
|
send_user "# and expect a password prompt"
|
|
send "\r" ;# restore the prompt for the logs
|
|
send "gpasswd $group\r" ;# Change the password
|
|
expect "New Password: " ;# Wait for the Password: prompt
|
|
# Wait a little bit more (gpasswd is not ready to receive the password)
|
|
sleep 0.1
|
|
send "$g_password\r" ;# Send the password
|
|
|
|
send_user "\n# password '$g_password' sent\n\n"
|
|
|
|
send_user "Expect a new password prompt\n"
|
|
expect "Re-enter new password: " ;# Wait for the Password: prompt
|
|
# Wait a little bit more (gpasswd is not ready to receive the password)
|
|
sleep 0.1
|
|
send "$g_password\r" ;# Send the password
|
|
|
|
send_user "# expect prompt '$user_prompt'"
|
|
|
|
expect {
|
|
# Wait for the new prompt
|
|
"$user_prompt" {
|
|
send "exit\r"
|
|
expect "$ "
|
|
puts "\nPASS"
|
|
exit 0
|
|
}
|
|
}
|
|
|
|
puts "\ntimeout...FAIL"
|
|
exit 1
|