Annotation of embedaddon/sqlite3/test/tkt3841.test, revision 1.1.1.1
1.1 misho 1: # 2009 May 7
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: #
12: # Ticket #3841
13: #
14: # The sqlite3_aggregate_count() is not being reset when an aggregate
15: # functio is used in a correlated subquery.
16: #
17: set testdir [file dirname $argv0]
18: source $testdir/tester.tcl
19:
20: ifcapable !subquery {
21: finish_test
22: return
23: }
24:
25: do_test tkt3841.1 {
26: execsql {
27: CREATE TABLE table2 (key TEXT, x TEXT);
28: CREATE TABLE list (key TEXT, value TEXT);
29:
30: INSERT INTO table2 VALUES ("a", "alist");
31: INSERT INTO table2 VALUES ("b", "blist");
32: INSERT INTO list VALUES ("a", 1);
33: INSERT INTO list VALUES ("a", 2);
34: INSERT INTO list VALUES ("a", 3);
35: INSERT INTO list VALUES ("b", 4);
36: INSERT INTO list VALUES ("b", 5);
37: INSERT INTO list VALUES ("b", 6);
38:
39: SELECT
40: table2.x,
41: (SELECT group_concat(list.value)
42: FROM list
43: WHERE list.key = table2.key)
44: FROM table2;
45: }
46: } {alist 1,2,3 blist 4,5,6}
47:
48: finish_test
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>