From 6927a7f5f024fc3a3a14d2847e0f1d7cccfdf4a6 Mon Sep 17 00:00:00 2001
From: Maas-Maarten Zeeman <mmzeeman@xs4all.nl>
Date: Mon, 21 Nov 2011 09:22:45 +0100
Subject: [PATCH] Added map and foreach support on queries

---
 test/esqlite_test.erl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/test/esqlite_test.erl b/test/esqlite_test.erl
index 3a91925..1433c7e 100644
--- a/test/esqlite_test.erl
+++ b/test/esqlite_test.erl
@@ -74,6 +74,32 @@ bind_test() ->
 
     ok.
 
+foreach_test() ->
+    {ok, Db} = esqlite3:open(":memory:"),
+    ok = esqlite3:exec("begin;", Db),
+    ok = esqlite3:exec("create table test_table(one varchar(10), two int);", Db),
+    ok = esqlite3:exec(["insert into test_table values(", "\"hello1\"", ",", "10" ");"], Db),
+    ok = esqlite3:exec(["insert into test_table values(", "\"hello2\"", ",", "11" ");"], Db),
+    ok = esqlite3:exec(["insert into test_table values(", "\"hello3\"", ",", "12" ");"], Db),
+    ok = esqlite3:exec(["insert into test_table values(", "\"hello4\"", ",", "13" ");"], Db),
+    ok = esqlite3:exec("commit;", Db),
+
+    F = fun(Row) ->
+		case Row of 
+		    {Key, Value} ->
+			put(Key, Value)
+		end
+	end,
+    
+    esqlite3:foreach(F, "select * from test_table", Db),
+    
+    2 = get("one"),
+    4 = get("three"),
+    6 = get(<<"five">>),
+    
+    ok.
+    
+
 %%gen_db_test() ->
  %%   {ok, Conn} = gen_db:open(sqlite, ":memory:"),
  %%   [] = gen_db:execute("create table some_shit(hole_one varchar(10), hole_two int);", [], Conn),