mirror of
https://github.com/tursodatabase/limbo.git
synced 2025-12-23 08:21:09 +00:00
28 lines
477 B
Tcl
Executable file
28 lines
477 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}
|