mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-18 00:54:19 +01:00
29 lines
477 B
Tcl
Executable File
29 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}
|