# 2013 March 05
#
# 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. Specifically,
# it tests that ticket [fc7bd6358f]:
#
# The following SQL yields an incorrect result (zero rows) in all
# versions of SQLite between 3.6.14 and 3.7.15.2:
#
# CREATE TABLE t(textid TEXT);
# INSERT INTO t VALUES('12');
# INSERT INTO t VALUES('34');
# CREATE TABLE i(intid INTEGER PRIMARY KEY);
# INSERT INTO i VALUES(12);
# INSERT INTO i VALUES(34);
#
# SELECT t1.textid AS a, i.intid AS b, t2.textid AS c
# FROM t t1, i, t t2
# WHERE t1.textid = i.intid
# AND t1.textid = t2.textid;
#
# The correct result should be two rows, one with 12|12|12 and the other
# with 34|34|34. With this bug, no rows are returned. Bisecting shows that
# this bug was introduced with check-in [dd4d67a67454] on 2009-04-23.
#
set testdir [file dirname $argv0]
source $testdir/tester.tcl
do_test tkt-fc7bd6358f.100 {
db eval {
CREATE TABLE t(textid TEXT);
INSERT INTO t VALUES('12');
INSERT INTO t VALUES('34');
CREATE TABLE i(intid INTEGER PRIMARY KEY);
INSERT INTO i VALUES(12);
INSERT INTO i VALUES(34);
}
} {}
unset -nocomplain from
unset -nocomplain where
unset -nocomplain a
unset -nocomplain b
foreach {a from} {
1 {FROM t t1, i, t t2}
2 {FROM i, t t1, t t2}
3 {FROM t t1, t t2, i}
} {
foreach {b where} {
1 {WHERE t1.textid=i.intid AND t1.textid=t2.textid}
2 {WHERE i.intid=t1.textid AND t1.textid=t2.textid}
3 {WHERE t1.textid=i.intid AND i.intid=t2.textid}
4 {WHERE t1.textid=i.intid AND t2.textid=i.intid}
5 {WHERE i.intid=t1.textid AND i.intid=t2.textid}
6 {WHERE i.intid=t1.textid AND t2.textid=i.intid}
7 {WHERE t1.textid=t2.textid AND i.intid=t2.textid}
8 {WHERE t1.textid=t2.textid AND t2.textid=i.intid}
} {
do_test tkt-fc7bd6358f.110.$a.$b.1 {
db eval {PRAGMA automatic_index=ON}
db eval "SELECT t1.textid, i.intid, t2.textid $from $where"
} {12 12 12 34 34 34}
do_test tkt-fc7bd6358f.110.$a.$b.2 {
db eval {PRAGMA automatic_index=OFF}
db eval "SELECT t1.textid, i.intid, t2.textid $from $where"
} {12 12 12 34 34 34}
}
}
finish_test