Remove some more test suite cruft:

* localhostname from get_hostname was unused.
* database_name is no longer used except (misleadingly) in kdb5_util
  output.
* admin_database_name and admin_database_lockfile are no longer used.
* default_domain is only used for v4->v5 principal conversion, which
  isn't tested.
* libkadm5's init-v2.exp had a copy of get_hostname; domain and
  localhostname from it were unused.

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

1 files changed, 2 insertions, 7 deletions

diff --git a/src/lib/kadm5/unit-test/api.current/init-v2.exp b/src/lib/kadm5/unit-test/api.current/init-v2.exp
index 656f146cb..a364b9c14 100644
--- a/src/lib/kadm5/unit-test/api.current/init-v2.exp
+++ b/src/lib/kadm5/unit-test/api.current/init-v2.exp
@@ -9,10 +9,8 @@ if ![info exists RESOLVE] {
 proc get_hostname { } {
     global RESOLVE
     global hostname
-    global localhostname
-    global domain
 
-    if {[info exists hostname] && [info exists localhostname]} {
+    if {[info exists hostname]} {
 	return 1
     }
 
@@ -30,12 +28,9 @@ proc get_hostname { } {
     }
     close $file
     catch "exec rm -f myname" exec_output
-    regexp "^(\[^.\]*)\.(.*)$" $hostname foo localhostname domain
 
     set hostname [string tolower $hostname]
-    set localhostname [string tolower $localhostname]
-    set domain [string tolower $domain]
-    verbose "hostname: $hostname; localhostname: $localhostname; domain $domain"
+    verbose "hostname: $hostname"
 
     return 1
 }