From 09b640522b03eda94650b4f3da46bda88f497c2f Mon Sep 17 00:00:00 2001
From: Alexey Romanov <alexey.v.romanov@gmail.com>
Date: Thu, 28 Oct 2010 10:22:09 +0400
Subject: [PATCH] Added test for escaping

---
 test/sqlite3_test.erl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/test/sqlite3_test.erl b/test/sqlite3_test.erl
index 9ca7e1c..1b26bd1 100644
--- a/test/sqlite3_test.erl
+++ b/test/sqlite3_test.erl
@@ -89,6 +89,19 @@ blob_test() ->
         sqlite3:read_all(ct, blobs)),
     sqlite3:close(ct).
 
+escaping_test() ->
+    sqlite3:open(ct),
+    drop_table_if_exists(ct, escaping),
+    sqlite3:create_table(ct, escaping, [{str, text}]),
+    Strings = ["a'", "b\"c", "d''e", "f\"\""],
+    Input = [[{str, String}] || String <- Strings],
+    ExpectedRows = [{list_to_binary(String)} || String <- Strings],
+    sqlite3:write_many(ct, escaping, Input),
+    ?assertEqual(
+        [{columns, ["str"]}, {rows, ExpectedRows}], 
+        sqlite3:read_all(ct, escaping)),
+    sqlite3:close(ct).
+
 select_many_records_test() ->
     sqlite3:open(ct),
     drop_table_if_exists(ct, many_records),