From 9f79427d9b3793dff35e2c787e7b27f4d62e50f5 Mon Sep 17 00:00:00 2001 From: Greg Hudson Date: Sun, 28 Feb 2010 20:32:00 +0000 Subject: 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 --- src/lib/kadm5/unit-test/api.current/init-v2.exp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'src/lib') 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 } -- cgit