32 lines
600 B
Lua
32 lines
600 B
Lua
|
#!/usr/local/bin/lua
|
||
|
|
|
||
|
|
MAX_ROWS = arg[1] or 10
|
||
|
|
|
||
|
|
require"postgres"
|
||
|
|
|
||
|
|
local env = assert (luasql.postgres ())
|
||
|
|
local conn = assert (env:connect ("luasql-test", "tomas"))
|
||
|
|
|
||
|
|
-- Apaga restos de outros testes.
|
||
|
|
conn:execute "drop table t2"
|
||
|
|
conn:execute "drop table t1"
|
||
|
|
|
||
|
|
-- Criando as tabelas.
|
||
|
|
assert (conn:execute [[create table t1 (
|
||
|
|
a int,
|
||
|
|
b int
|
||
|
|
)]])
|
||
|
|
assert (conn:execute [[create table t2 (
|
||
|
|
c int,
|
||
|
|
d int
|
||
|
|
)]])
|
||
|
|
|
||
|
|
-- Preenchedo as tabelas.
|
||
|
|
for i = 1, MAX_ROWS do
|
||
|
|
local ii = 2*i
|
||
|
|
assert (conn:execute (string.format ([[
|
||
|
|
insert into t1 values (%d, %d);
|
||
|
|
insert into t2 values (%d, %d);]],
|
||
|
|
ii, i, ii, i)))
|
||
|
|
end
|