diff options
author | Ezra Peisach <epeisach@mit.edu> | 1996-03-19 15:06:08 +0000 |
---|---|---|
committer | Ezra Peisach <epeisach@mit.edu> | 1996-03-19 15:06:08 +0000 |
commit | 8f0547ecae37ba163d93489adce407282a85d2b7 (patch) | |
tree | fdf69ffdae53686feae9bc86aed8ff93d0d41c6a /src/tests | |
parent | 4ab9dff20b4ce34943153c1a6f31a2bd23daeed6 (diff) | |
download | krb5-8f0547ecae37ba163d93489adce407282a85d2b7.tar.gz krb5-8f0547ecae37ba163d93489adce407282a85d2b7.tar.xz krb5-8f0547ecae37ba163d93489adce407282a85d2b7.zip |
Put back in the encrypted telnet tests
git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@7666 dc483132-0cff-0310-8789-dd5450dbe970
Diffstat (limited to 'src/tests')
-rw-r--r-- | src/tests/dejagnu/krb-root/ChangeLog | 4 | ||||
-rw-r--r-- | src/tests/dejagnu/krb-root/telnet.exp | 124 |
2 files changed, 66 insertions, 62 deletions
diff --git a/src/tests/dejagnu/krb-root/ChangeLog b/src/tests/dejagnu/krb-root/ChangeLog index f6fd3d1ce7..f2c11997dd 100644 --- a/src/tests/dejagnu/krb-root/ChangeLog +++ b/src/tests/dejagnu/krb-root/ChangeLog @@ -1,3 +1,7 @@ +Tue Mar 19 10:03:01 1996 Ezra Peisach <epeisach@kangaroo.mit.edu> + + * telnet.exp: Put back in the encrypted telnet tests. + Sun Mar 3 15:42:29 1996 Ezra Peisach <epeisach@kangaroo.mit.edu> * rlogin.exp: Change to execute new program name and proper diff --git a/src/tests/dejagnu/krb-root/telnet.exp b/src/tests/dejagnu/krb-root/telnet.exp index 29d74a2744..9fbd9567e8 100644 --- a/src/tests/dejagnu/krb-root/telnet.exp +++ b/src/tests/dejagnu/krb-root/telnet.exp @@ -281,74 +281,74 @@ proc telnet_test { } { # of checking whether it actually did. Kill it just in case. stop_telnet_daemon -# # Try an authenticated encrypted connection. -# start_telnet_daemon -# spawn $TELNET -a -x -k $REALMNAME $hostname -3023 -# -# expect_after { -# timeout { -# fail $testname -# catch "expect_after" -# return -# } -# eof { -# fail $testname -# catch "expect_after" -# return -# } -# } -# -# set testname "encrypted telnet" -# expect "Kerberos V5 accepts you" -# expect { -# -re "$SHELL_PROMPT" { -# pass $testname -# } -# } -# -# # Make sure the encryption is not destroying the text. -# set testname "echo" -# send "echo hello\r" -# expect "echo hello" -# expect "hello" -# expect { -# -re "$SHELL_PROMPT" { -# pass $testname -# } -# } -# -# # Move back to telnet command mode and check the encryption status. -# set testname "encryption status" -# send "\035" -# expect "telnet>" -# send "status\r" -# expect { -# -re "Currently encrypting output with DES_CFB64.*Currently decrypting input with DES_CFB64" { -# pass $testname -# } -# } - -# set testname "exit status" -# send "exit\r" -# expect "Connection closed by foreign host.\r" -# -# expect_after + # Try an authenticated encrypted connection. + start_telnet_daemon + spawn $TELNET -a -x -k $REALMNAME $hostname -3023 + + expect_after { + timeout { + fail $testname + catch "expect_after" + return + } + eof { + fail $testname + catch "expect_after" + return + } + } + + set testname "encrypted telnet" + expect "Kerberos V5 accepts you" + expect { + -re "$SHELL_PROMPT" { + pass $testname + } + } + + # Make sure the encryption is not destroying the text. + set testname "echo" + send "echo hello\r" + expect "echo hello" + expect "hello" + expect { + -re "$SHELL_PROMPT" { + pass $testname + } + } + + # Move back to telnet command mode and check the encryption status. + set testname "encryption status" + send "\035" + expect "telnet>" + send "status\r" + expect { + -re "Currently encrypting output with DES_CFB64.*Currently decrypting input with DES_CFB64" { + pass $testname + } + } + + set testname "exit status" + send "exit\r" + expect "Connection closed by foreign host.\r" + + expect_after # We can't use check_exit_status, because we expect an exit status # of 1. -# set status_list [wait -i $spawn_id] -# verbose "wait -i $spawn_id returned $status_list (klist)" -# if { [lindex $status_list 2] != 0 || [lindex $status_list 3] != 1 } { -# send_log "exit status: $status_list\n" -# verbose "exit status: $status_list" -# fail "exit status" -# } else { -# pass "exit status" -# } + set status_list [wait -i $spawn_id] + verbose "wait -i $spawn_id returned $status_list (klist)" + if { [lindex $status_list 2] != 0 || [lindex $status_list 3] != 1 } { + send_log "exit status: $status_list\n" + verbose "exit status: $status_list" + fail "exit status" + } else { + pass "exit status" + } # The telnet daemon should have stopped, but we have no easy way # of checking whether it actually did. Kill it just in case. -# stop_telnet_daemon + stop_telnet_daemon } # Run the test. Logging in sometimes takes a while, so increase the |