mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-17 08:34:19 +01:00
7e65657ab0
e.g. `make test-single TEST=subquery.test` Plus: chmod +x to all tcl tests in testing folder
269 lines
8.3 KiB
Tcl
Executable File
269 lines
8.3 KiB
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 8 1 0
|
|
int-int-2 8 8 1
|
|
int-null 8 NULL {}
|
|
} {
|
|
do_execsql_test compare-eq-$testname "SELECT $lhs = $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 8.0 1.0 0
|
|
float-float-2 8.0 8.0 1
|
|
float-null 8.0 NULL {}
|
|
} {
|
|
do_execsql_test compare-eq-$testname "SELECT $lhs = $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'a' 'b' 0
|
|
text-text-2 'a' 'a' 1
|
|
text-null 'a' NULL {}
|
|
} {
|
|
do_execsql_test compare-eq-$testname "SELECT $lhs = $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
null-int NULL 1 {}
|
|
null-float NULL 1.0 {}
|
|
null-text NULL 'a' {}
|
|
null-null NULL NULL {}
|
|
} {
|
|
do_execsql_test compare-eq-$testname "SELECT $lhs = $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 8 1 1
|
|
int-int-2 8 8 0
|
|
int-null 8 NULL {}
|
|
} {
|
|
do_execsql_test compare-neq-$testname "SELECT $lhs <> $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 8.0 1.0 1
|
|
float-float-2 8.0 8.0 0
|
|
float-null 8.0 NULL {}
|
|
} {
|
|
do_execsql_test compare-neq-$testname "SELECT $lhs <> $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'a' 'b' 1
|
|
text-text-2 'a' 'a' 0
|
|
text-null 'a' NULL {}
|
|
} {
|
|
do_execsql_test compare-neq-$testname "SELECT $lhs <> $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
null-int NULL 1 {}
|
|
null-float NULL 1.0 {}
|
|
null-text NULL 'a' {}
|
|
null-null NULL NULL {}
|
|
} {
|
|
do_execsql_test compare-neq-$testname "SELECT $lhs <> $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 1 8 0
|
|
int-int-2 1 1 0
|
|
int-int-3 8 0 1
|
|
int-null 8 NULL {}
|
|
} {
|
|
do_execsql_test compare-gt-$testname "SELECT $lhs > $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 1.0 2.0 0
|
|
float-float-2 1.0 1.0 0
|
|
float-float-3 7.0 6.0 1
|
|
float-null 8.0 NULL {}
|
|
} {
|
|
do_execsql_test compare-gt-$testname "SELECT $lhs > $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'b' 'c' 0
|
|
text-text-2 'b' 'b' 0
|
|
text-text-3 'b' 'a' 1
|
|
text-null 'a' NULL {}
|
|
} {
|
|
do_execsql_test compare-gt-$testname "SELECT $lhs > $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
null-int NULL 1 {}
|
|
null-float NULL 1.0 {}
|
|
null-text NULL 'a' {}
|
|
null-null NULL NULL {}
|
|
} {
|
|
do_execsql_test compare-gt-$testname "SELECT $lhs > $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 1 8 0
|
|
int-int-2 1 1 1
|
|
int-int-3 8 0 1
|
|
int-null 8 NULL {}
|
|
} {
|
|
do_execsql_test compare-gte-$testname "SELECT $lhs >= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 1.0 2.0 0
|
|
float-float-2 1.0 1.0 1
|
|
float-float-3 7.0 6.0 1
|
|
float-null 8.0 NULL {}
|
|
} {
|
|
do_execsql_test compare-gte-$testname "SELECT $lhs >= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'b' 'c' 0
|
|
text-text-2 'b' 'b' 1
|
|
text-text-3 'b' 'a' 1
|
|
text-null 'a' NULL {}
|
|
} {
|
|
do_execsql_test compare-gte-$testname "SELECT $lhs >= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
null-int NULL 1 {}
|
|
null-float NULL 1.0 {}
|
|
null-text NULL 'a' {}
|
|
null-null NULL NULL {}
|
|
} {
|
|
do_execsql_test compare-gte-$testname "SELECT $lhs >= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 1 8 1
|
|
int-int-2 1 1 0
|
|
int-int-3 8 0 0
|
|
int-null 8 NULL {}
|
|
} {
|
|
do_execsql_test compare-lt-$testname "SELECT $lhs < $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 1.0 2.0 1
|
|
float-float-2 1.0 1.0 0
|
|
float-float-3 7.0 6.0 0
|
|
float-null 8.0 NULL {}
|
|
} {
|
|
do_execsql_test compare-lt-$testname "SELECT $lhs < $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'b' 'c' 1
|
|
text-text-2 'b' 'b' 0
|
|
text-text-3 'b' 'a' 0
|
|
text-null 'a' NULL {}
|
|
} {
|
|
do_execsql_test compare-lt-$testname "SELECT $lhs < $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
null-int NULL 1 {}
|
|
null-float NULL 1.0 {}
|
|
null-text NULL 'a' {}
|
|
null-null NULL NULL {}
|
|
} {
|
|
do_execsql_test compare-lt-$testname "SELECT $lhs < $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 1 8 1
|
|
int-int-2 1 1 1
|
|
int-int-3 8 0 0
|
|
int-null 8 NULL {}
|
|
} {
|
|
do_execsql_test compare-lte-$testname "SELECT $lhs <= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 1.0 2.0 1
|
|
float-float-2 1.0 1.0 1
|
|
float-float-3 7.0 6.0 0
|
|
float-null 8.0 NULL {}
|
|
} {
|
|
do_execsql_test compare-lte-$testname "SELECT $lhs <= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'b' 'c' 1
|
|
text-text-2 'b' 'b' 1
|
|
text-text-3 'b' 'a' 0
|
|
text-null 'a' NULL {}
|
|
} {
|
|
do_execsql_test compare-lte-$testname "SELECT $lhs <= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
null-int NULL 1 {}
|
|
null-float NULL 1.0 {}
|
|
null-text NULL 'a' {}
|
|
null-null NULL NULL {}
|
|
} {
|
|
do_execsql_test compare-lte-$testname "SELECT $lhs <= $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 8 1 0
|
|
int-int-2 8 8 1
|
|
} {
|
|
do_execsql_test compare-is-$testname "SELECT $lhs is $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 8.0 1.0 0
|
|
float-float-2 8.0 8.0 1
|
|
} {
|
|
do_execsql_test compare-is-$testname "SELECT $lhs is $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'a' 'b' 0
|
|
text-text-2 'a' 'a' 1
|
|
} {
|
|
do_execsql_test compare-is-$testname "SELECT $lhs is $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
int-int-1 8 1 1
|
|
int-int-2 8 8 0
|
|
} {
|
|
do_execsql_test compare-is-not-$testname "SELECT $lhs is not $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
float-float-1 8.0 1.0 1
|
|
float-float-2 8.0 8.0 0
|
|
} {
|
|
do_execsql_test compare-is-not-$testname "SELECT $lhs is not $rhs" $::ans
|
|
}
|
|
|
|
foreach {testname lhs rhs ans} {
|
|
text-text-1 'a' 'b' 1
|
|
text-text-2 'a' 'a' 0
|
|
} {
|
|
do_execsql_test compare-is-not-$testname "SELECT $lhs is not $rhs" $::ans
|
|
}
|
|
|
|
# github-issue: 2957.
|
|
do_execsql_test_on_specific_db {:memory:} compare-int-float-lte-negative-zero {
|
|
CREATE TABLE t1(i INTEGER);
|
|
INSERT INTO t1 VALUES (0), (-1), (1);
|
|
SELECT i FROM t1 WHERE i <= -0.0 ORDER BY i;
|
|
} {-1 0}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} compare-int-float-lt-negative-zero {
|
|
CREATE TABLE t1(i INTEGER);
|
|
INSERT INTO t1 VALUES (0), (-1), (1);
|
|
SELECT i FROM t1 WHERE i < -0.0 ORDER BY i;
|
|
} {-1} |