From 7ac3bc0fceeacb364b5db0b99b1d631fe685e1df Mon Sep 17 00:00:00 2001
From: Alexey Romanov <alexey.v.romanov@gmail.com>
Date: Fri, 19 Nov 2010 10:22:17 +0300
Subject: [PATCH] More test changes

---
 test/sqlite3_test.erl | 19 ++++++++-----------
 1 file changed, 8 insertions(+), 11 deletions(-)

diff --git a/test/sqlite3_test.erl b/test/sqlite3_test.erl
index 12f1011..7a07afd 100644
--- a/test/sqlite3_test.erl
+++ b/test/sqlite3_test.erl
@@ -122,24 +122,21 @@ escaping() ->
         sqlite3:read_all(ct, escaping)).
 
 select_many_records() ->
+    N = 1024,
     drop_table_if_exists(ct, many_records),
     sqlite3:create_table(ct, many_records, [{id, integer}, {name, text}]),
-    sqlite3:write_many(ct, many_records, [[{id, X}, {name, "bar"}] || X <- lists:seq(1, 1024)]),
+    sqlite3:write_many(ct, many_records, [[{id, X}, {name, "bar"}] || X <- lists:seq(1, N)]),
     Columns = ["id", "name"],
     ?assertEqual(
         [{columns, Columns}, {rows, [{1, <<"bar">>}]}], 
         sqlite3:read(ct, many_records, {id, 1})),
+    [?assertEqual(
+         M, 
+         length(rows(sqlite3:sql_exec(
+             ct, io_lib:format("select * from many_records limit ~p;", [M])))))
+     || M <- [10, 100, 1000]],
     ?assertEqual(
-        10, 
-        length(rows(sqlite3:sql_exec(ct, "select * from many_records limit 10;")))),
-    ?assertEqual(
-        100, 
-        length(rows(sqlite3:sql_exec(ct, "select * from many_records limit 100;")))),
-    ?assertEqual(
-        1000, 
-        length(rows(sqlite3:sql_exec(ct, "select * from many_records limit 1000;")))),
-    ?assertEqual(
-        1024, 
+        N, 
         length(rows(sqlite3:sql_exec(ct, "select * from many_records;")))).
 
 %% note that inserts are actually serialized by gen_server