# 2006 January 20## The author disclaims copyright to this source code.  In place of# a legal notice, here is a blessing:##    May you do good and not evil.#    May you find forgiveness for yourself and forgive others.#    May you share freely, never taking more than you give.##***********************************************************************# This file implements regression tests for SQLite library.## This file implements tests for calling sqlite3_result_error()# from within an aggregate function implementation.## $Id: aggerror.test,v 1.2 2006/01/23 07:52:41 danielk1977 Exp $set testdir [file dirname $argv0]source $testdir/tester.tcl# Add the x_count aggregate function to the database handle.# x_count will error out if its input is 40 or 41 or if its# final results is 42.  Make sure that such errors are handled# appropriately.#do_test aggfunc-1.1 {  set DB [sqlite3_connection_pointer db]  sqlite3_create_aggregate $DB  execsql {    CREATE TABLE t1(a);    INSERT INTO t1 VALUES(1);    INSERT INTO t1 VALUES(2);    INSERT INTO t1 SELECT a+2 FROM t1;    INSERT INTO t1 SELECT a+4 FROM t1;    INSERT INTO t1 SELECT a+8 FROM t1;    INSERT INTO t1 SELECT a+16 FROM t1;    INSERT INTO t1 SELECT a+32 FROM t1 ORDER BY a LIMIT 7;    SELECT x_count(*) FROM t1;  }} {39}do_test aggfunc-1.2 {  execsql {    INSERT INTO t1 VALUES(40);    SELECT x_count(*) FROM t1;  }} {40}do_test aggfunc-1.3 {  catchsql {    SELECT x_count(a) FROM t1;  }} {1 {value of 40 handed to x_count}}ifcapable utf16 {  do_test aggfunc-1.4 {    execsql {      UPDATE t1 SET a=41 WHERE a=40    }    catchsql {      SELECT x_count(a) FROM t1;    }  } {1 abc}}do_test aggfunc-1.5 {  execsql {    SELECT x_count(*) FROM t1  }} 40do_test aggfunc-1.6 {  execsql {    INSERT INTO t1 VALUES(40);    INSERT INTO t1 VALUES(42);  }  catchsql {    SELECT x_count(*) FROM t1;  }} {1 {x_count totals to 42}}finish_test