From 78944481d7a2dcb3d145aeb52d2bf78bd4169c68 Mon Sep 17 00:00:00 2001
From: Alexey Romanov <alexey.v.romanov@gmail.com>
Date: Fri, 15 Oct 2010 10:54:34 +0400
Subject: [PATCH] Slight test change

---
 test/sqlite3_test.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/sqlite3_test.erl b/test/sqlite3_test.erl
index 1887b22..c8ec03f 100644
--- a/test/sqlite3_test.erl
+++ b/test/sqlite3_test.erl
@@ -78,7 +78,7 @@ select_many_records_test() ->
 	sqlite3:open(ct),
 	drop_table_if_exists(ct, many_records),
     sqlite3:create_table(ct, many_records, [{id, integer}, {name, text}]),
-	lists:foreach(fun(X) -> sqlite3:write(ct, many_records, [{id, X}, {name, "bar"}]) end, lists:seq(1, 1024)),
+	[sqlite3:write(ct, many_records, [{id, X}, {name, "bar"}]) || X <- Seq],
 	Columns = ["id", "name"],
     ?assertEqual(
         [{columns, Columns}, {rows, [{1, <<"bar">>}]}],