1# 2011 August 3 2# 3# The author disclaims copyright to this source code. In place of 4# a legal notice, here is a blessing: 5# 6# May you do good and not evil. 7# May you find forgiveness for yourself and forgive others. 8# May you share freely, never taking more than you give. 9# 10#*********************************************************************** 11# This file implements regression tests for SQLite library. The 12# focus of this file is testing that bug [d63523637517386191d634e] 13# has been fixed. 14# 15 16set testdir [file dirname $argv0] 17source $testdir/tester.tcl 18 19set ::testprefix tkt-d635236375 20 21do_test 1.0 { 22 execsql { 23 CREATE TABLE t1(id1 INTEGER PRIMARY KEY); 24 INSERT INTO t1 VALUES(9999); 25 CREATE TABLE t2(id2 INTEGER PRIMARY KEY); 26 INSERT INTO t2 VALUES(12345); 27 INSERT INTO t2 VALUES(54321); 28 SELECT DISTINCT id1 AS x, id1 AS y FROM t1, t2; 29 } 30} {9999 9999} 31do_test 1.1 { 32 execsql { 33 SELECT count(*) FROM t1, t2 GROUP BY id1, id1; 34 } 35} {2} 36 37 38finish_test 39