mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-17 08:34:19 +01:00
35 lines
701 B
Tcl
Executable File
35 lines
701 B
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_execsql_test isnull {
|
|
select null isnull, 'hi' isnull;
|
|
} {1|0}
|
|
|
|
do_execsql_test is-null {
|
|
select null is null, 'hi' is null;
|
|
} {1|0}
|
|
|
|
do_execsql_test notnull {
|
|
select null notnull, 'hi' notnull;
|
|
} {0|1}
|
|
|
|
do_execsql_test not-null {
|
|
select null not null, 'hi' not null;
|
|
} {0|1}
|
|
|
|
do_execsql_test sel-true {
|
|
select true;
|
|
} {1}
|
|
|
|
do_execsql_test sel-false {
|
|
select false;
|
|
} {0}
|
|
|
|
# https://github.com/tursodatabase/turso/issues/3966
|
|
do_execsql_test_on_specific_db {:memory:} not-null-just-cuz-unique {
|
|
create table t (a int, x int unique);
|
|
insert into t(a) values(1);
|
|
select * from t;
|
|
} {1|} |