test/tkt3841.test

   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