mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-27 04:54:21 +01:00
21 lines
301 B
Tcl
21 lines
301 B
Tcl
#!/usr/bin/env tclsh
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_execsql_test abs {
|
|
select abs(1);
|
|
} {1}
|
|
|
|
do_execsql_test abs-negative {
|
|
select abs(-1);
|
|
} {1}
|
|
|
|
do_execsql_test abs-char {
|
|
select abs('a');
|
|
} {0.0}
|
|
|
|
do_execsql_test abs-null {
|
|
select abs(null);
|
|
} {}
|