blob: e925b53c0f077bc9c3aba3428c242a581d87e70f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
# Standalone Kerberos test.
# This is a DejaGnu test script.
# This script tests that the Kerberos tools can talk to each other.
# This mostly just calls procedures in testsuite/config/default.exp.
if ![info exists KLIST] {
set KLIST [findfile $objdir/../../clients/klist/klist]
}
if ![info exists KDESTROY] {
set KDESTROY [findfile $objdir/../../clients/kdestroy/kdestroy]
}
# Set up the Kerberos files and environment.
if {![get_hostname] || ![setup_kerberos_files] || ![setup_kerberos_env]} {
return
}
# Initialize the Kerberos database. The argument tells
# setup_kerberos_db that it is being called from here.
if ![setup_kerberos_db 1] {
return
}
# We are about to start up a couple of daemon processes. We do all
# the rest of the tests inside a proc, so that we can easily kill the
# processes when the procedure ends.
proc doit { } {
global REALMNAME
global KLIST
global KDESTROY
global KEY
global hostname
global tmppwd
global spawn_id
# Start up the kerberos and kadmind daemons.
if ![start_kerberos_daemons 1] {
return
}
# Use kadmin to add an host key.
if ![add_random_key host/$hostname 1] {
return
}
# Use ksrvutil to create a srvtab entry.
if ![setup_srvtab 1] {
return
}
# Use kinit to get a ticket.
if ![kinit krbtest/admin adminpass$KEY 1] {
return
}
# Make sure that klist can see the ticket.
spawn $KLIST -5
expect {
-re "Ticket cache:\[ \]*(.+:)?$tmppwd/tkt.*Default principal:\[ \]*krbtest/admin@$REALMNAME.*krbtgt/$REALMNAME@$REALMNAME\r\n" {
verbose "klist started"
}
timeout {
fail "klist"
return
}
eof {
fail "klist"
return
}
}
expect {
"\r" { }
eof { }
}
if ![check_exit_status "klist"] {
return
}
pass "klist"
# Destroy the ticket.
spawn $KDESTROY -5
if ![check_exit_status "kdestroy"] {
return
}
pass "kdestroy"
# Double check that the ticket was destroyed.
spawn $KLIST -5
expect {
-re "klist: No credentials cache file found.*\r\n" {
verbose "klist started"
}
timeout {
fail "klist after kdestroy"
return
}
eof {
fail "klist after kdestroy"
return
}
}
# We can't use check_exit_status, because we expect an exit status
# of 1.
set status_list [wait -i $spawn_id]
verbose "wait -i $spawn_id returned $status_list (klist)"
if { [lindex $status_list 2] != 0 } {
fail "klist (bad exit status) $status_list"
return
} else { if { [lindex $status_list 3] != 1 } {
fail "klist (bad exit status) $status_list"
return
} else {
pass klist
} }
}
set status [catch doit msg]
stop_kerberos_daemons
if { $status != 0 } {
send_error "ERROR: error in standalone.exp\n"
send_error "$msg\n"
exit 1
}
|
