+2002-09-15 Tom Yu <tlyu@mit.edu>
+
+ * api.0/chpass-principal.exp:
+ * api.0/crte-policy.exp:
+ * api.0/crte-principal.exp:
+ * api.0/destroy.exp:
+ * api.0/dlte-policy.exp:
+ * api.0/dlte-principal.exp:
+ * api.0/get-policy.exp:
+ * api.0/get-principal.exp:
+ * api.0/init.exp:
+ * api.0/mod-policy.exp:
+ * api.0/mod-principal.exp:
+ * api.0/randkey-principal.exp:
+ * api.0/rename-principal.exp:
+ * api.1/lock.exp:
+ * api.2/chpass-principal-v2.exp:
+ * api.2/chpass-principal.exp:
+ * api.2/crte-policy.exp:
+ * api.2/crte-principal.exp:
+ * api.2/destroy.exp:
+ * api.2/dlte-policy.exp:
+ * api.2/dlte-principal.exp:
+ * api.2/get-policy.exp:
+ * api.2/get-principal-v2.exp:
+ * api.2/get-principal.exp:
+ * api.2/init-v2.exp:
+ * api.2/init.exp:
+ * api.2/mod-policy.exp:
+ * api.2/mod-principal-v2.exp:
+ * api.2/mod-principal.exp:
+ * api.2/randkey-principal-v2.exp:
+ * api.2/randkey-principal.exp:
+ * lib/lib.t: s/error/perror.
+
+ * config/unix.exp: Work around tcl 8.4's (incorrect?) output EOL
+ translation.
+
2002-08-29 Ken Raeburn <raeburn@mit.edu>
* Makefile.in: Revert $(S)=>/ change, for Windows support.
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
ovsec_kadm_chpass_principal $server_handle "%s/a" FoobarBax
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_chpass_principal $server_handle "%s/a" password
} $test] "AUTH"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_chpass_principal $server_handle "%s/a" Foobar
} $test] "AUTH_CHANGEPW"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
ovsec_kadm_chpass_principal $server_handle kadmin/history password
} "PROTECT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_chpass_principal null "%s/a" password
} $test] "BAD_SERVER_HANDLE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
0xF01000
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy";
+ perror "$test: unexpected failure in destroy";
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
0x000000
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY OVSEC_KADM_REF_COUNT}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY}
} $test] "BAD_POLICY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{OVSEC_KADM_POLICY}
} "DUP"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{OVSEC_KADM_POLICY}
} "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{OVSEC_KADM_POLICY}
} "BAD_POLICY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY OVSEC_KADM_PW_MIN_LENGTH}
} $test] "BAD_LENGTH"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY OVSEC_KADM_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY OVSEC_KADM_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY OVSEC_KADM_PW_HISTORY_NUM}
} $test] "BAD_HISTORY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
{OVSEC_KADM_POLICY OVSEC_KADM_PW_HISTORY_NUM}
} $test] "BAD_HISTORY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{OVSEC_KADM_POLICY}
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{OVSEC_KADM_POLICY}
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
ovsec_kadm_create_policy $server_handle null {OVSEC_KADM_POLICY}
} "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{OVSEC_KADM_PRINCIPAL} testpass
} "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} null
} $test] "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} ""
} $test] "_Q_TOOSHORT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
[simple_principal "%s/a"] {0x100001} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_LAST_PWD_CHANGE} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_MOD_TIME} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_MOD_NAME} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_MKVNO} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_AUX_ATTRIBUTES} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_POLICY_CLR} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL} testpass
} $test] "DUP"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL OVSEC_KADM_POLICY} tP
} $test] "_Q_TOOSHORT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL OVSEC_KADM_POLICY} testpassword
} $test] "_Q_CLASS"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL OVSEC_KADM_POLICY} Abyssinia
} $test] "_Q_DICT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL OVSEC_KADM_POLICY} NotinTheDictionary
} $test] "UNK_POLICY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
one_line_succeed_test \
[format {ovsec_kadm_get_principal $server_handle "%s/a" p} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
one_line_succeed_test \
[format {ovsec_kadm_get_principal $server_handle "%s/a" p} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+perror"$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+perror"$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+perror"$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
return
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+perror"$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+perror"$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_destroy $server_handle}
# $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
# server_handle
# }]} {
-# error "$test: unexpected failure on init"
+# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {ovsec_kadm_destroy $server_handle}]} {
# $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
# server_handle
# }]} {
-# error "$test: unexpected failure on init"
+# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {ovsec_kadm_destroy $server_handle}]} {
# $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
# server_handle
# }]} {
-# error "$test: unexpected failure on init"
+# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {ovsec_kadm_destroy $server_handle}]} {
# $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
# server_handle
# }]} {
-# error "$test: unexpected failure in init"
+# perror "$test: unexpected failure in init"
# return
# }
# if {! [cmd {ovsec_kadm_destroy $server_handle}]} {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd {ovsec_kadm_destroy $server_handle}]} {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{ovsec_kadm_delete_policy $server_handle ""} "BAD_POL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_policy $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_policy $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_policy $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
return
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if { [policy_exists "$test/a"]} {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test unexecpted failure in init"
+ perror "$test unexecpted failure in init"
return
}
if {! [cmd [format {
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{ovsec_kadm_delete_policy $server_handle test-pol} "POLICY_REF"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test] "UNK_PRINC"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if { [principal_exists "$test/a"] } {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd [format {
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
send "lindex \$p1 6\n"
}
pass "$test"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {ovsec_kadm_get_policy $server_handle "" p} "BAD_POLICY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {ovsec_kadm_get_policy $server_handle test-pol p} \
"AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {ovsec_kadm_get_policy $server_handle test-pol p} \
"AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
null $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_get_policy $server_handle test-pol p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_CHANGEPW_SERVICE null $OVSEC_KADM_STRUCT_VERSION \
$OVSEC_KADM_API_VERSION_1 server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{ovsec_kadm_get_policy $server_handle test-pol-nopw p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{ovsec_kadm_get_policy $server_handle test-pol-nopw p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
null $OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{ovsec_kadm_get_policy $server_handle test-pol-nopw p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_get_policy $server_handle test-pol p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {ovsec_kadm_get_policy $server_handle test-pol p} \
"AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{ovsec_kadm_get_principal $server_handle null p} "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_get_principal $server_handle "%s/a" p
} $test] "UNK_PRINC"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_get_principal $server_handle "%s/a" p
} $test] "AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_get_principal $server_handle "%s/a" p
} $test] "AUTH_GET"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{ovsec_kadm_get_principal $server_handle admin/none p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{ovsec_kadm_get_principal $server_handle admin/none p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_get_principal $server_handle admin/get p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_get_principal $server_handle admin/get p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_get_principal $server_handle admin/add p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {ovsec_kadm_get_principal $server_handle admin/add p}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
expect {
-re "Principal .* deleted." {}
default {
- error "kadmin.local delprinc failed\n";
+ perror "kadmin.local delprinc failed\n";
}
}
expect eof
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_MAX_LIFE}
} $test] "AUTH_MODIFY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_REF_COUNT}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{OVSEC_KADM_PW_MAX_LIFE}
} "BAD_POLICY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_MIN_LENGTH}
} $test] "BAD_LENGTH"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_HISTORY_NUM}
} $test] "BAD_HISTORY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_MAX_LIFE}
} $test] "AUTH_MODIFY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PW_MAX_LIFE}
} $test] "AUTH_MODIFY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{OVSEC_KADM_PW_MAX_LIFE}
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test] "AUTH_MODIFY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINCIPAL}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_LAST_PWD_CHANGE}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_MOD_TIME}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_MOD_NAME}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_MKVNO}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_AUX_ATTRIBUTES}
} $test] "BAD_MASK"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test] "UNK_PRINC"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
no-policy] {OVSEC_KADM_POLICY}
} $test] "UNK_POLICY"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
ovsec_kadm_modify_principal $server_handle [simple_principal "%s/a"] \
{OVSEC_KADM_POLICY_CLR}
} $test]]} {
- error "$test: modify failed"
+ perror "$test: modify failed"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol old_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol-nopw old_p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol new_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol-nopw new_p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol old_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol new_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
pass "$test"
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
}
pass "$test"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if { ! ([create_principal_pol "$test/a" test-pol])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal_pol "$test/a" test-pol])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol pol}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol pol2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
send "lindex \$pol2 6\n"
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
return
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{OVSEC_KADM_PRINC_EXPIRE_TIME}
} "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test] "PASS_TOOSOON"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test] "PASS_TOOSOON"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
ovsec_kadm_modify_principal $server_handle [princ_w_pol "%s/a" \
once-a-min] OVSEC_KADM_POLICY
} $test]]} {
- error "$test: failed modify"
+ perror "$test: failed modify"
return
}
one_line_succeed_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test] "AUTH_CHANGEPW"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test] "AUTH"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
ovsec_kadm_randkey_principal $server_handle "%s/a" key
} $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
ovsec_kadm_randkey_principal $server_handle kadmin/history key
} "PROTECT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_randkey_principal null "%s/a" key
} $test] "BAD_SERVER_HANDLE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "INSUFFICIENT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_INSUFFICIENT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_INSUFFICIENT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_INSUFFICIENT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_DELETE"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH_ADD"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "AUTH"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test]
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
ovsec_kadm_rename_principal $server_handle "%s/a" "%s/b"
} $test $test] "DUP"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test $test] "NO_RENAME_SALT"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
eval lock_test_continue $lock9_1
if {! [file exists $lockfile]} {
- error "lock file missing before test 10"
+ perror "lock file missing before test 10"
}
set lock10 [lock_test_start 10 [list \
[list permanent permanent] \
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
kadm5_chpass_principal $server_handle "%s/a" newpassword
} $test]]} {
- error "$test: unexpected failure in chpass_principal"
+ perror "$test: unexpected failure in chpass_principal"
}
if {! [cmd [format {
kadm5_get_principal $server_handle "%s/a" p \
{KADM5_PRINCIPAL_NORMAL_MASK KADM5_KEY_DATA}
} $test]]} {
- error "$test: unexpected failure in get_principal"
+ perror "$test: unexpected failure in get_principal"
}
send "lindex \$p 16\n"
expect {
fail "$test: $num_keys keys, should be 3"
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
kadm5_chpass_principal $server_handle "%s/a" FoobarBax
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_chpass_principal $server_handle "%s/a" password
} $test] "AUTH"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_chpass_principal $server_handle "%s/a" Foobar
} $test] "AUTH_CHANGEPW"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
kadm5_chpass_principal $server_handle kadmin/history password
} "PROTECT"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_chpass_principal null "%s/a" password
} $test] "BAD_SERVER_HANDLE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
0xF01000
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy";
+ perror "$test: unexpected failure in destroy";
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
0x000000
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY KADM5_REF_COUNT}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY}
} $test] "BAD_POLICY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{KADM5_POLICY}
} "DUP"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{KADM5_POLICY}
} "EINVAL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{KADM5_POLICY}
} "BAD_POLICY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY KADM5_PW_MIN_LENGTH}
} $test] "BAD_LENGTH"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY KADM5_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY KADM5_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY KADM5_PW_HISTORY_NUM}
} $test] "BAD_HISTORY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
{KADM5_POLICY KADM5_PW_HISTORY_NUM}
} $test] "BAD_HISTORY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY}
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{KADM5_POLICY}
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{KADM5_POLICY}
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
kadm5_create_policy $server_handle null {KADM5_POLICY}
} "EINVAL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{KADM5_PRINCIPAL} testpass
} "EINVAL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} null
} $test] "EINVAL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} ""
} $test] "_Q_TOOSHORT"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
[simple_principal "%s/a"] {0x100001} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_LAST_PWD_CHANGE} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_MOD_TIME} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_MOD_NAME} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_MKVNO} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_AUX_ATTRIBUTES} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_POLICY_CLR} "%s/a"
} $test $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} testpass
} $test] "AUTH_ADD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL} testpass
} $test] "DUP"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL KADM5_POLICY} tP
} $test] "_Q_TOOSHORT"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL KADM5_POLICY} testpassword
} $test] "_Q_CLASS"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL KADM5_POLICY} Abyssinia
} $test] "_Q_DICT"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL KADM5_POLICY} NotinTheDictionary
} $test] "UNK_POLICY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
end_dump_compare "no-diffs"
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
one_line_succeed_test \
[format {kadm5_get_principal $server_handle "%s/a" p KADM5_PRINCIPAL_NORMAL_MASK} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
one_line_succeed_test \
[format {kadm5_get_principal $server_handle "%s/a" p KADM5_PRINCIPAL_NORMAL_MASK} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
pass "$test"
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
return
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_destroy $server_handle}
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
# server_handle
# }]} {
-# error "$test: unexpected failure on init"
+# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
# server_handle
# }]} {
-# error "$test: unexpected failure on init"
+# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
# server_handle
# }]} {
-# error "$test: unexpected failure on init"
+# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
# server_handle
# }]} {
-# error "$test: unexpected failure in init"
+# perror "$test: unexpected failure in init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd {kadm5_destroy $server_handle}]} {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{kadm5_delete_policy $server_handle ""} "BAD_POL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_policy $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_policy $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_policy $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
return
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if { [policy_exists "$test/a"]} {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test unexecpted failure in init"
+ perror "$test unexecpted failure in init"
return
}
if {! [cmd [format {
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{kadm5_delete_policy $server_handle test-pol} "POLICY_REF"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_principal $server_handle "%s/a"
} $test] "UNK_PRINC"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_delete_principal $server_handle "%s/a"
} $test] "AUTH_DELETE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if { [principal_exists "$test/a"] } {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd [format {
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
send "lindex \$p1 6\n"
}
pass "$test"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {kadm5_get_policy $server_handle "" p} "BAD_POLICY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {kadm5_get_policy $server_handle test-pol p} \
"AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {kadm5_get_policy $server_handle test-pol p} \
"AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
null $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_get_policy $server_handle test-pol p}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_CHANGEPW_SERVICE null $KADM5_STRUCT_VERSION \
$KADM5_API_VERSION_2 server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{kadm5_get_policy $server_handle test-pol-nopw p}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{kadm5_get_policy $server_handle test-pol-nopw p}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
null $KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{kadm5_get_policy $server_handle test-pol-nopw p}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_get_policy $server_handle test-pol p}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {kadm5_get_policy $server_handle test-pol p} \
"AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd {
kadm5_get_principal $server_handle testuser p \
{KADM5_PRINCIPAL_NORMAL_MASK}
}]} {
- error "$test: unexpected failure in get_principal"
+ perror "$test: unexpected failure in get_principal"
}
send "lindex \$p 16\n"
expect {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd {
kadm5_get_principal $server_handle testuser p \
{KADM5_PRINCIPAL_NORMAL_MASK KADM5_KEY_DATA}
}]} {
- error "$test: unexpected failure in get_principal"
+ perror "$test: unexpected failure in get_principal"
}
send "lindex \$p 16\n"
expect {
if {$failed == 0} { pass "$test" }
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
kadm5_get_principal $server_handle {%s/a} p \
{KADM5_PRINCIPAL_NORMAL_MASK KADM5_TL_DATA}
} $test]]} {
- error "$test: unexpected failure in get_principal"
+ perror "$test: unexpected failure in get_principal"
}
send "lindex \$p 17\n"
expect {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{kadm5_get_principal $server_handle null p KADM5_PRINCIPAL_NORMAL_MASK} "EINVAL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_get_principal $server_handle "%s/a" p KADM5_PRINCIPAL_NORMAL_MASK
} $test] "UNK_PRINC"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_get_principal $server_handle "%s/a" p KADM5_PRINCIPAL_NORMAL_MASK
} $test] "AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
} $test] "AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_get_principal $server_handle "%s/a" p KADM5_PRINCIPAL_NORMAL_MASK
} $test] "AUTH_GET"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{kadm5_get_principal $server_handle admin/none p KADM5_PRINCIPAL_NORMAL_MASK}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test \
{kadm5_get_principal $server_handle admin/none p KADM5_PRINCIPAL_NORMAL_MASK}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_get_principal $server_handle admin/get p KADM5_PRINCIPAL_NORMAL_MASK}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_get_principal $server_handle admin/get p KADM5_PRINCIPAL_NORMAL_MASK}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_get_principal $server_handle admin/add p KADM5_PRINCIPAL_NORMAL_MASK}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_get_principal $server_handle admin/add p KADM5_PRINCIPAL_NORMAL_MASK}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
}
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
if {$max_life == 10} {
kadm5_create_principal $server_handle [simple_principal "%s/a"] \
{KADM5_PRINCIPAL} "%s/a"
} $test $test]]} {
- error "$test: unexpected failure creating principal"
+ perror "$test: unexpected failure creating principal"
}
if {! [cmd [format {
kadm5_get_principal $server_handle "%s/a" principal KADM5_MAX_LIFE
expect {
-re "Principal .* deleted." {}
default {
- error "kadmin.local delprinc failed\n";
+ perror "kadmin.local delprinc failed\n";
}
}
expect eof
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_MAX_LIFE}
} $test] "AUTH_MODIFY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_REF_COUNT}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{KADM5_PW_MAX_LIFE}
} "BAD_POLICY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_MIN_LENGTH}
} $test] "BAD_LENGTH"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_MIN_CLASSES}
} $test] "BAD_CLASS"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_HISTORY_NUM}
} $test] "BAD_HISTORY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_MAX_LIFE}
} $test] "AUTH_MODIFY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PW_MAX_LIFE}
} $test] "AUTH_MODIFY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{KADM5_PW_MAX_LIFE}
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test] "AUTH_MODIFY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINCIPAL}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_LAST_PWD_CHANGE}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_MOD_TIME}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_MOD_NAME}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_MKVNO}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_AUX_ATTRIBUTES}
} $test] "BAD_MASK"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test] "UNK_PRINC"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test] "AUTH_MOD"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
{KADM5_PRINC_EXPIRE_TIME}
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
no-policy] {KADM5_POLICY}
} $test] "UNK_POLICY"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
kadm5_modify_principal $server_handle [simple_principal "%s/a"] \
{KADM5_POLICY_CLR}
} $test]]} {
- error "$test: modify failed"
+ perror "$test: modify failed"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol old_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol-nopw old_p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol new_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol-nopw new_p2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol old_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol new_p1}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
pass "$test"
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
}
pass "$test"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if { ! ([create_principal_pol "$test/a" test-pol])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal_pol "$test/a" test-pol])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol pol}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
if {! [cmd [format {
}
}
if { ! [cmd {kadm5_get_policy $server_handle test-pol pol2}]} {
- error "$test: unexpected failure on get policy"
+ perror "$test: unexpected failure on get policy"
return
}
send "lindex \$pol2 6\n"
return;
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
return
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
return
}
if {! ([create_principal "$test/a"])} {
- error "$test: unexpected failure in creating principal"
+ perror "$test: unexpected failure in creating principal"
return
}
if {! [cmd {
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
timeout { fail "$test" }
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
{KADM5_PRINC_EXPIRE_TIME}
} "EINVAL"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test]]} {
- error "$test: unexpected failure in randkey_principal"
+ perror "$test: unexpected failure in randkey_principal"
}
send "puts \$num_keys\n"
expect {
fail "$test: $num_keys keys, should be 2"
}
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test] "PASS_TOOSOON"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test] "PASS_TOOSOON"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
if {! [cmd [format {
kadm5_modify_principal $server_handle [princ_w_pol "%s/a" \
once-a-min] KADM5_POLICY
} $test]]} {
- error "$test: failed modify"
+ perror "$test: failed modify"
return
}
one_line_succeed_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test] "AUTH_CHANGEPW"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test] "AUTH"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
} $test $test]]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_succeed_test [format {
kadm5_randkey_principal $server_handle "%s/a" keys num_keys
} $test]
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test {
kadm5_randkey_principal $server_handle kadmin/history keys num_keys
} "PROTECT"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_2 \
server_handle
}]} {
- error "$test: unexpected failure in init"
+ perror "$test: unexpected failure in init"
return
}
one_line_fail_test [format {
kadm5_randkey_principal null "%s/a" keys num_keys
} $test] "BAD_SERVER_HANDLE"
if { ! [cmd {kadm5_destroy $server_handle}]} {
- error "$test: unexpected failure in destroy"
+ perror "$test: unexpected failure in destroy"
return
}
}
if {! [info exists env(TCLUTIL)]} {
error "TCLUTIL environment variable isn't set"
}
+ # tcl 8.4 for some reason screws up autodetection of output
+ # EOL translation. Work around it for now.
+ send "if { \[info commands fconfigure\] ne \"\" } { fconfigure stdout -translation lf }\n"
+ expect {
+ -re "$prompt$" {}
+ eof { error "EOF starting API" }
+ timeout { error "Timeout starting API" }
+ }
send "source $env(TCLUTIL)\n"
expect {
-re "$prompt$" {}
proc error_and_restart {error} {
api_exit
api_start
- error $error
+ perror $error
}
proc test {name} {
projects / krb5.git / commitdiff