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.2.1 -r1.2.2.2
--- openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	14 Aug 2005 19:59:17 -0000	1.2.2.1
+++ openacs-4/packages/acs-templating/tcl/test/parse-test-procs.tcl	16 Sep 2005 09:46:34 -0000	1.2.2.2
@@ -51,15 +51,3 @@
         }
 }
 
-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 1 item" [template::util::tcl_to_sql_list [list a]] ":__bind_array(1)"
-    aa_equals "checking values of parsed list of 1 item" $__bind_array(1) "a"
-    aa_equals "parses list of 2 or more" [template::util::tcl_to_sql_list [list a b c]] ":__bind_array(1),:__bind_array(2),:__bind_array(3)"
-    aa_equals "checking last value of parsed list of 2 or more items" $__bind_array(3) "c"
-
-}