# 2006 February 27## 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 to make sure abusively large triggers# (triggers with 100s or 1000s of statements) work.#set testdir [file dirname $argv0]source $testdir/tester.tclifcapable {!trigger} {  finish_test  return}do_test trigger8-1.1 {  execsql {    CREATE TABLE t1(x);    CREATE TABLE t2(y);  }  set sql "CREATE TRIGGER r10000 AFTER INSERT ON t1 BEGIN\n"  for {set i 0} {$i<10000} {incr i} {    append sql "  INSERT INTO t2 VALUES($i);\n"  }  append sql "END;"  execsql $sql  execsql {    INSERT INTO t1 VALUES(5);    SELECT count(*) FROM t2;  }} {10000}finish_test