#
# $Id: principal.exp 20730 2008-09-18 15:42:34Z raeburn $
#
set timeout 15
load_lib "helpers.exp"
if [info exist env(DEBUG)] { debug 1 }
#
# Here are the tests
#
if {[info exists env(KRB5CCNAME)]} {
unset env(KRB5CCNAME)
}
# Apple (in Mac OS X 10.5.4) is shipping a tcl in which
# unsetting env-array values seems not to work!
if {[info exists env(KRB5CCNAME)]} {
untested {B.7: default nonexisting ccache(1) (unset failed, tcl defective!)}
untested {B.7: default nonexisting ccache(2)}
untested {B.4: default existing cache containing existing principal}
set test2pass test2
} else {
kdestroy
#### no principal specified
if {[info exists env(USER)]} {
set whoami $env(USER)
} else {
set whoami [exec whoami]
}
test_win {} {B.7: default nonexisting ccache(1)} $whoami $whoami newpass
test_win {} {B.7: default nonexisting ccache(2)} $whoami newpass $whoami
kinit test2 test2
test_win {} {B.4: default existing cache containing existing principal} \
test2 test2 newpass
kdestroy
set test2pass newpass
}
set env(KRB5CCNAME) FILE:/tmp/ovsec_adm_test_ccache
kinit test2 $test2pass
test_win {} {B.3: specified existing cache containing existing principal} \
test2 $test2pass test2
kdestroy
unset env(KRB5CCNAME)
# Apple (in Mac OS X 10.5.4) is shipping a tcl in which
# unsetting env-array values seems not to work!
if {[info exists env(KRB5CCNAME)]} {
untested {B.14: existing principal, no realm}
untested {B.15, C.6: non-existent principal, no realm}
untested {B.16: existing principal, with realm}
untested {B.17: non-existent principal, with realm}
} else {
#### principal on command line
#
test_win {test2} {B.14: existing principal, no realm} test2 test2 newpass
#
test_initerr {bogus} {B.15, C.6: non-existent principal, no realm} bogus bogus \
3 "${initerr_str}Client not found in Kerberos database"
#
test_win {test2@SECURE-TEST.OV.COM} {B.16: existing principal, with realm} \
test2 newpass test2
#
test_initerr {bogus@SECURE-TEST.OV.COM} \
{B.17: non-existent principal, with realm} \
bogus bogus \
3 "${initerr_str}Client not found in Kerberos database"
}