dlte-principal.exp [plain text]
load_lib lib.t
api_exit
api_start
#test "delete-principal 1"
#proc test1 {} {
# global test
# one_line_fail_test [format {
# ovsec_kadm_delete_principal $server_handle "%s/a"
# } $test] "NOT_INIT"
#}
#test1
test "delete-principal 2"
proc test2 {} {
global test
if {! (( ! [principal_exists "$test/a"]) ||
[delete_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/delete admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
perror "$test: unexpected failure in init"
return
}
one_line_fail_test \
{ovsec_kadm_delete_principal $server_handle null} "EINVAL"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
error_and_restart "$test: unexpected failure in destroy"
return
}
}
test2
test "delete-principal 5"
proc test5 {} {
global test
if {! (( ! [principal_exists "$test/a"]) ||
[delete_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/delete admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
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}]} {
perror "$test: unexpected failure in destroy"
return
}
}
test5
test "delete-principal 6"
proc test6 {} {
global test
if {! (( [principal_exists "$test/a"]) ||
[create_principal_pol "$test/a" test-pol])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/delete admin $OVSEC_KADM_CHANGEPW_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
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}]} {
perror "$test: unexpected failure in destroy"
return
}
}
if {$RPC} { test6 }
test "delete-principal 7"
proc test7 {} {
global test
if {! (( [principal_exists "$test/a"]) ||
[create_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/add admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
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}]} {
perror "$test: unexpected failure in destroy"
return
}
}
if {$RPC} { test7 }
test "delete-principal 8"
proc test8 {} {
global test
if {! (( [principal_exists "$test/a"]) ||
[create_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/modify admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
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}]} {
perror "$test: unexpected failure in destroy"
return
}
}
if {$RPC} { test8 }
test "delete-principal 9"
proc test9 {} {
global test
if {! (( [principal_exists "$test/a"]) ||
[create_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/get admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
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}]} {
perror "$test: unexpected failure in destroy"
return
}
}
if {$RPC} { test9 }
test "delete-principal 10"
proc test10 {} {
global test
if {! (( [principal_exists "$test/a"]) ||
[create_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/none admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
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}]} {
perror "$test: unexpected failure in destroy"
return
}
}
if {$RPC} { test10 }
test "delete-principal 11"
proc test11 {} {
global test
if {! (( [principal_exists "$test/a"]) ||
[create_principal "$test/a"])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin/delete admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
perror "$test: unexpected failure in init"
return
}
if { ! [cmd [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test]]} {
fail "$test: delete failed"
return;
}
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
perror "$test: unexpected failure in destroy"
return
}
if { [principal_exists "$test/a"] } {
fail "$test"
return
}
}
test11
test "delete-principal 12"
proc test12 {} {
global test
global prompt
if {! (( [principal_exists "$test/a"]) ||
[create_principal_pol "$test/a" test-pol])} {
error_and_restart "$test: couldn't delete principal \"$test/a\""
return
}
if {! [cmd {
ovsec_kadm_init admin admin $OVSEC_KADM_ADMIN_SERVICE null \
$OVSEC_KADM_STRUCT_VERSION $OVSEC_KADM_API_VERSION_1 \
server_handle
}]} {
perror "$test: unexpected failure in init"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p1}]} {
perror "$test: unexpected failure on get policy"
return
}
if { ! [cmd [format {
ovsec_kadm_delete_principal $server_handle "%s/a"
} $test]]} {
fail "$test: delete failed"
return
}
if { [cmd [format {
ovsec_kadm_get_principal $server_handle "%s/a" p
} $test]]} {
fail "$test: principal still exists"
return
}
if { ! [cmd {ovsec_kadm_get_policy $server_handle test-pol p2}]} {
perror "$test: unexpected failure on get policy"
return
}
send "lindex \$p1 6\n"
expect {
-re "(\[0-9\]+)\n$prompt$" {set oldref $expect_out(1,string) }
timeout {
error_and_restart "$test: timeout getting principal kvno (second time)"
return
}
eof {
error_and_restart "$test: eof getting principal kvno (second time)"
return
}
}
send "lindex \$p2 6\n"
expect {
-re "(\[0-9\]+)\n$prompt$" {set newref $expect_out(1,string) }
timeout {
error_and_restart "$test: timeout getting principal kvno (second time)"
return
}
eof {
error_and_restart "$test: eof getting principal kvno (second time)"
return
}
}
if { [expr "$oldref - 1"] != $newref } {
fail "$test: policy reference count is wrong"
return;
}
pass "$test"
if { ! [cmd {ovsec_kadm_destroy $server_handle}]} {
perror "$test: unexpected failure in destroy"
return
}
}
test12
test "delete-principal 13"
proc test13 {} {
global test
one_line_fail_test [format {
ovsec_kadm_delete_principal null "%s/a"
} $test] "BAD_SERVER_HANDLE"
}
test13
return ""