Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v diff -u -r1.53.2.6 -r1.53.2.7 --- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl 11 Sep 2019 12:24:16 -0000 1.53.2.6 +++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl 11 Sep 2019 12:37:34 -0000 1.53.2.7 @@ -924,15 +924,34 @@ -procs { auth::authority::delete auth::authority::get_id + auth::authority::get_short_names + auth::authority::get_authority_options } \ auth_authority_delete { - Test authority deletion + Test authority deletion and some retrieval api } { aa_log "Retrieving test authority" set authority_id [auth::authority::get_id -short_name "acs_testing"] aa_run_with_teardown \ -rollback \ -test_code { + set proc_value [lsort [auth::authority::get_short_names]] + set db_value [lsort [db_list select_authority_short_names { + select short_name + from auth_authorities + }]] + aa_equals "(auth::authority::get_short_names): Value returned is as expected" $proc_value $db_value + + set proc_value [lsort [auth::authority::get_authority_options]] + set db_value [lsort [db_list_of_lists select_authorities { + select pretty_name, authority_id + from auth_authorities + where enabled_p = 't' + and auth_impl_id is not null + order by sort_order + }]] + aa_equals "(auth::authority::get_authority_options): Value returned is as expected" $proc_value $db_value + aa_log "Make sure test authority has no users" foreach user_id [db_list get_users { select user_id from users where authority_id = :authority_id @@ -946,6 +965,22 @@ aa_true "Authority has been deleted" \ {[auth::authority::get_id -short_name "acs_testing"] eq ""} + set proc_value [lsort [auth::authority::get_short_names]] + set db_value [lsort [db_list select_authority_short_names { + select short_name + from auth_authorities + }]] + aa_equals "(auth::authority::get_short_names): Value returned is still as expected" $proc_value $db_value + + set proc_value [lsort [auth::authority::get_authority_options]] + set db_value [lsort [db_list_of_lists select_authorities { + select pretty_name, authority_id + from auth_authorities + where enabled_p = 't' + and auth_impl_id is not null + order by sort_order + }]] + aa_equals "(auth::authority::get_authority_options): Value returned is still as expected" $proc_value $db_value } aa_run_with_teardown \ -rollback \ @@ -1043,8 +1078,6 @@ } } - - # Local variables: # mode: tcl # tcl-indent-level: 4