Index: openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl,v diff -u -r1.28.2.2 -r1.28.2.3 --- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 25 Mar 2019 12:08:45 -0000 1.28.2.2 +++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl 25 Mar 2019 14:06:21 -0000 1.28.2.3 @@ -1124,10 +1124,10 @@ This test calls the checks to ensure a message is correct on every message in the system } { aa_run_with_teardown -rollback -test_code { - foreach tuple [db_list_of_lists get_message_keys { - select message_key, package_key, locale, message from lang_messages - }] { - lassign $tuple message_key package_key locale message + db_foreach get_message_keys { + select message_key, package_key, locale, message + from lang_messages where not deleted_p + } { set error_p [catch {lang::message::check $locale $package_key $message_key $message} errmsg] set errmsg [expr {$error_p ? ": $errmsg" : ""}] aa_false "Message $message_key in package $package_key for locale $locale correct$errmsg" $error_p