From e36d23a85ebff914d74bb541558c2b6082b78edb Mon Sep 17 00:00:00 2001 From: dan miller Date: Sat, 20 Oct 2007 02:49:29 +0000 Subject: sqlite source (unix build) added to libraries --- .../sqlite/unix/sqlite-3.5.1/test/trigger8.test | 42 ++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100644 libraries/sqlite/unix/sqlite-3.5.1/test/trigger8.test (limited to 'libraries/sqlite/unix/sqlite-3.5.1/test/trigger8.test') diff --git a/libraries/sqlite/unix/sqlite-3.5.1/test/trigger8.test b/libraries/sqlite/unix/sqlite-3.5.1/test/trigger8.test new file mode 100644 index 0000000..b4215fb --- /dev/null +++ b/libraries/sqlite/unix/sqlite-3.5.1/test/trigger8.test @@ -0,0 +1,42 @@ +# 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.tcl +ifcapable {!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 -- cgit v1.1