From 1b605cefbf8017805837c1f9f7cfe1a48f660d89 Mon Sep 17 00:00:00 2001
From: Ezra Peisach <epeisach@mit.edu>
Date: Sat, 11 Nov 1995 02:16:11 +0000
Subject: [PATCH] Comment out encrypted telnet tests

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@7087 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(-)
 create mode 100644 src/tests/dejagnu/krb-root/ChangeLog

diff --git a/src/tests/dejagnu/krb-root/ChangeLog b/src/tests/dejagnu/krb-root/ChangeLog
new file mode 100644
index 000000000..8a3d9c808
--- /dev/null
+++ b/src/tests/dejagnu/krb-root/ChangeLog
@@ -0,0 +1,4 @@
+Fri Nov 10 21:15:28 1995  Ezra Peisach  <epeisach@kangaroo.mit.edu>
+
+	* telnet.exp: Comment out encrypted telnet tests.
+
diff --git a/src/tests/dejagnu/krb-root/telnet.exp b/src/tests/dejagnu/krb-root/telnet.exp
index 22ccb7803..ce0acf7fa 100644
--- a/src/tests/dejagnu/krb-root/telnet.exp
+++ b/src/tests/dejagnu/krb-root/telnet.exp
@@ -279,74 +279,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 KRBTEST.COM $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 KRBTEST.COM $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
-- 
2.26.2