svn rev #22433: trunk/src/tests/dejagnu/config/

[ghudson@MIT.EDU]

http://src.mit.edu/fisheye/changelog/krb5/?cs=22433
Commit By: ghudson
Log Message:
In the dejagnu test suite, remove the no-longer-used check_klogin
function.



Changed Files:
U   trunk/src/tests/dejagnu/config/default.exp
Modified: trunk/src/tests/dejagnu/config/default.exp
===================================================================
--- trunk/src/tests/dejagnu/config/default.exp	2009-07-09 22:08:57 UTC (rev 22432)
+++ trunk/src/tests/dejagnu/config/default.exp	2009-07-10 19:13:17 UTC (rev 22433)
@@ -567,37 +567,6 @@
     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.