Fixed some TCL test cases to work if SQLITE_OMIT_TRIGGER is defined.

FossilOrigin-Name: 85e3c73497d72d09becf728efe81041277ca1730

diff --git a/manifest b/manifest
index 47bc11174f46d0fe95109354a5021ccf46fc7999..717f10828b4e23232055518f5914c9de29631f77 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Updated\sand\sadded\snew\stest\scases\sfor\sCLI.
-D 2009-12-17T21:07:54
+C Fixed\ssome\sTCL\stest\scases\sto\swork\sif\sSQLITE_OMIT_TRIGGER\sis\sdefined.
+D 2009-12-17T22:12:52
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in c5827ead754ab32b9585487177c93bb00b9497b3
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -589,7 +589,7 @@ F test/tclsqlite.test bf4227eb236a4c097aa7974a2bf7d3225acf34be
 F test/tempdb.test 1bf52da28a9c24e29717362a87722dff08feb72b
 F test/temptable.test f42121a0d29a62f00f93274464164177ab1cc24a
 F test/temptrigger.test b0273db072ce5f37cf19140ceb1f0d524bbe9f05
-F test/tester.tcl 02f671e71d1646440d226bed2dde8433f0a7bfa9
+F test/tester.tcl f38dd7ca63d81197c853989dbd39dfa3582c9ce7
 F test/thread001.test a3e6a7254d1cb057836cb3145b60c10bf5b7e60f
 F test/thread002.test afd20095e6e845b405df4f2c920cb93301ca69db
 F test/thread003.test b824d4f52b870ae39fc5bae4d8070eca73085dca
@@ -694,7 +694,7 @@ F test/tkt3992.test f3e7d548ac26f763b47bc0f750da3d03c81071da
 F test/tkt3997.test a335fa41ca3985660a139df7b734a26ef53284bd
 F test/tkt4018.test 7c2c9ba4df489c676a0a7a0e809a1fb9b2185bd1
 F test/tokenize.test ce430a7aed48fc98301611429595883fdfcab5d7
-F test/trace.test 655053a05fccdd0efab3f7f38534a1fe79134c5e
+F test/trace.test 4b36a41a3e9c7842151af6da5998f5080cdad9e5
 F test/trans.test d887cb07630dc39879a322d958ad8b006137485c
 F test/trans2.test d5337e61de45e66b1fcbf9db833fa8c82e624b22
 F test/trans3.test d728abaa318ca364dc370e06576aa7e5fbed7e97
@@ -781,7 +781,7 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
-P b1b48be1cf55f3179eab8824cf5fee8100518845
-R 37f20cb01daefc7d00b2fda374808fa1
+P 29e3c8da1bd3971215036e5f5cfa5b25c6caa81f
+R 821d3650108711607e08c70b0cbff634
 U shaneh
-Z 84579b7f1b22a4b5f6196ec7ebd2f213
+Z 39fa2349d7d22ddb3b872ed12521d5b0

diff --git a/manifest.uuid b/manifest.uuid
index 2e2740ba11e328df551db8f0f73b9400ad420765..0a06b84e1a502ce1fe7c86a0001360344d6d534b 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-29e3c8da1bd3971215036e5f5cfa5b25c6caa81f
\ No newline at end of file
+85e3c73497d72d09becf728efe81041277ca1730
\ No newline at end of file

