111 lines
3.6 KiB
Plaintext
111 lines
3.6 KiB
Plaintext
# 2016 July 29
|
|
#
|
|
# The author disclaims copyright to this source code. In place of
|
|
# a legal notice, here is a blessing:
|
|
#
|
|
# May you do good and not evil.
|
|
# May you find forgiveness for yourself and forgive others.
|
|
# May you share freely, never taking more than you give.
|
|
#
|
|
#***********************************************************************
|
|
# This file implements regression tests for SQLite library. The
|
|
# focus of this file is syntax errors involving row-value constructors
|
|
# and sub-selects that return multiple arguments.
|
|
#
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
set ::testprefix rowvalue4
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Test some error conditions:
|
|
#
|
|
# * row values used where they are not supported,
|
|
# * row values or sub-selects that contain/return the wrong number
|
|
# of elements.
|
|
#
|
|
do_execsql_test 1.0 {
|
|
CREATE TABLE t1(a, b, c);
|
|
CREATE INDEX t1bac ON t1(b, a, c);
|
|
}
|
|
|
|
foreach {tn e} {
|
|
1 "(1, 2, 3)"
|
|
2 "1 + (1, 2)"
|
|
3 "(1,2,3) == (1, 2)"
|
|
} {
|
|
do_catchsql_test 1.$tn "SELECT $e" {1 {invalid use of row value}}
|
|
}
|
|
|
|
foreach {tn s error} {
|
|
1 "SELECT * FROM t1 WHERE a = (1, 2)" {invalid use of row value}
|
|
2 "SELECT * FROM t1 WHERE b = (1, 2)" {invalid use of row value}
|
|
3 "SELECT * FROM t1 WHERE NOT (b = (1, 2))" {invalid use of row value}
|
|
4 "SELECT * FROM t1 LIMIT (1, 2)" {invalid use of row value}
|
|
5 "SELECT (a, b) IN (SELECT * FROM t1) FROM t1"
|
|
{sub-select returns 3 columns - expected 2}
|
|
|
|
6 "SELECT * FROM t1 WHERE (a, b) IN (SELECT * FROM t1)"
|
|
{sub-select returns 3 columns - expected 2}
|
|
} {
|
|
do_catchsql_test 2.$tn "$s" [list 1 $error]
|
|
}
|
|
|
|
#-------------------------------------------------------------------------
|
|
do_execsql_test 2.0 {
|
|
CREATE TABLE t2(a, b, c, d);
|
|
INSERT INTO t2 VALUES(1, 1, 1, 1);
|
|
INSERT INTO t2 VALUES(1, 1, 2, 2);
|
|
INSERT INTO t2 VALUES(1, 1, 3, 3);
|
|
INSERT INTO t2 VALUES(1, 2, 1, 4);
|
|
INSERT INTO t2 VALUES(1, 2, 2, 5);
|
|
INSERT INTO t2 VALUES(1, 2, 3, 6);
|
|
INSERT INTO t2 VALUES(1, 3, 1, 7);
|
|
INSERT INTO t2 VALUES(1, 3, 2, 8);
|
|
INSERT INTO t2 VALUES(1, 3, 3, 9);
|
|
|
|
INSERT INTO t2 VALUES(2, 1, 1, 10);
|
|
INSERT INTO t2 VALUES(2, 1, 2, 11);
|
|
INSERT INTO t2 VALUES(2, 1, 3, 12);
|
|
INSERT INTO t2 VALUES(2, 2, 1, 13);
|
|
INSERT INTO t2 VALUES(2, 2, 2, 14);
|
|
INSERT INTO t2 VALUES(2, 2, 3, 15);
|
|
INSERT INTO t2 VALUES(2, 3, 1, 16);
|
|
INSERT INTO t2 VALUES(2, 3, 2, 17);
|
|
INSERT INTO t2 VALUES(2, 3, 3, 18);
|
|
|
|
INSERT INTO t2 VALUES(3, 1, 1, 19);
|
|
INSERT INTO t2 VALUES(3, 1, 2, 20);
|
|
INSERT INTO t2 VALUES(3, 1, 3, 21);
|
|
INSERT INTO t2 VALUES(3, 2, 1, 22);
|
|
INSERT INTO t2 VALUES(3, 2, 2, 23);
|
|
INSERT INTO t2 VALUES(3, 2, 3, 24);
|
|
INSERT INTO t2 VALUES(3, 3, 1, 25);
|
|
INSERT INTO t2 VALUES(3, 3, 2, 26);
|
|
INSERT INTO t2 VALUES(3, 3, 3, 27);
|
|
}
|
|
|
|
foreach {nm idx} {
|
|
idx1 {}
|
|
idx2 { CREATE INDEX t2abc ON t2(a, b, c); }
|
|
idx3 { CREATE INDEX t2abc ON t2(a, b DESC, c); }
|
|
idx4 { CREATE INDEX t2abc ON t2(a DESC, b DESC, c DESC); }
|
|
idx5 { CREATE INDEX t2abc ON t2(a ASC, b ASC, c ASC); }
|
|
idx6 { CREATE INDEX t2abc ON t2(a DESC, b, c); }
|
|
} {
|
|
drop_all_indexes
|
|
execsql $idx
|
|
|
|
foreach {tn where res} {
|
|
1 "(a, b, c) < (2, 2, 2)" {1 2 3 4 5 6 7 8 9 10 11 12 13}
|
|
2 "(a, b, c) <= (2, 2, 2)" {1 2 3 4 5 6 7 8 9 10 11 12 13 14}
|
|
3 "(a, b, c) > (2, 2, 2)" {15 16 17 18 19 20 21 22 23 24 25 26 27}
|
|
4 "(a, b, c) >= (2, 2, 2)" {14 15 16 17 18 19 20 21 22 23 24 25 26 27}
|
|
} {
|
|
set result [db eval "SELECT d FROM t2 WHERE $where"]
|
|
do_test 2.$nm.$tn { lsort -integer $result } $res
|
|
}
|
|
}
|
|
finish_test
|
|
|