Index: openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	13 Jan 2005 13:56:01 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	17 Sep 2005 06:07:19 -0000	1.3
@@ -49,4 +49,14 @@
             
             
         }
-}
\ No newline at end of file
+}
+
+aa_register_case -cats {api smoke} tcl_to_sql_list {
+    Tests the tcl_to_sql_list proc.
+
+    @author Torben Brosten
+} {
+    aa_equals "parses list of 0 items" [template::util::tcl_to_sql_list [list]] ""
+    aa_equals "parses list of 2 or more" [template::util::tcl_to_sql_list [list isn't hess' 'bit 'trippy']] "'isn''t', 'hess''', '''bit', '''trippy'''"
+
+}