diff --git a/test/tester.tcl b/test/tester.tcl
index 73a7c30c9a6b2a75c3de735dda885e844269130e..136e1161599e1992fab75964bf696f2737e1ae3b 100644 (file)
--- a/test/tester.tcl
+++ b/test/tester.tcl
@@ -960,15 +960,19 @@ proc copy_file {from to} {
 
 # Drop all tables in database [db]
 proc drop_all_tables {{db db}} {
-  set pk [$db one "PRAGMA foreign_keys"]
-  $db eval "PRAGMA foreign_keys = OFF"
+  ifcapable trigger&&foreignkey {
+    set pk [$db one "PRAGMA foreign_keys"]
+    $db eval "PRAGMA foreign_keys = OFF"
+  }
   foreach {t type} [$db eval {
     SELECT name, type FROM sqlite_master 
     WHERE type IN('table', 'view') AND name NOT like 'sqlite_%'
   }] {
     $db eval "DROP $type $t"
   }
-  $db eval " PRAGMA foreign_keys = $pk "
+  ifcapable trigger&&foreignkey {
+    $db eval "PRAGMA foreign_keys = $pk"
+  }
 }
 
 

diff --git a/test/trace.test b/test/trace.test
index 4dc20a1244426309a73a99e0d98bd1ea34ed1a53..ce5a2d712a4ea364bde3463262a8efa182ae1876 100644 (file)
--- a/test/trace.test
+++ b/test/trace.test
@@ -59,12 +59,12 @@ do_test trace-2.1 {
   db trace trace_proc
   proc trace_proc sql {
     global TRACE_OUT
-    set TRACE_OUT $sql
+    lappend TRACE_OUT [string trim $sql]
   }
   set TRACE_OUT {}
   sqlite3_step $STMT
   set TRACE_OUT
-} {INSERT INTO t1 VALUES(2,3)}
+} {{INSERT INTO t1 VALUES(2,3)}}
 do_test trace-2.2 {
   set TRACE_OUT {}
   sqlite3_reset $STMT
@@ -73,13 +73,14 @@ do_test trace-2.2 {
 do_test trace-2.3 {
   sqlite3_step $STMT
   set TRACE_OUT
-} {INSERT INTO t1 VALUES(2,3)}
+} {{INSERT INTO t1 VALUES(2,3)}}
 do_test trace-2.4 {
+  set TRACE_OUT {}
   execsql {SELECT * FROM t1}
 } {1 2 2 3 2 3}
 do_test trace-2.5 {
   set TRACE_OUT
-} {SELECT * FROM t1}
+} {{SELECT * FROM t1}}
 catch {sqlite3_finalize $STMT}
 
 do_test trace-2.6 {
@@ -128,12 +129,12 @@ do_test trace-4.1 {
   db trace trace_proc
   proc profile_proc {sql tm} {
     global TRACE_OUT
-    set TRACE_OUT $sql
+    lappend TRACE_OUT [string trim $sql]
   }
   set TRACE_OUT {}
   sqlite3_step $STMT
   set TRACE_OUT
-} {INSERT INTO t2 VALUES(2,3)}
+} {{INSERT INTO t2 VALUES(2,3)}}
 do_test trace-4.2 {
   set TRACE_OUT {}
   sqlite3_reset $STMT
@@ -142,13 +143,14 @@ do_test trace-4.2 {
 do_test trace-4.3 {
   sqlite3_step $STMT
   set TRACE_OUT
-} {INSERT INTO t2 VALUES(2,3)}
+} {{INSERT INTO t2 VALUES(2,3)}}
 do_test trace-4.4 {
+  set TRACE_OUT {}
   execsql {SELECT * FROM t1}
 } {1 2 2 3 2 3}
 do_test trace-4.5 {
   set TRACE_OUT
-} {SELECT * FROM t1}
+} {{SELECT * FROM t1}}
 catch {sqlite3_finalize $STMT}
 
 # Trigger tracing.
@@ -235,7 +237,7 @@ do_test trace-6.200 {
   set TRACE_OUT {}
   execsql {SELECT '$::t6str', [$::t6str], $::t6str, ?1, "?1", $::t6str FROM t6}
 } {{$::t6str} 1 {test-six y'all} {test-six y'all} 2 {test-six y'all}}
-do_test trace-6.101 {
+do_test trace-6.201 {
   set TRACE_OUT
 } {{SELECT '$::t6str', [$::t6str], 'test-six y''all', 'test-six y''all', "?1", 'test-six y''all' FROM t6}}