# 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.3 2006/05/03 23:34:06 drh 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 aggerror-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 aggerror-1.2 {

execsql {

INSERT INTO t1 VALUES(40);

SELECT x_count(*) FROM t1;

}

} {40}

do_test aggerror-1.3 {

catchsql {

SELECT x_count(a) FROM t1;

}

} {1 {value of 40 handed to x_count}}

ifcapable utf16 {

do_test aggerror-1.4 {

execsql {

UPDATE t1 SET a=41 WHERE a=40

}

catchsql {

SELECT x_count(a) FROM t1;

}

} {1 abc}

}

do_test aggerror-1.5 {

execsql {

SELECT x_count(*) FROM t1

}

} 40

do_test aggerror-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