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 -N -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