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 -N -r1.64 -r1.65
--- openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Sep 2018 14:16:57 -0000	1.64
+++ openacs-4/packages/acs-tcl/tcl/test/acs-tcl-test-procs.tcl	18 Sep 2018 14:27:19 -0000	1.65
@@ -874,6 +874,23 @@
 }
 
 aa_register_case \
+    -cats {api smoke production_safe} \
+    -procs util_escape_quotes_for_csv \
+    util__escape_quotes_for_csv {
+
+        Test util_escape_quotes_for_csv
+
+        @creation-date 2018-09-18
+        @author Héctor Romojaro <hector.romojaro@gmail.com>
+} {
+    aa_equals "Empty value" [util_escape_quotes_for_csv {}] {}
+    aa_equals "\"\"" [util_escape_quotes_for_csv {""}] {\"\"}
+    aa_equals "Test \" \" test" [util_escape_quotes_for_csv {Test " " test}] {Test \" \" test}
+    aa_equals "\"Test\"" [util_escape_quotes_for_csv {"Test"}] {\"Test\"}
+    aa_equals "\"Test test test\"" [util_escape_quotes_for_csv {"Test test test"}] {\"Test test test\"}
+}
+
+aa_register_case \
     -cats {api} \
     -procs util_url_valid_p \
     acs_tcl__util_url_valid_p {