1: # 2008 December 4
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.
12: #
13: # This file is a verification that the bugs identified in ticket
14: # #3522 have been fixed.
15: #
16: # $Id: tkt3522.test,v 1.1.1.1 2012/02/21 17:04:16 misho Exp $
17:
18: set testdir [file dirname $argv0]
19: source $testdir/tester.tcl
20:
21: do_test tkt3522-1.1 {
22: db eval {
23: CREATE TABLE tab4(
24: col0 INTEGER,
25: col1 INTEGER,
26: col2 INTEGER,
27: col3 INTEGER,
28: col4 INTEGER
29: );
30: SELECT cor1.*
31: FROM tab4 AS cor0
32: JOIN tab4 AS cor1 USING ( col4, col3, col2, col1, col0 );
33: }
34: } {}
35: do_test tkt3522-1.2 {
36: db eval {
37: CREATE TABLE tab1(col0 INTEGER);
38: CREATE TABLE tab2(col0 INTEGER);
39: SELECT cor0.* FROM tab1 NATURAL JOIN tab2 AS cor0;
40: }
41: } {}
42:
43: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>