5 test "get-principal 100"
10 kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
11 $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
14 error "$test: unexpected failure in init"
18 kadm5_get_principal $server_handle testuser p \
19 {KADM5_PRINCIPAL_NORMAL_MASK}
21 error "$test: unexpected failure in get_principal"
23 send "lindex \$p 16\n"
25 -re "(\[0-9\]+)\n$prompt" { set num_keys $expect_out(1,string) }
27 error_and_restart "$test: timeout getting num_keys"
31 error_and_restart "$test: eof getting num_keys"
35 send "lindex \$p 17\n"
37 -re "(\[0-9\]+)\n$prompt" { set num_tl $expect_out(1,string) }
39 error_and_restart "$test: timeout getting num_tl"
43 error_and_restart "$test: eof getting num_tl"
47 send "lindex \$p 18\n"
49 -re "({.*})\n$prompt" {set key_data $expect_out(1,string) }
50 -re "\n$prompt" { set key_data {} }
52 error_and_restart "$test: timeout getting key_data"
56 error_and_restart "$test: eof getting key_data"
60 send "lindex \$p 19\n"
62 -re "({.*})\n$prompt" {set tl_data $expect_out(1,string) }
63 -re "\n$prompt" { set tl_data {} }
65 error_and_restart "$test: timeout getting tl_data"
69 error_and_restart "$test: eof getting tl_data"
76 fail "$test: num_keys $num_keys should be 0"
80 fail "$test: num_tl $num_tl should be 0"
83 if {$key_data != {}} {
84 fail "$test: key_data $key_data should be {}"
87 if {$tl_data != "{}"} {
88 fail "$test: tl_data $tl_data should be empty"
95 if { ! [cmd {kadm5_destroy $server_handle}]} {
96 error "$test: unexpected failure in destroy"
102 proc test101_102 {rpc} {
106 kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
107 $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
110 error "$test: unexpected failure in init"
114 kadm5_get_principal $server_handle testuser p \
115 {KADM5_PRINCIPAL_NORMAL_MASK KADM5_KEY_DATA}
117 error "$test: unexpected failure in get_principal"
119 send "lindex \$p 16\n"
121 -re "(\[0-9\]+)\n$prompt" { set num_keys $expect_out(1,string) }
123 error_and_restart "$test: timeout getting num_keys"
127 error_and_restart "$test: eof getting num_keys"
131 send "lindex \$p 18\n"
133 -re "({.*})\n$prompt" {set key_data $expect_out(1,string) }
134 -re "\n$prompt" { set key_data {} }
136 error_and_restart "$test: timeout getting key_data"
140 error_and_restart "$test: eof getting key_data"
146 if {$num_keys != 3} {
147 fail "$test: num_keys $num_keys should be 3"
150 for {set i 0} {$i < $num_keys} {incr i} {
151 set key "[lindex [lindex $key_data $i] 2]"
152 if {($rpc && [string compare $key ""] != 0) ||
153 ((! $rpc) && [string compare $key ""] == 0)} {
154 fail "$test: key_data $key is wrong"
159 if {$failed == 0} { pass "$test" }
161 if { ! [cmd {kadm5_destroy $server_handle}]} {
162 error "$test: unexpected failure in destroy"
166 test "get-principal 101"
167 if {$RPC} {test101_102 $RPC}
168 test "get-principal 102"
169 if {! $RPC} {test101_102 $RPC}
171 test "get-principal 103"
175 if {! (( [principal_exists "$test/a"]) ||
176 [create_principal "$test/a"])} {
177 error_and_restart "$test: couldn't create principal \"$test/a\""
182 kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
183 $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
186 error "$test: unexpected failure in init"
190 if { ! [cmd [format {
191 kadm5_modify_principal $server_handle \
192 "{%s/a} 0 0 0 0 {%s/a} 0 0 0 0 null 0 0 0 0 0 0 1 {} {{999 6 foobar}}" \
195 fail "$test: cannot set TL_DATA"
200 kadm5_get_principal $server_handle {%s/a} p \
201 {KADM5_PRINCIPAL_NORMAL_MASK KADM5_TL_DATA}
203 error "$test: unexpected failure in get_principal"
205 send "lindex \$p 17\n"
207 -re "(\[0-9\]+)\n$prompt" { set num_tl $expect_out(1,string) }
209 error_and_restart "$test: timeout getting num_tl"
213 error_and_restart "$test: eof getting num_tl"
217 send "lindex \$p 19\n"
219 -re "({.*})\n$prompt" {set tl_data $expect_out(1,string) }
220 -re "\n$prompt" { set tl_data {} }
222 error_and_restart "$test: timeout getting tl_data"
226 error_and_restart "$test: eof getting tl_data"
232 fail "$test: num_tl $num_tl should not be 0"
233 } elseif {$tl_data == "{{999 6 foobar}}"} {
236 fail "$test: tl_data $tl_data should be {{999 6 foobar}}"
239 if { ! [cmd {kadm5_destroy $server_handle}]} {
240 error "$test: unexpected failure in destroy"