Annotation of embedaddon/sqlite3/test/tkt3841.test, revision 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>