mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-24 11:34:21 +01:00
18 lines
463 B
Tcl
Executable File
18 lines
463 B
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_execsql_test_on_specific_db {:memory:} basic-insert {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1);
|
|
select * from temp;
|
|
} {1}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} must-be-int-insert {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1),(2.0),('3'),('4.0');
|
|
select * from temp;
|
|
} {1
|
|
2
|
|
3
|
|
4} |