Index: openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	4 Nov 2003 10:33:37 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	6 Dec 2003 15:11:16 -0000	1.18
@@ -691,3 +691,30 @@
     aa_equals "List is not a subset" [util_get_subset_missing [list a b c d] [list a b c]] [list d]
 }
 
+aa_register_case acs_tcl__all_tcl_files_parse_p {
+    Test all known tcl files for successful parsing "(in the [info complete] sense at least)."
+
+    @author Jeff Davis
+} {
+    # couple of local helper procs 
+    proc ::tcl_p {file} { 
+        return [expr [string match {*.tcl} $file] || [file isdirectory $file]]
+    }
+    
+    set startdir [acs_root_dir]/packages/
+    
+    aa_log "Checks starting from $startdir<br />"
+
+    foreach file [ad_find_all_files -check_file_func ::tcl_p $startdir] { 
+
+        # Check that the file parses
+        set fp [open $file "r"]
+        set data [read $fp]
+        close $fp
+        
+        aa_true "$file parses successfully" [info complete $data]
+    }
+
+
+}
+