From 3aa521f55761ca5c2c014388f6fe0f1ce3589114 Mon Sep 17 00:00:00 2001
From: Greg Hudson <ghudson@mit.edu>
Date: Fri, 10 Jul 2009 19:13:17 +0000
Subject: [PATCH] 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
---
 src/tests/dejagnu/config/default.exp | 31 ----------------------------
 1 file changed, 31 deletions(-)

diff --git a/src/tests/dejagnu/config/default.exp b/src/tests/dejagnu/config/default.exp
index def797f3a..107e444b4 100644
--- 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.
-- 
2.26.2