In the dejagnu test suite, remove the no-longer-used check_klogin

function.

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

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index def797f3a1930945b89a79b6ccf260ef2b5629c3..107e444b47553b18c355b46a9e739302b55cca66 100644 (file)
--- a/src/tests/dejagnu/config/default.exp
+++ b/src/tests/dejagnu/config/default.exp
@@ -567,37 +567,6 @@ proc check_k5login { testname } {
     return 0
 }
 
-proc check_klogin { testname } {
-    global env
-    global REALMNAME
-
-    if {![file exists ~/.klogin]} {
-       if {$env(USER) == "root"} {
-           return 0
-       } else {
-           return 1
-       }
-    }
-
-    verbose "looking for $env(USER) in ~/.klogin" 2
-    set file [open ~/.klogin r]
-    while { [gets $file principal] != -1 } {
-       verbose " found $principal" 2
-       if { $principal == "$env(USER)" \
-               || $principal == "$env(USER)@$REALMNAME" } {
-           close $file
-           return 1
-       }
-    }
-    close $file
-
-    note "$testname test requires that your name appear in your ~/.klogin"
-    note "file without a realm."
-    unsupported "$testname"
-
-    return 0
-}
-
 # check_exit_status
 # Check the exit status of a spawned program (using the caller's value
 # of spawn_id).  Returns 1 if the program succeeded, 0 if it failed.