From 8f0547ecae37ba163d93489adce407282a85d2b7 Mon Sep 17 00:00:00 2001
From: Ezra Peisach <epeisach@mit.edu>
Date: Tue, 19 Mar 1996 15:06:08 +0000
Subject: Put back in the encrypted telnet tests

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@7666 dc483132-0cff-0310-8789-dd5450dbe970
---
 src/tests/dejagnu/krb-root/ChangeLog  |   4 ++
 src/tests/dejagnu/krb-root/telnet.exp | 124 +++++++++++++++++-----------------
 2 files changed, 66 insertions(+), 62 deletions(-)

(limited to 'src/tests')

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
-- 
cgit