Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v diff -u -r1.12.2.12 -r1.12.2.13 --- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl 25 Aug 2020 12:43:06 -0000 1.12.2.12 +++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl 25 Aug 2020 12:57:25 -0000 1.12.2.13 @@ -7,6 +7,21 @@ } aa_register_case \ + group_localization_leftovers { + Checks that not leftover group title localizations can be + found belonging to groups that do not exist anymore. + } { + aa_false "Leftover group localization message keys do not exist in the database" [db_string leftovers_exist { + select exists (select 1 from lang_message_keys k + where package_key = 'acs-translations' + and message_key like 'group_title_%' + and not exists (select 1 from groups + where group_id = cast(split_part(k.message_key, '_', 3) as integer))) + from dual + }] + } + +aa_register_case \ -procs { group::delete group::new