# 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