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# 17set testdir [file dirname $argv0] 18source $testdir/tester.tcl 19 20ifcapable !subquery { 21 finish_test 22 return 23} 24 25do_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 48finish_test 49