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

Adding test for data types managed by the driver.

Browse Source
This commit is contained in:
tomas 2006-01-25 19:54:21 +00:00
parent 2a84ca6c3d
commit 47b1092bcc
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/odbc.lua
View File

@ -1,6 +1,6 @@
--------------------------------------------------------------------- ---------------------------------------------------------------------
-- ODBC specific tests and configurations. -- ODBC specific tests and configurations.
-- $Id: odbc.lua,v 1.1 2006/01/23 20:13:25 tomas Exp $ -- $Id: odbc.lua,v 1.2 2006/01/25 19:54:21 tomas Exp $
--------------------------------------------------------------------- ---------------------------------------------------------------------
QUERYING_STRING_TYPE_NAME = "string" QUERYING_STRING_TYPE_NAME = "string"
@ -8,3 +8,24 @@ QUERYING_STRING_TYPE_NAME = "string"
-- with -1 on MS Acess Driver, and 0 on SQL Server Driver -- with -1 on MS Acess Driver, and 0 on SQL Server Driver
CREATE_TABLE_RETURN_VALUE = -1 CREATE_TABLE_RETURN_VALUE = -1
DROP_TABLE_RETURN_VALUE = -1 DROP_TABLE_RETURN_VALUE = -1
---------------------------------------------------------------------
-- Test of data types managed by ODBC driver.
---------------------------------------------------------------------
table.insert (EXTENSIONS, function ()
assert2 (CREATE_TABLE_RETURN_VALUE, CONN:execute"create table test_dt (f1 integer, f2 varchar(30), f3 bit )")
-- Inserts a number, a string value and a "bit" value.
assert2 (1, CONN:execute"insert into test_dt values (10, 'ABCDE', 1)")
-- Checks the results with the inserted values.
local cur = CUR_OK (CONN:execute"select * from test_dt")
local row, err = cur:fetch ({}, "a")
assert2 ("table", type(row), err)
assert2 (10, row.f1, "Wrong number representation")
assert2 ("ABCDE", row.f2, "Wrong string representation")
assert2 (true, row.f3, "Wrong bit representation")
-- Drops the table
assert2 (DROP_TABLE_RETURN_VALUE0, CONN:execute("drop table test_dt") )
end)