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:
16: set testdir [file dirname $argv0]
17: source $testdir/tester.tcl
18:
19: set ::testprefix tkt-d635236375
20:
21: do_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}
31: do_test 1.1 {
32: execsql {
33: SELECT count(*) FROM t1, t2 GROUP BY id1, id1;
34: }
35: } {2}
36:
37:
38: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>