From 6fb796313b9cd9532823effe7081199c387166de Mon Sep 17 00:00:00 2001
From: Alexey Romanov <alexey.v.romanov@gmail.com>
Date: Tue, 12 Oct 2010 16:47:36 +0400
Subject: [PATCH] Added check that delete works to test.erl

---
 test.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test.erl b/test.erl
index efa8b8c..61e3a6a 100755
--- a/test.erl
+++ b/test.erl
@@ -19,9 +19,9 @@ test() ->
     [{columns, Columns}, {rows, Rows2}] = sqlite3:read(ct, user, {name, "abby"}),
 	Rows2 = [{1, <<"abby">>, 20, 2000}],
     [{columns, Columns}, {rows, Rows1}] = sqlite3:read(ct, user, {wage, 2000}),
-    sqlite3:delete(ct, user, {name, "abby"}),
+    sqlite3:delete(ct, user, {name, "marge"}),
+    [{columns, Columns}, {rows, Rows2}] = sqlite3:sql_exec(ct, "select * from user;"),
     sqlite3:drop_table(ct, user),
-%sqlite3:delete_db(ct)
     sqlite3:close(ct),
     io:format("Tests passed~n").