Comment out encrypted telnet tests

git-svn-id: svn://anonsvn.mit.edu/krb5/trunk@7087 dc483132-0cff-0310-8789-dd5450dbe970

diff --git a/src/tests/dejagnu/krb-root/ChangeLog b/src/tests/dejagnu/krb-root/ChangeLog
new file mode 100644 (file)
index 0000000..8a3d9c8
--- /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 22ccb7803515f458e8db4eca8199dcdebc932f7f..ce0acf7fa8289a671cfb1023cfcc1d70827b9cf2 100644 (file)
--- 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