Tests for foreach

test/esqlite_test.erl

@@ -101,6 +101,24 @@ foreach_test() ->
     
     ok.
 
+map_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) ->
+		Row
+	end,
+    
+    ok = esqlite3:map(F, "select * from test_table", Db),
+    
+    ok.
+    
 
 %%gen_db_test() ->
  %%   {ok, Conn} = gen_db:open(sqlite, ":memory:"),