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.13 -r1.28.2.14
--- openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	7 Aug 2020 10:30:57 -0000	1.28.2.13
+++ openacs-4/packages/acs-lang/tcl/test/acs-lang-test-procs.tcl	18 Jan 2021 16:22:55 -0000	1.28.2.14
@@ -1195,6 +1195,23 @@
             [lang::catalog::package_has_files_in_locale_p $bogus_package_key $bogus_locale]
     }
 
+aa_register_case \
+    -procs {} catalog_files_are_valid_xml {
+        Make sure that what is found in	catalog	files is valid XML
+    } {
+        set catalog_files [list]
+        foreach package_key [db_list get_packages {select distinct package_key from apm_packages}] {
+            lappend catalog_files {*}[lang::catalog::get_catalog_paths_for_import -package_key $package_key]
+        }
+
+        foreach f $catalog_files {
+            set rfd [open $f r]
+            set xml [read $rfd]
+            close $rfd
+            aa_false "Catalog file '$f' apears to be valid XML" [catch {dom parse $xml doc}]
+        }
+    }
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4