load_lib lib.t
api_exit
api_start
test "destroy 1"
proc test1 {} {
global test
begin_dump
if {! [cmd {
kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
server_handle
}]} {
perror "$test: unexpected failure in init"
return
}
one_line_succeed_test {kadm5_destroy $server_handle}
end_dump_compare "no-diffs"
}
test1
#test "destroy 2"
#
#proc test2 {} {
# global test
# begin_dump
# if {! [cmd {
# kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
# server_handle
# }]} {
# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# error_and_restart "$test: couldn't close database"
# return
# }
# one_line_fail_test \
# {kadm5_get_principal $server_handle admin principal} \
# "NOT_INIT"
# end_dump_compare "no-diffs"
#}
#test2
#test "destroy 3"
#proc test3 {} {
# global test
#
# begin_dump
# if {! (( ! [principal_exists "$test/a"]) || [delete_principal "$test/a"])} {
# error_and_restart "$test couldn't delete principal \"$test/a\""
# return
# }
# if {! [cmd {
# kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
# server_handle
# }]} {
# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# error_and_restart "$test: couldn't close database"
# return
# }
# one_line_fail_test [format {
# kadm5_create_principal $server_handle \
# [simple_principal "%s/a"] {KADM5_PRINCIPAL} "%s/a"
# } $test $test] "NOT_INIT"
# end_dump_compare "no-diffs"
#}
#test3
#test "destroy 4"
#proc test4 {} {
# global test prompt
#
# if {! (([principal_exists "$test/a"]) || [create_principal "$test/a"])} {
# error_and_restart "$test: couldn't create principal \"$test/a\""
# return
# }
# begin_dump
# if {! ([cmd {
# kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
# server_handle
# }] &&
# [cmd [format {
# kadm5_get_principal $server_handle "%s/a" principal
# } $test]])} {
# error_and_restart "$test: error getting principal"
# return;
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# error_and_restart "$test: couldn't close database"
# return
# }
# one_line_fail_test [format {
# kadm5_modify_principal $server_handle \
# {"%s/a" 0 0 0 0 0 0 0 %d 0 0 0} {KADM5_KVNO}
# } $test "77"] "NOT_INIT"
# end_dump_compare "no-diffs"
#}
#test4
#test "destroy 5"
#
#proc test5 {} {
# global test
#
# if {! ([principal_exists "$test/a"] || [create_principal "$test/a"])} {
# error_and_restart "$test: couldn't create principal \"$test/a\""
# return
# }
# begin_dump
# if {! [cmd {
# kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
# server_handle
# }]} {
# perror "$test: unexpected failure on init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# error_and_restart "$test: couldn't close database"
# return
# }
# one_line_fail_test [format {
# kadm5_delete_principal $server_handle "%s/a"
# } $test] "NOT_INIT"
# end_dump_compare "no-diffs"
#}
#test5
#test "destroy 6"
#
#proc test6 {} {
# global test
# begin_dump
# one_line_fail_test {kadm5_destroy $server_handle} "NOT_INIT"
# end_dump_compare "no-diffs"
#}
#test6
#test "destroy 7"
#
#proc test7 {} {
# global test
# begin_dump
# if {! [cmd {
# kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
# $KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
# server_handle
# }]} {
# perror "$test: unexpected failure in init"
# return
# }
# if {! [cmd {kadm5_destroy $server_handle}]} {
# error_and_restart "$test: couldn't close database"
# }
# one_line_fail_test {kadm5_destroy $server_handle} "NOT_INIT"
# end_dump_compare "no-diffs"
#}
#test7
test "destroy 8"
proc test8 {} {
global test
begin_dump
if {! [cmd {
kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
server_handle
}]} {
perror "$test: unexpected failure in init"
return
}
if {! [cmd {kadm5_destroy $server_handle}]} {
error_and_restart "$test: couldn't close database"
}
one_line_succeed_test {
kadm5_init admin admin $KADM5_ADMIN_SERVICE null \
$KADM5_STRUCT_VERSION $KADM5_API_VERSION_3 \
server_handle
}
if {! [cmd {kadm5_destroy $server_handle}]} {
error_and_restart "$test: couldn't close database"
}
end_dump_compare "no-diffs"
}
test8
test "destroy 9"
proc test9 {} {
global test
one_line_fail_test {kadm5_destroy null} "BAD_SERVER_HANDLE"
}
test9
return ""