keplerproject/luasql
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
eduquintao 2003-10-27 17:18:15 +00:00
parent 9236fa645f
commit 83dfeb64f7
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test.lua
View File

@ -83,7 +83,13 @@ function define_table (n)
for i = 1, n do for i = 1, n do
s = s.."f"..i.." varchar(30), " s = s.."f"..i.." varchar(30), "
end end
return string.sub (s, 1, -3)..")" s = string.sub(s, 1, -3)..")"
if driver == "mysql" then
s = s.." TYPE = InnoDB;" -- mysql issue
end
return s
end end
--------------------------------------------------------------------- ---------------------------------------------------------------------
@ -139,7 +145,7 @@ function fetch_new_table ()
assert2 (1, CONN:execute ("insert into t (f1, f2, f3, f4) values ('a', 'b', 'c', 'd')")) assert2 (1, CONN:execute ("insert into t (f1, f2, f3, f4) values ('a', 'b', 'c', 'd')"))
assert2 (1, CONN:execute ("insert into t (f1, f2, f3, f4) values ('f', 'g', 'h', 'i')")) assert2 (1, CONN:execute ("insert into t (f1, f2, f3, f4) values ('f', 'g', 'h', 'i')"))
-- retrieve data using a new table. -- retrieve data using a new table.
local cur = CUR_OK (CONN:execute ("select f1, f2, f3, f4 from t")) local cur = CUR_OK (CONN:execute ("select f1, f2, f3, f4 from t order by f1"))
local row, err = cur:fetch{} local row, err = cur:fetch{}
assert2 (type(row), "table", err) assert2 (type(row), "table", err)
assert2 ('a', row[1]) assert2 ('a', row[1])
@ -314,7 +320,7 @@ function column_info ()
for i = 1, table.getn(names) do for i = 1, table.getn(names) do
assert2 ("f"..i, names[i], "incorrect column names table") assert2 ("f"..i, names[i], "incorrect column names table")
local type_i = types[i] local type_i = types[i]
assert (type_i == "varchar (30)" or type_i == "string", "incorrect column types table") assert (type_i == "varchar (30)" or type_i == "string" or type_i == "string(30)", "incorrect column types table")
end end
-- check if the tables are being reused. -- check if the tables are being reused.
local n2, t2 = cur:getcolnames(), cur:getcoltypes() local n2, t2 = cur:getcolnames(), cur:getcoltypes()