Test suite fixes for builds that define OMIT symbols. (CVS 2962)

FossilOrigin-Name: 3a54a33dcb7e765ee3773397407e8929a8cfe1a9

manifest

@@ -1,5 +1,5 @@
-C Test\sfile\sfixes\sfor\slibaries\scompiled\swith\svarious\sSQLITE_OMIT_\smacros.\s(CVS\s2961)
+C Test\ssuite\sfixes\sfor\sbuilds\sthat\sdefine\sOMIT\ssymbols.\s(CVS\s2962)
-D 2006-01-16T16:24:25
+D 2006-01-17T09:35:02
 F Makefile.in ab3ffd8d469cef4477257169b82810030a6bb967
 F Makefile.linux-gcc aee18d8a05546dcf1888bd4547e442008a49a092
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -97,9 +97,9 @@ F src/vdbemem.c dd08a0eea4868ac4a2d91fdec32424308b1db772
 F src/where.c 9fd58a8f5525d036a088c92bb14e2885c2243bc8
 F tclinstaller.tcl 046e3624671962dc50f0481d7c25b38ef803eb42
 F test/all.test a23fcbbf1f53515bde840d78732a6d94c673b327
-F test/alter.test 1ac1263c8436bce05143565ed79c3c3c7c4bacaa
+F test/alter.test d2569ed639946be29cfcae9117942b4a6d01f719
 F test/alter2.test cc0b8832e4e98605dbc26910efd4bb89abe59cb2
-F test/alter3.test a06d53b2dd1e16cb6f6d44022f9ca04c94da433e
+F test/alter3.test a6eec8f454be9b6ce73d8d7dc711453675a10ce7
 F test/altermalloc.test 6e1f404ec021eb2ba6582e3c77b0a35cf206b7af
 F test/analyze.test 2f55535aa335785db1a2f97d3f3831c16c09f8b0
 F test/async.test 0f71d47219311c1e7c65b95ef18faa7b65472913
@@ -107,14 +107,14 @@ F test/attach.test 036315207c477211470168bf121b1c493f781515
 F test/attach2.test 0e6a7c54343c85dd877a1e86073a05176043ed40
 F test/attach3.test 63013383adc4380af69779f34f4af19bd49f7cbe
 F test/attachmalloc.test cdb26c42850f04698377ccec05f5fa89d987837c
-F test/auth.test 639288b5dace7db3e1fce85d38893fc30bbfe50b
+F test/auth.test 0e8d4fd60bec027adb0abf7874051f8b90d9c6b6
 F test/autoinc.test 60005a676e3e4e17dfa9dbd08aa0b76587ff97e3
 F test/autovacuum.test 0dd22b0e1fe2013abe03e2ef5000bb3b9c1b6666
 F test/autovacuum_crash.test 05a63b8805b20cfba7ace82856ce4ccdda075a31
 F test/autovacuum_ioerr.test c46a76869cb6eddbbb40b419b2b6c4c001766b1f
 F test/autovacuum_ioerr2.test 2f8a3fb31f833fd0ca86ad4ad98913c73e807572
-F test/avtrans.test 507834a6e1ef4aeea9b8bc2b45f9246d7e66ad3f
+F test/avtrans.test 49a319fc423a133432179e060824d1c10260714d
-F test/between.test ca092fa28b665ca92172b182c6c360a92f7ca348
+F test/between.test 16b1776c6323faadb097a52d673e8e3d8be7d070
 F test/bigfile.test ebc9ce9216e08bead63734ab816d0f27858f3b80
 F test/bigrow.test f0aeb7573dcb8caaafea76454be3ade29b7fc747
 F test/bind.test 7c01e8a660e33586bc0c1d596d5a7a7f5e7523fe
@@ -129,17 +129,17 @@ F test/btree7.test a6d3b842db22af97dd14b989e90a2fd96066b72f
 F test/btree8.test fadc112bcbd6a0c622d34c813fc8a648eacf8804
 F test/busy.test 0271c854738e23ad76e10d4096a698e5af29d211
 F test/capi2.test b9354d6c37e6f8f858c08952ebc9709712581221
-F test/capi3.test 318098b606490b2e29c6228743e5c4b37da8c368
+F test/capi3.test 128b418bc0ac567c7e844287a50fc6234e6d5c5d
 F test/capi3b.test 5f0bc94b104e11086b1103b20277e1910f59c7f4
 F test/cast.test aabdcb3873bb2f40d855bf63950f6d99a5a196c7
-F test/check.test 686df5fd9fb986198787f00a79d86b68feb02e32
+F test/check.test 55ad950d7ad24d6eb3328c54149f90d38a39a962
 F test/collate1.test add9454cef160677bb8b34148b8f277ce7f9f1c4
 F test/collate2.test 224a632ba04907c049804b08162efd234aa7871f
 F test/collate3.test 947a77f5b8227e037a7094d0e338a5504f155cc4
 F test/collate4.test daf498e294dcd596b961d425c3f2dda117e4717e
 F test/collate5.test 8fb4e7e0241839356bd8710f437c32efb47bfff8
 F test/collate6.test 6c9470d1606ee3e564675b229653e320c49ec638
-F test/conflict.test bc7b81670abfd6ca51cbcbf46ef23cd52784fafd
+F test/conflict.test 16533a92675f9752c25596093a4d549af7fc3d34
 F test/corrupt.test 18c7a995b1af76a8c8600b996257f2c7b7bff083
 F test/corrupt2.test 88342570828f2b8cbbd8369eff3891f5c0bdd5ba
 F test/crash.test 5f5f155393c5685b3842fef79b6fbafa55197d75
@@ -161,12 +161,12 @@ F test/expr.test a513aceb5d89042232e0d07ac5a1591965cf3963
 F test/fkey1.test 153004438d51e6769fb1ce165f6313972d6263ce
 F test/format4.test 9f31d41d4f926cab97b2ebe6be00a6ab12dece87
 F test/func.test a7119afcc16abdf24b24486684fb888279008f75
-F test/hook.test 60579eb9db0c8de27c6d92661d6912612bef5e1f
+F test/hook.test 7e7645fd9a033f79cce8fdff151e32715e7ec50a
 F test/in.test cead6165aebbe0d451bb2263a307173acfeb6240
-F test/index.test c90ab389586dbddfeb6817cd137737b2de1b6522
+F test/index.test c478459611ded74745fee57f99f424da8a5f5fbd
 F test/index2.test 9ad98243fd7fe833795a9cc662f371f0eed4ff4f
 F test/index3.test f66718cd92ce1216819d47e6a156755e4b2c4ca1
-F test/insert.test 51ab0b19169c91d7b3f64009d309ed5cf1b48df5
+F test/insert.test b4d43f8e75e203fe51bc06cacf3636081903dcd1
 F test/insert2.test 5a20e1ace5fa0800b58d28284212290189b49aed
 F test/insert3.test c67f0240b1c17e71fa2ed8bb6de064928f549f95
 F test/interrupt.test cd24dc5bedd02325be4bfa5d6209fae01c465157
@@ -180,8 +180,8 @@ F test/join5.test 2646825693a6e066ea89b498176d4a68df45ab68
 F test/journal1.test 36f2d1bb9bf03f790f43fbdb439e44c0657fab19
 F test/lastinsert.test 9d7241f562d7adcf61730de83176417d7e30d76b
 F test/laststmtchanges.test 19a6d0c11f7a31dc45465b495f7b845a62cbec17
-F test/like.test 145382e6a1f3d2edf266ca7d0236ab1b7c0ba66f
+F test/like.test 1665284b66060934568e2b4a69ad4f9033ecb5dd
-F test/limit.test 4b538057d5b5c7ca10ec8d40d6c567e886c90bdd
+F test/limit.test f593d0ff02b3ab657d08e4ffbf14081bda763393
 F test/lock.test 9b7afcb24f53d24da502abb33daaad2cd6d44107
 F test/lock2.test d83ba79d3c4fffdb5b926c7d8ca7a36c34288a55
 F test/lock3.test 615111293cf32aa2ed16d01c6611737651c96fb9
@@ -192,28 +192,28 @@ F test/malloc3.test 265644c655497242f7c0a1bb5b36c8500a5fc27c
 F test/malloc4.test 2e29d155eb4b4808019ef47eeedfcbe9e09e0f05
 F test/malloc5.test 7c0a02ab2fef82af6febacc02e033514f1674066
 F test/manydb.test 8de36b8d33aab5ef295b11d9e95310aeded31af8
-F test/memdb.test 1860e060be810bf0775bc57408a5b7c4954bcaea
+F test/memdb.test ed97df0414a6e33e043e3eeffccb54d06098d0ae
 F test/memleak.test df2b2b96e77f8ba159a332299535b1e5f18e49ac
 F test/minmax.test cad887abca5504396718e2cd5729ca40758743e8
-F test/misc1.test 7aabf32e698ef7cc1253f5e7fc216c65870ce485
+F test/misc1.test 5a9cfffc59e5da583492a1c07efcb08a48cd1135
-F test/misc2.test 17949ae34df8a60e318b2a14492b8cb62cd2072a
+F test/misc2.test 09388e5a2c5c1017ad3ff1c4bf469375def2a0c2
 F test/misc3.test 7bd937e2c62bcc6be71939faf068d506467b1e03
 F test/misc4.test b043a05dea037cca5989f3ae09552fa16119bc80
-F test/misc5.test aa5d7b4ef0963aaa87c18654e266682ca3565779
+F test/misc5.test cff0e9ff3a79c5116d5bce077a0bacf9bb300324
 F test/misuse.test 30b3a458e5a70c31e74c291937b6c82204c59f33
-F test/notnull.test 7a08117a71e74b0321aaa937dbeb41a09d6eb1d0
+F test/notnull.test 44d600f916b770def8b095a9962dbe3be5a70d82
-F test/null.test db52272f9628ae9e77ab451cf0fb3871a98c5f00
+F test/null.test 9503e1f63e959544c006d9f01709c5b5eab67d54
 F test/pager.test 1579e8f07291ae8e24db62ffade5c101c3e76597
 F test/pager2.test 49c0f57c7da0b060f0486b85fdd074025caa694e
 F test/pager3.test 2323bf27fd5bd887b580247e5bce500ceee994b4
-F test/pagesize.test cbc6a312b6f6c0f02619b189985df2a14164b690
+F test/pagesize.test 05c74ea49f790734ec1e9ab765d9bf1cce79b8f2
 F test/pragma.test 8759b46702f6d8ee4f5dd520216c69dbc9080b60
 F test/printf.test 9e10c74e16bf889f8495ddb3d6f5f891e75ff1b7
 F test/progress.test 16496001da445e6534afb94562c286708316d82f x
 F test/quick.test 2d2cf1b50e894b19b4029dd9a68ec59599b24f18
 F test/quote.test 5891f2338980916cf7415484b4ce785294044adb
 F test/reindex.test 38b138abe36bf9a08c791ed44d9f76cd6b97b78b
-F test/rollback.test fc6be5a5e4b1347fd96777c65484a24fc75e8f0e
+F test/rollback.test 673cd8c44c685ad54987fe7f0eeba84efa09685d
 F test/rowid.test 040a3bef06f970c45f5fcd14b2355f7f4d62f0cf
 F test/safety.test 4a06934e45d03b8b50ebcd8d174eb0367d2fd851
 F test/schema.test 8a2ae440fb15f5798a68059e8746402f3137be46
@@ -225,35 +225,35 @@ F test/select5.test 07a90ab3c7e3f0a241a9cdea1d997b2c8a89ff0b
 F test/select6.test f459a19bdac0501c4d3eb1a4df4b7a76f1bb8ad4
 F test/select7.test 1bf795b948c133a15a2a5e99d3270e652ec58ce6
 F test/server1.test e328b8e641ba8fe9273132cfef497383185dc1f5
-F test/shared.test 79bec0fa6c12b536d62a1304c6389348aa6ec6bd
+F test/shared.test fa058377c914a1abfc7d2247864d0471906111fd
 F test/sort.test 0e4456e729e5a92a625907c63dcdedfbe72c5dc5
-F test/subquery.test e6de53332c0301b3cfa34edc3f3cd5fa1e859efd
+F test/subquery.test ae324ee928c5fb463a3ce08a8860d6e7f1ca5797
 F test/subselect.test 2d13fb7f450db3595adcdd24079a0dd1d2d6abc2
-F test/sync.test 6e8b885cec5ccba2090e92c90f747a7142f53c88
+F test/sync.test 0c43399676de101e3af4d6069a94e211bb77f6b9
 F test/table.test 6dc0dfa44dd429520e0e5a0c5e55025f730e9403
 F test/tableapi.test 6a66d58b37d46dc0f2b3c7d4bd2617d209399bd1
-F test/tclsqlite.test 2c4b5fb2f21e6740479463c263f3020f08e472d7
+F test/tclsqlite.test 9b5c4a09879a97572e5c84372f5d045dd4703392
 F test/temptable.test 7927261befdbc7b0a7ffebb85ecc70a74fa7b15b
-F test/tester.tcl 1f90490c63a2529ba94ca4f67608feddd33cfbcf
+F test/tester.tcl b260c1acda75b4a1a03ef0c9c5582e466e350b06
 F test/thread1.test 776c9e459b75ba905193b351926ac4019b049f35
 F test/thread2.test c88da55fb60d5975be91f1e2942a5e267c33f8ed
 F test/threadtest1.c 6029d9c5567db28e6dc908a0c63099c3ba6c383b
 F test/threadtest2.c 97a830d53c24c42290501fdfba4a6e5bdd34748b
-F test/tkt1435.test f768e5415d102fa1d8de3f548469d8fd1b79abd8
+F test/tkt1435.test f8c52c41de6e5ca02f1845f3a46e18e25cadac00
-F test/tkt1443.test bbd1fa7070783845aa42cdd35867a5ac73e5947a
+F test/tkt1443.test bacc311da5c96a227bf8c167e77a30c99f8e8368
-F test/tkt1444.test 31e25ca9f850e4d75ce5fcaa69f1f96558ad9416
+F test/tkt1444.test b8de3146ad0be7e39e95aa9d53c66740eaa7f192
-F test/tkt1449.test 541021eb3c652848deb44f1407d692a9c42b6099
+F test/tkt1449.test 93584a449752d52b07d2cfc280a69842b6e16ed5
-F test/tkt1473.test fd90eaa945d930e6f1bbb7b024848f83f063bc5d
+F test/tkt1473.test 9d000af3e11a4450d4c596f5e58b4b0d24eb0f8b
-F test/tkt1501.test 0cf859299f0052ecfaf7db6f0984f122c7db5d15
+F test/tkt1501.test 2064f98e00871848af4b2f517e46c1a7fb2e32db
-F test/tkt1512.test 8efd8d07e27e99d7462f75b5711de65eb7708baf
+F test/tkt1512.test d8cd5f1c16103b5bc3ccf254731f63e69c364d1d
 F test/tkt1514.test baa587a69fa2e8d575ebdaf1460f711281dcba49
 F test/tkt1536.test 83ff7a7b6e248016f8d682d4f7a4ae114070d466
 F test/tkt1537.test e3a14332de9770be8ff14bd15c19a49cbec10808
 F test/tkt1567.test 18023cc3626a365f0118e17b66decedec93b1a6f
 F test/trace.test 75ffc1b992c780d054748a656e3e7fd674f18567
-F test/trans.test abd2f74c5685b156d79438e6e812db5bf984eea4
+F test/trans.test b25eae982d156867eac338409905fd4ca589b7f8
-F test/trigger1.test 152aed5a1fa90709fe171f2ca501a6b7f7901479
+F test/trigger1.test 0c1d44882dba5c92e4efee4dd133cc979f0b1860
-F test/trigger2.test dea71f4b05e22896e72527278bc8ef71b7475bf2
+F test/trigger2.test 33bf8ae9b788013be194efe5f66c04a202facbb4
 F test/trigger3.test 9102fd3933db294dc654b5aee9edfe9e94f2b9e2
 F test/trigger4.test 4bed3705c9df4aaf7a7b164a2d573410d05ca025
 F test/trigger5.test 619391a3e9fc194081d22cefd830d811e7badf83
@@ -261,7 +261,7 @@ F test/trigger6.test 0e411654f122552da6590f0b4e6f781048a4a9b9
 F test/trigger7.test 0afa870be2ce1b132cdb85b17a4a4ef45aa8cece
 F test/types.test a74083427a73ff8af2723bae209d09cce5722c3a
 F test/types2.test 81dd1897be8ef4b5b73d0006e6076abe40610de3
-F test/types3.test f9098dbb92bbc67cdde9dda70d65cded10ca3eb0
+F test/types3.test ea0ddf793ad5cd17c3b029dd8f48473059f873b6
 F test/unique.test 0253c4227a5dc533e312202ce21ecfad18058d18
 F test/update.test 7669ca789d62c258b678e8aa7a22a57eac10f2cf
 F test/utf16.test f9c13f4e2b48c42d0bfc96647d82fdf7bc11fc55
@@ -270,7 +270,7 @@ F test/vacuum2.test 5aea8c88a65cb29f7d175296e7c819c6158d838c
 F test/varint.test ab7b110089a08b9926ed7390e7e97bdefeb74102
 F test/view.test 354bd0ceb363e88da8ce98fb47e18550d7594b13
 F test/where.test ee7c9a6659b07e1ee61177f6e7ff71565ee2c9df
-F test/where2.test 2a50005957786861c3e9261bf25d7479cad63fc9
+F test/where2.test fde821b9cb8e20d53ccd2e71482b063c5b1e222a
 F tool/diffdb.c 7524b1b5df217c20cd0431f6789851a4e0cb191b
 F tool/lemon.c 26d271a753ef87fe1e6194f53c594ab5e6783d85
 F tool/lempar.c 424df14a48736bb961ed47acf30c26d66ed85a62
@@ -341,7 +341,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl a99cf5f6d8bd4d5537584a2b342f0fb9fa601d8b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P 36b03259654ffa9b14ebe1093984b29e9efbd56c
+P c058f483a52c8043178b6329aa5e58bedf0c8277
-R 75313d1d094051d9599acb13b95119d7
+R c86983ffa2db3b82ac2e0f38dbf58ee1
 U danielk1977
-Z 235cd671730832e0ed73a26dff915eed
+Z fc44b9175931850bbe296b28d7e15e37

manifest.uuid

@@ -1 +1 @@
-c058f483a52c8043178b6329aa5e58bedf0c8277
+3a54a33dcb7e765ee3773397407e8929a8cfe1a9

test/alter.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this script is testing the ALTER TABLE statement.
 #
-# $Id: alter.test,v 1.15 2006/01/15 14:11:49 danielk1977 Exp $
+# $Id: alter.test,v 1.16 2006/01/17 09:35:02 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -567,9 +567,9 @@ do_test alter-6.2 {
     CREATE TABLE ${tbl_name}(a, b, c);
   "
   set ::oid [execsql {SELECT max(oid) FROM sqlite_master}]
-  execsql {
+  execsql "
     SELECT sql FROM sqlite_master WHERE oid = $::oid;
-  }
+  "
 } "{CREATE TABLE ${::tbl_name}(a, b, c)}"
 execsql "
   SELECT * FROM ${::tbl_name}
@@ -579,26 +579,26 @@ do_test alter-6.3 {
   execsql "
     ALTER TABLE $::tbl_name RENAME TO $::tbl_name2 
   "
-  execsql {
+  execsql "
-    SELECT sql FROM sqlite_master WHERE oid = $::oid;
+    SELECT sql FROM sqlite_master WHERE oid = $::oid
-  }
+  "
 } "{CREATE TABLE '${::tbl_name2}'(a, b, c)}"
 do_test alter-6.4 {
   execsql "
     ALTER TABLE $::tbl_name2 RENAME TO $::tbl_name
   "
-  execsql {
+  execsql "
-    SELECT sql FROM sqlite_master WHERE oid = $::oid;
+    SELECT sql FROM sqlite_master WHERE oid = $::oid
-  }
+  "
 } "{CREATE TABLE '${::tbl_name}'(a, b, c)}"
 set ::col_name ghi\1234\jkl
 do_test alter-6.5 {
   execsql "
     ALTER TABLE $::tbl_name ADD COLUMN $::col_name VARCHAR
   "
-  execsql {
+  execsql "
-    SELECT sql FROM sqlite_master WHERE oid = $::oid;
+    SELECT sql FROM sqlite_master WHERE oid = $::oid
-  }
+  "
 } "{CREATE TABLE '${::tbl_name}'(a, b, c, $::col_name VARCHAR)}"
 set ::col_name2 B\3421\A
 do_test alter-6.6 {
@@ -607,9 +607,9 @@ do_test alter-6.6 {
   execsql "
     ALTER TABLE $::tbl_name ADD COLUMN $::col_name2
   "
-  execsql {
+  execsql "
-    SELECT sql FROM sqlite_master WHERE oid = $::oid;
+    SELECT sql FROM sqlite_master WHERE oid = $::oid
-  }
+  "
 } "{CREATE TABLE '${::tbl_name}'(a, b, c, $::col_name VARCHAR, $::col_name2)}"
 do_test alter-6.7 {
   execsql "

test/alter3.test

@@ -13,7 +13,7 @@
 # file format change that may be used in the future to implement
 # "ALTER TABLE ... ADD COLUMN".
 #
-# $Id: alter3.test,v 1.8 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: alter3.test,v 1.9 2006/01/17 09:35:02 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -143,14 +143,16 @@ do_test alter3-2.4 {
     ALTER TABLE t1 ADD c NOT NULL DEFAULT 10;
   }
 } {0 {}}
-do_test alter3-2.5 {
+ifcapable view {
-  execsql {
+  do_test alter3-2.5 {
-    CREATE VIEW v1 AS SELECT * FROM t1;
+    execsql {
-  }
+      CREATE VIEW v1 AS SELECT * FROM t1;
-  catchsql {
+    }
-    alter table v1 add column d;
+    catchsql {
-  }
+      alter table v1 add column d;
-} {1 {Cannot add a column to a view}}
+    }
+  } {1 {Cannot add a column to a view}}
+}
 do_test alter3-2.6 {
   catchsql {
     alter table t1 add column d DEFAULT CURRENT_TIME;
@@ -186,11 +188,13 @@ if {!$has_codec} {
     get_file_format
   } {3}
 }
-do_test alter3-3.4 {
+ifcapable schema_version {
-  execsql {
+  do_test alter3-3.4 {
-    PRAGMA schema_version;
+    execsql {
-  }
+      PRAGMA schema_version;
-} {11}
+    }
+  } {11}
+}
 
 do_test alter3-4.1 {
   db close
@@ -219,11 +223,13 @@ if {!$has_codec} {
     get_file_format
   } {3}
 }
-do_test alter3-4.4 {
+ifcapable schema_version {
-  execsql {
+  do_test alter3-4.4 {
-    PRAGMA schema_version;
+    execsql {
-  }
+      PRAGMA schema_version;
-} {21}
+    }
+  } {21}
+}
 do_test alter3-4.99 {
   execsql {
     DROP TABLE t1;
@@ -254,11 +260,13 @@ do_test alter3-5.3 {
     SELECT * FROM aux.t1;
   }
 } {1 one {} 2 two {}}
-do_test alter3-5.4 {
+ifcapable schema_version {
-  execsql {
+  do_test alter3-5.4 {
-    PRAGMA aux.schema_version;
+    execsql {
-  }
+      PRAGMA aux.schema_version;
-} {31}
+    }
+  } {31}
+}
 if {!$has_codec} {
   do_test alter3-5.5 {
     list [get_file_format test2.db] [get_file_format]
@@ -275,11 +283,13 @@ do_test alter3-5.7 {
     SELECT * FROM aux.t1;
   }
 } {1 one {} 1000 2 two {} 1000}
-do_test alter3-5.8 {
+ifcapable schema_version {
-  execsql {
+  do_test alter3-5.8 {
-    PRAGMA aux.schema_version;
+    execsql {
-  }
+      PRAGMA aux.schema_version;
-} {32}
+    }
+  } {32}
+}
 do_test alter3-5.9 {
   execsql {
     SELECT * FROM t1;

test/auth.test

@@ -12,7 +12,7 @@
 # focus of this script is testing the ATTACH and DETACH commands
 # and related functionality.
 #
-# $Id: auth.test,v 1.32 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: auth.test,v 1.33 2006/01/17 09:35:02 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -2092,32 +2092,32 @@ do_test auth-2.11.2 {
 # Make sure the OLD and NEW pseudo-tables of a trigger get authorized.
 #
 ifcapable trigger {
-do_test auth-3.1 {
+  do_test auth-3.1 {
-  proc auth {code arg1 arg2 arg3 arg4} {
+    proc auth {code arg1 arg2 arg3 arg4} {
-    return SQLITE_OK
+      return SQLITE_OK
-  }
-  execsql {
-    CREATE TABLE tx(a1,a2,b1,b2,c1,c2);
-    CREATE TRIGGER r1 AFTER UPDATE ON t2 FOR EACH ROW BEGIN
-      INSERT INTO tx VALUES(OLD.a,NEW.a,OLD.b,NEW.b,OLD.c,NEW.c);
-    END;
-    UPDATE t2 SET a=a+1;
-    SELECT * FROM tx;
-  }
-} {11 12 2 2 33 33 7 8 8 8 9 9}
-do_test auth-3.2 {
-  proc auth {code arg1 arg2 arg3 arg4} {
-    if {$code=="SQLITE_READ" && $arg1=="t2" && $arg2=="c"} {
-      return SQLITE_IGNORE
     }
-    return SQLITE_OK
+    execsql {
-  }
+      CREATE TABLE tx(a1,a2,b1,b2,c1,c2);
-  execsql {
+      CREATE TRIGGER r1 AFTER UPDATE ON t2 FOR EACH ROW BEGIN
-    DELETE FROM tx;
+        INSERT INTO tx VALUES(OLD.a,NEW.a,OLD.b,NEW.b,OLD.c,NEW.c);
-    UPDATE t2 SET a=a+100;
+      END;
-    SELECT * FROM tx;
+      UPDATE t2 SET a=a+1;
-  }
+      SELECT * FROM tx;
-} {12 112 2 2 {} {} 8 108 8 8 {} {}}
+    }
+  } {11 12 2 2 33 33 7 8 8 8 9 9}
+  do_test auth-3.2 {
+    proc auth {code arg1 arg2 arg3 arg4} {
+      if {$code=="SQLITE_READ" && $arg1=="t2" && $arg2=="c"} {
+        return SQLITE_IGNORE
+      }
+      return SQLITE_OK
+    }
+    execsql {
+      DELETE FROM tx;
+      UPDATE t2 SET a=a+100;
+      SELECT * FROM tx;
+    }
+  } {12 112 2 2 {} {} 8 108 8 8 {} {}}
 } ;# ifcapable trigger
 
 # Make sure the names of views and triggers are passed on on arg4.
@@ -2210,7 +2210,17 @@ do_test auth-5.1 {
 
 # Ticket #1607
 #
-ifcapable compound {
+ifcapable compound&&subquery {
+  ifcapable trigger {
+    execsql {
+      DROP TABLE tx;
+    }
+    ifcapable view {
+      execsql {
+        DROP TABLE v1chng;
+      }
+    }
+  }
   do_test auth-5.2 {
     execsql {
       SELECT name FROM (
@@ -2218,7 +2228,7 @@ ifcapable compound {
       WHERE type='table'
       ORDER BY name
     }
-  } {sqlite_stat1 t1 t2 t3 t4 tx v1chng}
+  } {sqlite_stat1 t1 t2 t3 t4}
 }
 
 

test/avtrans.test

@@ -12,7 +12,7 @@
 # file is a copy of "trans.test" modified to run under autovacuum mode.
 # the point is to stress the autovacuum logic and try to get it to fail.
 #
-# $Id: avtrans.test,v 1.1 2005/12/09 02:35:54 drh Exp $
+# $Id: avtrans.test,v 1.2 2006/01/17 09:35:02 danielk1977 Exp $
 
 
 set testdir [file dirname $argv0]
@@ -896,9 +896,15 @@ for {set i 2} {$i<=$limit} {incr i} {
       do_test avtrans-9.$i.4-$cnt {
          expr {$sqlite_sync_count>0}
       } 1
-      do_test avtrans-9.$i.5-$cnt {
+      ifcapable pager_pragmas {
-         expr {$sqlite_fullsync_count>0}
+        do_test avtrans-9.$i.5-$cnt {
-      } [expr {$i%2==0}]
+           expr {$sqlite_fullsync_count>0}
+        } [expr {$i%2==0}]
+      } else {
+        do_test avtrans-9.$i.5-$cnt {
+           expr {$sqlite_fullsync_count>0}
+        } {1}
+      }
     }
   }
   set ::pager_old_format 0

test/between.test

@@ -12,7 +12,7 @@
 # focus of this file is testing the use of indices in WHERE clauses
 # when the WHERE clause contains the BETWEEN operator.
 #
-# $Id: between.test,v 1.1 2005/07/28 23:12:08 drh Exp $
+# $Id: between.test,v 1.2 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -29,7 +29,14 @@ do_test between-1.0 {
     set x [expr {int(log($i)/log(2))}]
     set y [expr {$i*$i + 2*$i + 1}]
     set z [expr {$x+$y}]
-    execsql {INSERT INTO t1 VALUES($::w,$::x,$::y,$::z)}
+    ifcapable tclvar {
+      # Random unplanned test of the $varname variable syntax.
+      execsql {INSERT INTO t1 VALUES($::w,$::x,$::y,$::z)}
+    } else {
+      # If the $varname syntax is not available, use the regular variable
+      # declaration syntax.
+      execsql {INSERT INTO t1 VALUES(:w,:x,:y,:z)}
+    }
   }
   execsql {
     CREATE UNIQUE INDEX i1w ON t1(w);

test/capi3.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this script testing the callback-free C/C++ API.
 #
-# $Id: capi3.test,v 1.38 2006/01/13 01:25:06 drh Exp $
+# $Id: capi3.test,v 1.39 2006/01/17 09:35:02 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -111,18 +111,22 @@ ifcapable {utf16} {
   do_test capi3-2.5 {
     sqlite3_errmsg $DB
   } {no such column: namex}
-  do_test capi3-2.6 {
+
-    execsql {CREATE TABLE tablename(x)}
+  ifcapable schema_pragmas {
-    set sql16 [utf16 {PRAGMA table_info("TableName")}]
+    do_test capi3-2.6 {
-    set STMT [sqlite3_prepare16 $DB $sql16 -1 TAIL]
+      execsql {CREATE TABLE tablename(x)}
-    sqlite3_step $STMT
+      set sql16 [utf16 {PRAGMA table_info("TableName")}]
-  } SQLITE_ROW
+      set STMT [sqlite3_prepare16 $DB $sql16 -1 TAIL]
-  do_test capi3-2.7 {
+      sqlite3_step $STMT
-    sqlite3_step $STMT
+    } SQLITE_ROW
-  } SQLITE_DONE
+    do_test capi3-2.7 {
-  do_test capi3-2.8 {
+      sqlite3_step $STMT
-    sqlite3_finalize $STMT
+    } SQLITE_DONE
-  } SQLITE_OK
+    do_test capi3-2.8 {
+      sqlite3_finalize $STMT
+    } SQLITE_OK
+  }
+
 } ;# endif utf16
 
 # rename sqlite3_open sqlite3_open_old

test/check.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing CHECK constraints
 #
-# $Id: check.test,v 1.7 2006/01/14 08:02:28 danielk1977 Exp $
+# $Id: check.test,v 1.8 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -272,11 +272,13 @@ do_test check-4.8 {
     UPDATE t4 SET x=0, y=2;
   }
 } {1 {constraint failed}}
-do_test check_4.9 {
+ifcapable vacuum {
-  catchsql {
+  do_test check_4.9 {
-    VACUUM
+    catchsql {
-  }
+      VACUUM
-} {0 {}}
+    }
+  } {0 {}}
+}
 
 do_test check-5.1 {
   catchsql {

test/conflict.test

@@ -13,11 +13,16 @@
 # This file implements tests for the conflict resolution extension
 # to SQLite.
 #
-# $Id: conflict.test,v 1.26 2005/09/25 01:13:09 drh Exp $
+# $Id: conflict.test,v 1.27 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !conflict {
+  finish_test
+  return
+}
+
 # Create tables for the first group of tests.
 #
 do_test conflict-1.0 {

test/hook.test

@@ -17,7 +17,7 @@
 #      sqlite_update_hook    (tests hook-4-*)
 #      sqlite_rollback_hook  (tests hook-5.*)
 #
-# $Id: hook.test,v 1.10 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: hook.test,v 1.11 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -138,37 +138,44 @@ do_test hook-4.1.2 {
 ]
 
 set ::update_hook {}
-do_test hook-4.2.1 {
+ifcapable trigger {
-  catchsql {
+  do_test hook-4.2.1 {
-    DROP TABLE t2;
+    catchsql {
-  }
+      DROP TABLE t2;
-  execsql {
+    }
-    CREATE TABLE t2(c INTEGER PRIMARY KEY, d);
+    execsql {
-    CREATE TRIGGER t1_trigger AFTER INSERT ON t1 BEGIN
+      CREATE TABLE t2(c INTEGER PRIMARY KEY, d);
-      INSERT INTO t2 VALUES(new.a, new.b);
+      CREATE TRIGGER t1_trigger AFTER INSERT ON t1 BEGIN
-      UPDATE t2 SET d = d || ' via trigger' WHERE new.a = c;
+        INSERT INTO t2 VALUES(new.a, new.b);
-      DELETE FROM t2 WHERE new.a = c;
+        UPDATE t2 SET d = d || ' via trigger' WHERE new.a = c;
-    END;
+        DELETE FROM t2 WHERE new.a = c;
-  }
+      END;
-} {}
+    }
-do_test hook-4.2.2 {
+  } {}
+  do_test hook-4.2.2 {
+    execsql {
+      INSERT INTO t1 VALUES(1, 'one');
+      INSERT INTO t1 VALUES(2, 'two');
+    }
+    set ::update_hook
+  } [list \
+      INSERT main t1 1 \
+      INSERT main t2 1 \
+      UPDATE main t2 1 \
+      DELETE main t2 1 \
+      INSERT main t1 2 \
+      INSERT main t2 2 \
+      UPDATE main t2 2 \
+      DELETE main t2 2 \
+  ]
+} else {
   execsql {
     INSERT INTO t1 VALUES(1, 'one');
     INSERT INTO t1 VALUES(2, 'two');
   }
-  set ::update_hook
+}
-} [list \
-    INSERT main t1 1 \
-    INSERT main t2 1 \
-    UPDATE main t2 1 \
-    DELETE main t2 1 \
-    INSERT main t1 2 \
-    INSERT main t2 2 \
-    UPDATE main t2 2 \
-    DELETE main t2 2 \
-]
 
-# Triggers + ATTACH
+# Update-hook + ATTACH
 set ::update_hook {}
 do_test hook-4.2.3 {
   file delete -force test2.db
@@ -188,12 +195,17 @@ do_test hook-4.2.3 {
     DELETE aux t3 2 \
 ]
 
+ifcapable trigger {
+  execsql {
+    DROP TRIGGER t1_trigger;
+  }
+}
+
 # Test that other vdbe operations involving btree structures do not 
 # incorrectly invoke the update-hook.
 set ::update_hook {}
 do_test hook-4.3.1 {
   execsql {
-    DROP TRIGGER t1_trigger;
     CREATE INDEX t1_i ON t1(b);
     INSERT INTO t1 VALUES(3, 'three');
     UPDATE t1 SET b = '';

test/index.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing the CREATE INDEX statement.
 #
-# $Id: index.test,v 1.40 2006/01/04 15:54:37 drh Exp $
+# $Id: index.test,v 1.41 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -640,46 +640,48 @@ do_test index-18.5 {
 
 # These tests ensure that if multiple table definition constraints are
 # implemented by a single indice, the correct ON CONFLICT policy applies.
-do_test index-19.1 {
+ifcapable conflict {
-  execsql {
+  do_test index-19.1 {
-    CREATE TABLE t7(a UNIQUE PRIMARY KEY);
+    execsql {
-    CREATE TABLE t8(a UNIQUE PRIMARY KEY ON CONFLICT ROLLBACK);
+      CREATE TABLE t7(a UNIQUE PRIMARY KEY);
-    INSERT INTO t7 VALUES(1);
+      CREATE TABLE t8(a UNIQUE PRIMARY KEY ON CONFLICT ROLLBACK);
-    INSERT INTO t8 VALUES(1);
+      INSERT INTO t7 VALUES(1);
-  }
+      INSERT INTO t8 VALUES(1);
-} {}
+    }
-do_test index-19.2 {
+  } {}
-  catchsql {
+  do_test index-19.2 {
-    BEGIN;
+    catchsql {
-    INSERT INTO t7 VALUES(1);
+      BEGIN;
-  }
+      INSERT INTO t7 VALUES(1);
-} {1 {column a is not unique}}
+    }
-do_test index-19.3 {
+  } {1 {column a is not unique}}
-  catchsql {
+  do_test index-19.3 {
-    BEGIN;
+    catchsql {
-  }
+      BEGIN;
-} {1 {cannot start a transaction within a transaction}}
+    }
-do_test index-19.4 {
+  } {1 {cannot start a transaction within a transaction}}
-  catchsql {
+  do_test index-19.4 {
-    INSERT INTO t8 VALUES(1);
+    catchsql {
-  }
+      INSERT INTO t8 VALUES(1);
-} {1 {column a is not unique}}
+    }
-do_test index-19.5 {
+  } {1 {column a is not unique}}
-  catchsql {
+  do_test index-19.5 {
-    BEGIN;
+    catchsql {
-    COMMIT;
+      BEGIN;
-  }
+      COMMIT;
-} {0 {}}
+    }
-do_test index-19.6 {
+  } {0 {}}
-  catchsql {
+  do_test index-19.6 {
-    DROP TABLE t7;
+    catchsql {
-    DROP TABLE t8;
+      DROP TABLE t7;
-    CREATE TABLE t7(
+      DROP TABLE t8;
-       a PRIMARY KEY ON CONFLICT FAIL, 
+      CREATE TABLE t7(
-       UNIQUE(a) ON CONFLICT IGNORE
+         a PRIMARY KEY ON CONFLICT FAIL, 
-    );
+         UNIQUE(a) ON CONFLICT IGNORE
-  }
+      );
-} {1 {conflicting ON CONFLICT clauses specified}}
+    }
+  } {1 {conflicting ON CONFLICT clauses specified}}
+} ; # end of "ifcapable conflict" block
 
 ifcapable {reindex} {
   do_test index-19.7 {

test/insert.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this file is testing the INSERT statement.
 #
-# $Id: insert.test,v 1.28 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: insert.test,v 1.29 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -288,34 +288,43 @@ ifcapable tempdb {
 
 # Ticket #334:  REPLACE statement corrupting indices.
 #
-do_test insert-6.1 {
+ifcapable conflict {
-  execsql {
+  # The REPLACE command is not available if SQLITE_OMIT_CONFLICT is 
-    CREATE TABLE t1(a INTEGER PRIMARY KEY, b UNIQUE);
+  # defined at compilation time.
-    INSERT INTO t1 VALUES(1,2);
+  do_test insert-6.1 {
-    INSERT INTO t1 VALUES(2,3);
+    execsql {
-    SELECT b FROM t1 WHERE b=2;
+      CREATE TABLE t1(a INTEGER PRIMARY KEY, b UNIQUE);
+      INSERT INTO t1 VALUES(1,2);
+      INSERT INTO t1 VALUES(2,3);
+      SELECT b FROM t1 WHERE b=2;
+    }
+  } {2}
+  do_test insert-6.2 {
+    execsql {
+      REPLACE INTO t1 VALUES(1,4);
+      SELECT b FROM t1 WHERE b=2;
+    }
+  } {}
+  do_test insert-6.3 {
+    execsql {
+      UPDATE OR REPLACE t1 SET a=2 WHERE b=4;
+      SELECT * FROM t1 WHERE b=4;
+    }
+  } {2 4}
+  do_test insert-6.4 {
+    execsql {
+      SELECT * FROM t1 WHERE b=3;
+    }
+  } {}
+  ifcapable {reindex} {
+    do_test insert-6.5 {
+      execsql REINDEX
+    } {}
   }
-} {2}
+  do_test insert-6.6 {
-do_test insert-6.2 {
+    execsql {
-  execsql {
+      DROP TABLE t1;
-    REPLACE INTO t1 VALUES(1,4);
+    }
-    SELECT b FROM t1 WHERE b=2;
-  }
-} {}
-do_test insert-6.3 {
-  execsql {
-    UPDATE OR REPLACE t1 SET a=2 WHERE b=4;
-    SELECT * FROM t1 WHERE b=4;
-  }
-} {2 4}
-do_test insert-6.4 {
-  execsql {
-    SELECT * FROM t1 WHERE b=3;
-  }
-} {}
-ifcapable {reindex} {
-  do_test insert-6.7 {
-    execsql REINDEX
   } {}
 }
 
@@ -324,7 +333,6 @@ ifcapable {reindex} {
 # INSERT statments.
 do_test insert-7.1 {
   execsql {
-    DROP TABLE t1;
     CREATE TABLE t1(a);
     INSERT INTO t1 VALUES(1);
     INSERT INTO t1 VALUES(2);

test/like.test

@@ -13,7 +13,7 @@
 # in particular the optimizations that occur to help those operators
 # run faster.
 #
-# $Id: like.test,v 1.3 2005/08/28 17:00:26 drh Exp $
+# $Id: like.test,v 1.4 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -40,7 +40,7 @@ do_test like-1.0 {
     CDE
     {ABC abc xyz}
   } {
-    db eval {INSERT INTO t1 VALUES($str)}
+    db eval {INSERT INTO t1 VALUES(:str)}
   }
   execsql {
     SELECT count(*) FROM t1;

test/limit.test

@@ -12,7 +12,7 @@
 # focus of this file is testing the LIMIT ... OFFSET ... clause
 #  of SELECT statements.
 #
-# $Id: limit.test,v 1.26 2006/01/08 18:10:18 drh Exp $
+# $Id: limit.test,v 1.27 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -404,27 +404,27 @@ ifcapable compound {
 do_test limit-10.1 {
   set limit 10
   db eval {
-    SELECT x FROM t1 LIMIT $limit;
+    SELECT x FROM t1 LIMIT :limit;
   }
 } {31 30 29 28 27 26 25 24 23 22}
 do_test limit-10.2 {
   set limit 5
   set offset 5
   db eval {
-    SELECT x FROM t1 LIMIT $limit OFFSET $offset;
+    SELECT x FROM t1 LIMIT :limit OFFSET :offset;
   }
 } {26 25 24 23 22}
 do_test limit-10.3 {
   set limit -1
   db eval {
-    SELECT x FROM t1 WHERE x<10 LIMIT $limit;
+    SELECT x FROM t1 WHERE x<10 LIMIT :limit;
   }
 } {9 8 7 6 5 4 3 2 1 0}
 do_test limit-10.4 {
   set limit 1.5
   set rc [catch {
   db eval {
-    SELECT x FROM t1 WHERE x<10 LIMIT $limit;
+    SELECT x FROM t1 WHERE x<10 LIMIT :limit;
   } } msg]
   list $rc $msg
 } {1 {datatype mismatch}}
@@ -432,7 +432,7 @@ do_test limit-10.5 {
   set limit "hello world"
   set rc [catch {
   db eval {
-    SELECT x FROM t1 WHERE x<10 LIMIT $limit;
+    SELECT x FROM t1 WHERE x<10 LIMIT :limit;
   } } msg]
   list $rc $msg
 } {1 {datatype mismatch}}

test/memdb.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this script is in-memory database backend.
 #
-# $Id: memdb.test,v 1.13 2005/01/21 04:25:47 danielk1977 Exp $
+# $Id: memdb.test,v 1.14 2006/01/17 09:35:02 danielk1977 Exp $
 
 
 set testdir [file dirname $argv0]
@@ -169,6 +169,11 @@ foreach {i conf cmd t0 t1 t2} {
   6 {}       {INSERT OR ABORT}       1 {}  1
   7 {}       {INSERT OR ROLLBACK}    1 {}  {}
 } {
+
+  # All tests after test 1 depend on conflict resolution. So end the
+  # loop if that is not available in this build.
+  ifcapable !conflict {if {$i>1} break}
+
   do_test memdb-4.$i {
     if {$conf!=""} {set conf "ON CONFLICT $conf"}
     set r0 [catch {execsql [subst {
@@ -229,6 +234,12 @@ foreach {i conf1 conf2 cmd t0 t1 t2} {
  15 {}       {}       {UPDATE OR ABORT}       1 {1 2 3 4}  1
  16 {}       {}       {UPDATE OR ROLLBACK}    1 {1 2 3 4}  0
 } {
+  # All tests after test 1 depend on conflict resolution. So end the
+  # loop if that is not available in this build.
+  ifcapable !conflict {
+    if {$i>1} break
+  }
+
   if {$t0} {set t1 {column a is not unique}}
   do_test memdb-5.$i {
     if {$conf1!=""} {set conf1 "ON CONFLICT $conf1"}
@@ -321,26 +332,30 @@ do_test memdb-6.11 {
     SELECT * FROM t5 ORDER BY y DESC;
   }
 } {}
-do_test memdb-6.12 {
+
-  execsql {
+ifcapable conflict {
-    INSERT INTO t5 VALUES(1,2);
+  do_test memdb-6.12 {
-    INSERT INTO t5 VALUES(3,4);
+    execsql {
-    REPLACE INTO t5 VALUES(1,4);
+      INSERT INTO t5 VALUES(1,2);
-    SELECT rowid,* FROM t5;
+      INSERT INTO t5 VALUES(3,4);
-  }
+      REPLACE INTO t5 VALUES(1,4);
-} {3 1 4}
+      SELECT rowid,* FROM t5;
-do_test memdb-6.13 {
+    }
-  execsql {
+  } {3 1 4}
-    DELETE FROM t5 WHERE x>5;
+  do_test memdb-6.13 {
-    SELECT * FROM t5;
+    execsql {
-  }
+      DELETE FROM t5 WHERE x>5;
-} {1 4}
+      SELECT * FROM t5;
-do_test memdb-6.14 {
+    }
-  execsql {
+  } {1 4}
-    DELETE FROM t5 WHERE y<3;
+  do_test memdb-6.14 {
-    SELECT * FROM t5;
+    execsql {
-  }
+      DELETE FROM t5 WHERE y<3;
-} {1 4}
+      SELECT * FROM t5;
+    }
+  } {1 4}
+}
+
 do_test memdb-6.15 {
   execsql {
     DELETE FROM t5 WHERE x>0;

test/misc1.test

@@ -13,7 +13,7 @@
 # This file implements tests for miscellanous features that were
 # left out of other test files.
 #
-# $Id: misc1.test,v 1.39 2005/11/01 15:48:25 drh Exp $
+# $Id: misc1.test,v 1.40 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -364,18 +364,20 @@ do_test misc1-12.4 {
     SELECT * FROM t6;
   }
 } {0 0.0}
-do_test misc1-12.5 {
+ifcapable conflict {
-  execsql {
+  do_test misc1-12.5 {
-    INSERT OR IGNORE INTO t6 VALUES(0.0,'x');
+    execsql {
-    SELECT * FROM t6;
+      INSERT OR IGNORE INTO t6 VALUES(0.0,'x');
-  }
+      SELECT * FROM t6;
-} {0 0.0}
+    }
-do_test misc1-12.6 {
+  } {0 0.0}
-  execsql {
+  do_test misc1-12.6 {
-    INSERT OR IGNORE INTO t6 VALUES('y',0);
+    execsql {
-    SELECT * FROM t6;
+      INSERT OR IGNORE INTO t6 VALUES('y',0);
-  }
+      SELECT * FROM t6;
-} {0 0.0 y 0}
+    }
+  } {0 0.0 y 0}
+}
 do_test misc1-12.7 {
   execsql {
     CREATE TABLE t7(x INTEGER, y TEXT, z);

test/misc2.test

@@ -13,7 +13,7 @@
 # This file implements tests for miscellanous features that were
 # left out of other test files.
 #
-# $Id: misc2.test,v 1.23 2006/01/14 08:02:28 danielk1977 Exp $
+# $Id: misc2.test,v 1.24 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -257,7 +257,7 @@ ifcapable tempdb {
 #
 # The SQL code below was causing a segfault.
 #
-ifcapable subquery {
+ifcapable subquery&&trigger {
   do_test misc2-10.1 {
     execsql {
       CREATE TABLE t1229(x);

test/misc5.test

@@ -13,7 +13,7 @@
 # This file implements tests for miscellanous features that were
 # left out of other test files.
 #
-# $Id: misc5.test,v 1.10 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: misc5.test,v 1.11 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -43,22 +43,46 @@ for {set i 120} {$i<140} {incr i} {
 
 # Make sure large integers are stored correctly.
 #
-do_test misc5-2.1 {
+ifcapable conflict {
-  execsql {
+  do_test misc5-2.1 {
-    create table t2(x unique);
+    execsql {
-    insert into t2 values(1);
+      create table t2(x unique);
-    insert or ignore into t2 select x*2 from t2;
+      insert into t2 values(1);
-    insert or ignore into t2 select x*4 from t2;
+      insert or ignore into t2 select x*2 from t2;
-    insert or ignore into t2 select x*16 from t2;
+      insert or ignore into t2 select x*4 from t2;
-    insert or ignore into t2 select x*256 from t2;
+      insert or ignore into t2 select x*16 from t2;
-    insert or ignore into t2 select x*65536 from t2;
+      insert or ignore into t2 select x*256 from t2;
-    insert or ignore into t2 select x*2147483648 from t2;
+      insert or ignore into t2 select x*65536 from t2;
-    insert or ignore into t2 select x-1 from t2;
+      insert or ignore into t2 select x*2147483648 from t2;
-    insert or ignore into t2 select x+1 from t2;
+      insert or ignore into t2 select x-1 from t2;
-    insert or ignore into t2 select -x from t2;
+      insert or ignore into t2 select x+1 from t2;
-    select count(*) from t2;
+      insert or ignore into t2 select -x from t2;
-  }
+      select count(*) from t2;
-} 371
+    }
+  } 371
+} else {
+  do_test misc5-2.1 {
+    execsql {
+      BEGIN;
+      create table t2(x unique);
+      create table t2_temp(x);
+      insert into t2_temp values(1);
+      insert into t2_temp select x*2 from t2_temp;
+      insert into t2_temp select x*4 from t2_temp;
+      insert into t2_temp select x*16 from t2_temp;
+      insert into t2_temp select x*256 from t2_temp;
+      insert into t2_temp select x*65536 from t2_temp;
+      insert into t2_temp select x*2147483648 from t2_temp;
+      insert into t2_temp select x-1 from t2_temp;
+      insert into t2_temp select x+1 from t2_temp;
+      insert into t2_temp select -x from t2_temp;
+      INSERT INTO t2 SELECT DISTINCT(x) FROM t2_temp;
+      DROP TABLE t2_temp;
+      COMMIT;
+      select count(*) from t2;
+    }
+  } 371
+}
 do_test misc5-2.2 {
   execsql {
     select x from t2 order by x;

test/notnull.test

@@ -12,11 +12,16 @@
 #
 # This file implements tests for the NOT NULL constraint.
 #
-# $Id: notnull.test,v 1.3 2003/01/29 18:46:54 drh Exp $
+# $Id: notnull.test,v 1.4 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !conflict {
+  finish_test
+  return
+}
+
 do_test notnull-1.0 {
   execsql {
     CREATE TABLE t1 (

test/null.test

@@ -162,26 +162,28 @@ do_test null-6.1 {
 
 # The UNIQUE constraint only applies to non-null values
 #
+ifcapable conflict {
 do_test null-7.1 {
-  execsql {
+    execsql {
-    create table t2(a, b unique on conflict ignore);
+      create table t2(a, b unique on conflict ignore);
-    insert into t2 values(1,1);
+      insert into t2 values(1,1);
-    insert into t2 values(2,null);
+      insert into t2 values(2,null);
-    insert into t2 values(3,null);
+      insert into t2 values(3,null);
-    insert into t2 values(4,1);
+      insert into t2 values(4,1);
-    select a from t2;
+      select a from t2;
-  }
+    }
-} {1 2 3}
+  } {1 2 3}
-do_test null-7.2 {
+  do_test null-7.2 {
-  execsql {
+    execsql {
-    create table t3(a, b, c, unique(b,c) on conflict ignore);
+      create table t3(a, b, c, unique(b,c) on conflict ignore);
-    insert into t3 values(1,1,1);
+      insert into t3 values(1,1,1);
-    insert into t3 values(2,null,1);
+      insert into t3 values(2,null,1);
-    insert into t3 values(3,null,1);
+      insert into t3 values(3,null,1);
-    insert into t3 values(4,1,1);
+      insert into t3 values(4,1,1);
-    select a from t3;
+      select a from t3;
-  }
+    }
-} {1 2 3}
+  } {1 2 3}
+}
 
 # Ticket #461 - Make sure nulls are handled correctly when doing a
 # lookup using an index.

test/pagesize.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.
 # This file implements tests for the page_size PRAGMA.
 #
-# $Id: pagesize.test,v 1.10 2005/05/20 20:01:56 drh Exp $
+# $Id: pagesize.test,v 1.11 2006/01/17 09:35:02 danielk1977 Exp $
 
 
 set testdir [file dirname $argv0]
@@ -75,12 +75,14 @@ do_test pagesize-1.8 {
 } 8192
 
 foreach PGSZ {512 2048 4096 8192} {
-  do_test pagesize-2.$PGSZ.0 {
+  ifcapable memorydb {
-    db close
+    do_test pagesize-2.$PGSZ.0 {
-    sqlite3 db :memory:
+      db close
-    execsql "PRAGMA page_size=$PGSZ;"
+      sqlite3 db :memory:
-    execsql {PRAGMA page_size}
+      execsql "PRAGMA page_size=$PGSZ;"
-  } 1024
+      execsql {PRAGMA page_size}
+    } 1024
+  }
   do_test pagesize-2.$PGSZ.1 {
     db close
     file delete -force test.db

test/rollback.test

@@ -13,7 +13,7 @@
 # caused by an ON CONFLICT ROLLBACK clause aborts any other pending
 # statements.
 #
-# $Id: rollback.test,v 1.3 2006/01/03 00:33:50 drh Exp $
+# $Id: rollback.test,v 1.4 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -31,33 +31,37 @@ do_test rollback-1.1 {
   }
 } {1 2 3 4}
 
-do_test rollback-1.2 {
+ifcapable conflict {
-  execsql {
+  do_test rollback-1.2 {
-    CREATE TABLE t3(a unique on conflict rollback);
+    execsql {
-    INSERT INTO t3 SELECT a FROM t1;
+      CREATE TABLE t3(a unique on conflict rollback);
-    BEGIN;
+      INSERT INTO t3 SELECT a FROM t1;
-    INSERT INTO t1 SELECT * FROM t1;
+      BEGIN;
-  }
+      INSERT INTO t1 SELECT * FROM t1;
-} {}
+    }
+  } {}
+}
 do_test rollback-1.3 {
   set STMT [sqlite3_prepare $DB "SELECT a FROM t1" -1 TAIL]
   sqlite3_step $STMT
 } {SQLITE_ROW}
 
-# This causes a ROLLBACK, which deletes the table out from underneath the
+ifcapable conflict {
-# SELECT statement.
+  # This causes a ROLLBACK, which deletes the table out from underneath the
-#
+  # SELECT statement.
-do_test rollback-1.4 {
+  #
-  catchsql {
+  do_test rollback-1.4 {
-    INSERT INTO t3 SELECT a FROM t1;
+    catchsql {
-  }
+      INSERT INTO t3 SELECT a FROM t1;
-} {1 {column a is not unique}}
+    }
-
+  } {1 {column a is not unique}}
-# Try to continue with the SELECT statement
+  
-#
+  # Try to continue with the SELECT statement
-do_test rollback-1.5 {
+  #
-  sqlite3_step $STMT
+  do_test rollback-1.5 {
-} {SQLITE_ABORT}
+    sqlite3_step $STMT
+  } {SQLITE_ABORT}
+}
 
 # Restart the SELECT statement
 #

test/shared.test

@@ -9,7 +9,7 @@
 #
 #***********************************************************************
 #
-# $Id: shared.test,v 1.16 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: shared.test,v 1.17 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -213,7 +213,7 @@ do_test shared-$av.3.1.1 {
     if {$i < 4} {
       set max [execsql {SELECT max(i) FROM seq}]
       db eval {
-        INSERT INTO seq SELECT i + $max, x FROM seq;
+        INSERT INTO seq SELECT i + :max, x FROM seq;
       }
     }
     lappend ret $i
@@ -227,7 +227,7 @@ do_test shared-$av.3.1.2 {
   # (test 3.1.3 verifies this).
   set ret [list]
   db2 eval {SELECT i FROM seq} {
-    db eval {DELETE FROM seq WHERE i = $i}
+    db eval {DELETE FROM seq WHERE i = :i}
     lappend ret $i
   }
   set ret
@@ -412,20 +412,50 @@ do_test shared-$av.5.1.2 {
   execsql {
     CREATE TABLE test1.t1(a, b);
     CREATE INDEX test1.i1 ON t1(a, b);
-    CREATE VIEW test1.v1 AS SELECT * FROM t1;
-    CREATE TRIGGER test1.trig1 AFTER INSERT ON t1 BEGIN
-      INSERT INTO t1 VALUES(new.a, new.b);
-    END;
   } db1
+} {}
+ifcapable view {
+  do_test shared-$av.5.1.3 {
+    execsql {
+      CREATE VIEW test1.v1 AS SELECT * FROM t1;
+    } db1
+  } {}
+}
+ifcapable trigger {
+  do_test shared-$av.5.1.4 {
+    execsql {
+      CREATE TRIGGER test1.trig1 AFTER INSERT ON t1 BEGIN
+        INSERT INTO t1 VALUES(new.a, new.b);
+      END;
+    } db1
+  } {}
+}
+do_test shared-$av.5.1.5 {
   execsql {
     DROP INDEX i1;
-    DROP VIEW v1;
+  } db2
-    DROP TRIGGER trig1;
+} {}
+ifcapable view {
+  do_test shared-$av.5.1.6 {
+    execsql {
+      DROP VIEW v1;
+    } db2
+  } {}
+}
+ifcapable trigger {
+  do_test shared-$av.5.1.7 {
+    execsql {
+      DROP TRIGGER trig1;
+    } db2
+  } {}
+}
+do_test shared-$av.5.1.8 {
+  execsql {
     DROP TABLE t1;
   } db2
 } {}
 ifcapable compound {
-  do_test shared-$av.5.1.2 {
+  do_test shared-$av.5.1.9 {
     execsql {
       SELECT * FROM sqlite_master UNION ALL SELECT * FROM test1.sqlite_master
     } db1
@@ -518,7 +548,7 @@ do_test shared-$av.7.1 {
     set a [string repeat "$i " 20]
     set b [string repeat "$i " 20]
     db eval {
-      INSERT INTO t1 VALUES($a, $b);
+      INSERT INTO t1 VALUES(:a, :b);
     }
     lappend ::contents [list [expr $i+1] $a $b]
   }
@@ -580,54 +610,56 @@ unset -nocomplain contents
 # the wrong encoding for a database.
 #
 file delete -force test.db test.db-journal
-do_test shared-$av.8.1.1 {
+ifcapable utf16 {
-  sqlite3 db test.db
+  do_test shared-$av.8.1.1 {
-  execsql {
+    sqlite3 db test.db
-    PRAGMA encoding = 'UTF-16';
+    execsql {
-    SELECT * FROM sqlite_master;
+      PRAGMA encoding = 'UTF-16';
-  }
+      SELECT * FROM sqlite_master;
-} {}
+    }
-do_test shared-$av.8.1.2 {
+  } {}
-  string range [execsql {PRAGMA encoding;}] 0 end-2
+  do_test shared-$av.8.1.2 {
-} {UTF-16}
+    string range [execsql {PRAGMA encoding;}] 0 end-2
-do_test shared-$av.8.1.3 {
+  } {UTF-16}
-  sqlite3 db2 test.db
+  do_test shared-$av.8.1.3 {
-  execsql {
+    sqlite3 db2 test.db
-    PRAGMA encoding = 'UTF-8';
+    execsql {
-    CREATE TABLE abc(a, b, c);
+      PRAGMA encoding = 'UTF-8';
-  } db2
+      CREATE TABLE abc(a, b, c);
-} {}
+    } db2
-do_test shared-$av.8.1.4 {
+  } {}
-  execsql {
+  do_test shared-$av.8.1.4 {
-    SELECT * FROM sqlite_master;
+    execsql {
-  }
+      SELECT * FROM sqlite_master;
-} "table abc abc [expr $AUTOVACUUM?3:2] {CREATE TABLE abc(a, b, c)}"
+    }
-do_test shared-$av.8.1.5 {
+  } "table abc abc [expr $AUTOVACUUM?3:2] {CREATE TABLE abc(a, b, c)}"
-  db2 close
+  do_test shared-$av.8.1.5 {
-  execsql {
+    db2 close
-    PRAGMA encoding;
+    execsql {
-  }
+      PRAGMA encoding;
-} {UTF-8}
+    }
-file delete -force test2.db test2.db-journal
+  } {UTF-8}
-do_test shared-$av.8.2.1 {
+  file delete -force test2.db test2.db-journal
-  execsql {
+  do_test shared-$av.8.2.1 {
-    ATTACH 'test2.db' AS aux;
+    execsql {
-    SELECT * FROM aux.sqlite_master;
+      ATTACH 'test2.db' AS aux;
-  }
+      SELECT * FROM aux.sqlite_master;
-} {}
+    }
-do_test shared-$av.8.2.2 {
+  } {}
-  sqlite3 db2 test2.db
+  do_test shared-$av.8.2.2 {
-  execsql {
+    sqlite3 db2 test2.db
-    PRAGMA encoding = 'UTF-16';
+    execsql {
-    CREATE TABLE def(d, e, f);
+      PRAGMA encoding = 'UTF-16';
-  } db2
+      CREATE TABLE def(d, e, f);
-  string range [execsql {PRAGMA encoding;} db2] 0 end-2
+    } db2
-} {UTF-16}
+    string range [execsql {PRAGMA encoding;} db2] 0 end-2
-do_test shared-$av.8.2.3 {
+  } {UTF-16}
-  catchsql {
+  do_test shared-$av.8.2.3 {
-    SELECT * FROM aux.sqlite_master;
+    catchsql {
-  }
+      SELECT * FROM aux.sqlite_master;
-} {1 {attached databases must use the same text encoding as main database}}
+    }
+  } {1 {attached databases must use the same text encoding as main database}}
+}
 
 catch {db close}
 catch {db2 close}

test/subquery.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this script is testing correlated subqueries
 #
-# $Id: subquery.test,v 1.13 2005/09/08 10:37:01 drh Exp $
+# $Id: subquery.test,v 1.14 2006/01/17 09:35:02 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -269,6 +269,15 @@ ifcapable view {
       SELECT * FROM v1 WHERE EXISTS(SELECT * FROM t2 WHERE p=v1.b);
     }
   } {2}
+} else {
+  catchsql { DROP TABLE t1; }
+  catchsql { DROP TABLE t2; }
+  execsql {
+    CREATE TABLE t1(a,b);
+    INSERT INTO t1 VALUES(1,2);
+    CREATE TABLE t2(p,q);
+    INSERT INTO t2 VALUES(2,9);
+  }
 }
 
 # Ticket 1084

test/sync.test

@@ -13,7 +13,7 @@
 # This file implements tests to verify that fsync is disabled when
 # pragma synchronous=off even for multi-database commits.
 #
-# $Id: sync.test,v 1.2 2005/11/25 10:38:22 danielk1977 Exp $
+# $Id: sync.test,v 1.3 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -43,21 +43,23 @@ do_test sync-1.1 {
   }
   set sqlite_sync_count
 } 8
-do_test sync-1.2 {
+ifcapable pager_pragmas {
-  set sqlite_sync_count 0
+  do_test sync-1.2 {
-  execsql {
+    set sqlite_sync_count 0
-    PRAGMA main.synchronous=on;
+    execsql {
-    PRAGMA db2.synchronous=on;
+      PRAGMA main.synchronous=on;
-    BEGIN;
+      PRAGMA db2.synchronous=on;
-    INSERT INTO t1 VALUES(1,2);
+      BEGIN;
-    INSERT INTO t2 VALUES(3,4);
+      INSERT INTO t1 VALUES(1,2);
-    COMMIT;
+      INSERT INTO t2 VALUES(3,4);
-  }
+      COMMIT;
-  ifcapable !dirsync {
+    }
-    incr sqlite_sync_count 3
+    ifcapable !dirsync {
-  }
+      incr sqlite_sync_count 3
-  set sqlite_sync_count
+    }
-} 8
+    set sqlite_sync_count
+  } 8
+}
 do_test sync-1.3 {
   set sqlite_sync_count 0
   execsql {
@@ -73,18 +75,20 @@ do_test sync-1.3 {
   }
   set sqlite_sync_count
 } 10
-do_test sync-1.4 {
+ifcapable pager_pragmas {
-  set sqlite_sync_count 0
+  do_test sync-1.4 {
-  execsql {
+    set sqlite_sync_count 0
-    PRAGMA main.synchronous=off;
+    execsql {
-    PRAGMA db2.synchronous=off;
+      PRAGMA main.synchronous=off;
-    BEGIN;
+      PRAGMA db2.synchronous=off;
-    INSERT INTO t1 VALUES(5,6);
+      BEGIN;
-    INSERT INTO t2 VALUES(7,8);
+      INSERT INTO t1 VALUES(5,6);
-    COMMIT;
+      INSERT INTO t2 VALUES(7,8);
-  }
+      COMMIT;
-  set sqlite_sync_count
+    }
-} 0
+    set sqlite_sync_count
+  } 0
+}
 
 
 finish_test

test/tclsqlite.test

@@ -15,7 +15,7 @@
 # interface is pretty well tested.  This file contains some addition
 # tests for fringe issues that the main test suite does not cover.
 #
-# $Id: tclsqlite.test,v 1.49 2006/01/05 15:50:07 drh Exp $
+# $Id: tclsqlite.test,v 1.50 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -335,18 +335,20 @@ do_test tcl-9.3 {
 
 # Recursive calls to the same user-defined function
 #
-do_test tcl-9.10 {
+ifcapable tclvar {
-  proc userfunc_r1 {n} {
+  do_test tcl-9.10 {
-    if {$n<=0} {return 0}
+    proc userfunc_r1 {n} {
-    set nm1 [expr {$n-1}]
+      if {$n<=0} {return 0}
-    return [expr {[db eval {SELECT r1($nm1)}]+$n}]
+      set nm1 [expr {$n-1}]
-  }
+      return [expr {[db eval {SELECT r1($nm1)}]+$n}]
-  db function r1 userfunc_r1
+    }
-  execsql {SELECT r1(10)}
+    db function r1 userfunc_r1
-} {55}
+    execsql {SELECT r1(10)}
-do_test tcl-9.11 {
+  } {55}
-  execsql {SELECT r1(100)}
+  do_test tcl-9.11 {
-} {5050}
+    execsql {SELECT r1(100)}
+  } {5050}
+}
 
 # Tests for the new transaction method
 #

test/tester.tcl

@@ -11,7 +11,7 @@
 # This file implements some common TCL routines used for regression
 # testing the SQLite library
 #
-# $Id: tester.tcl,v 1.60 2006/01/16 12:46:41 danielk1977 Exp $
+# $Id: tester.tcl,v 1.61 2006/01/17 09:35:02 danielk1977 Exp $
 
 # Make sure tclsqlite3 was compiled correctly.  Abort now with an
 # error message if not.
@@ -178,7 +178,7 @@ proc finalize_testing {} {
 #
 proc execsql {sql {db db}} {
   # puts "SQL = $sql"
-  return [$db eval $sql]
+  uplevel [list $db eval $sql]
 }
 
 # Execute SQL and catch exceptions.

test/tkt1435.test

@@ -14,11 +14,15 @@
 # fixed.  
 #
 #
-# $Id: tkt1435.test,v 1.1 2005/09/17 13:29:24 drh Exp $
+# $Id: tkt1435.test,v 1.2 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !memorydb {
+  finish_test
+  return
+}
 
 # Construct the sample database.
 #

test/tkt1443.test

@@ -34,12 +34,12 @@
 # name be the time I noticed the error.  With CVS it is a really hassle
 # to change filenames, so I'll just leave it as is.  No harm done.
 #
-# $Id: tkt1443.test,v 1.3 2006/01/14 08:02:29 danielk1977 Exp $
+# $Id: tkt1443.test,v 1.4 2006/01/17 09:35:02 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-ifcapable !subquery {
+ifcapable !subquery||!memorydb {
   finish_test
   return
 }

test/tkt1444.test

@@ -17,7 +17,7 @@
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-ifcapable compound {
+ifcapable !compound||!view {
   finish_test
   return 
 }

test/tkt1449.test

@@ -17,9 +17,10 @@
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-# Somewhere in tkt1449-1.1 is a VIEW definition that uses a subquery.
+# Somewhere in tkt1449-1.1 is a VIEW definition that uses a subquery and
-# So we cannot run this file if subqueries are not available.
+# a compound SELECT. So we cannot run this file if any of these features
-ifcapable !subquery {
+# are not available.
+ifcapable !subquery||!compound||!view {
   finish_test
   return
 }

test/tkt1473.test

@@ -17,7 +17,7 @@
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
-ifcapable compound {
+ifcapable !compound {
   finish_test
   return 
 }

test/tkt1501.test

@@ -17,6 +17,11 @@
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !compound {
+  finish_test
+  return
+}
+
 do_test tkt1501-1.1 {
   execsql {
     CREATE TABLE t1(a,b);

test/tkt1512.test

@@ -17,6 +17,11 @@
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+ifcapable !vacuum {
+  finish_test
+  return
+}
+
 do_test tkt1512-1.1 {
   execsql {
     CREATE TABLE t1(a,b);

test/trans.test

@@ -11,7 +11,7 @@
 # This file implements regression tests for SQLite library.  The
 # focus of this script is database locks.
 #
-# $Id: trans.test,v 1.27 2005/12/30 16:28:02 danielk1977 Exp $
+# $Id: trans.test,v 1.28 2006/01/17 09:35:03 danielk1977 Exp $
 
 
 set testdir [file dirname $argv0]
@@ -896,9 +896,15 @@ for {set i 2} {$i<=$limit} {incr i} {
       do_test trans-9.$i.4-$cnt {
          expr {$sqlite_sync_count>0}
       } 1
-      do_test trans-9.$i.5-$cnt {
+      ifcapable pager_pragmas {
-         expr {$sqlite_fullsync_count>0}
+        do_test trans-9.$i.5-$cnt {
-      } [expr {$i%2==0}]
+           expr {$sqlite_fullsync_count>0}
+        } [expr {$i%2==0}]
+      } else {
+        do_test trans-9.$i.5-$cnt {
+           expr {$sqlite_fullsync_count>0}
+        } {1}
+      }
     }
   }
   set ::pager_old_format 0

test/trigger1.test

@@ -442,54 +442,54 @@ do_test trigger1-8.6 {
   }
 } {}
 
-# Make sure REPLACE works inside of triggers.
+ifcapable conflict {
-#
+  # Make sure REPLACE works inside of triggers.
-# There are two versions of trigger-9.1 and trigger-9.2. One that uses
+  #
-# compound SELECT statements, and another that does not.
+  # There are two versions of trigger-9.1 and trigger-9.2. One that uses
-ifcapable compound {
+  # compound SELECT statements, and another that does not.
-do_test trigger1-9.1 {
+  ifcapable compound {
-  execsql {
+    do_test trigger1-9.1 {
-    CREATE TABLE t3(a,b);
+      execsql {
-    CREATE TABLE t4(x UNIQUE, b);
+        CREATE TABLE t3(a,b);
-    CREATE TRIGGER r34 AFTER INSERT ON t3 BEGIN
+        CREATE TABLE t4(x UNIQUE, b);
-      REPLACE INTO t4 VALUES(new.a,new.b);
+        CREATE TRIGGER r34 AFTER INSERT ON t3 BEGIN
-    END;
+          REPLACE INTO t4 VALUES(new.a,new.b);
-    INSERT INTO t3 VALUES(1,2);
+        END;
-    SELECT * FROM t3 UNION ALL SELECT 99, 99 UNION ALL SELECT * FROM t4;
+        INSERT INTO t3 VALUES(1,2);
+        SELECT * FROM t3 UNION ALL SELECT 99, 99 UNION ALL SELECT * FROM t4;
+      }
+    } {1 2 99 99 1 2}
+    do_test trigger1-9.2 {
+      execsql {
+        INSERT INTO t3 VALUES(1,3);
+        SELECT * FROM t3 UNION ALL SELECT 99, 99 UNION ALL SELECT * FROM t4;
+      }
+    } {1 2 1 3 99 99 1 3}
+  } else {
+    do_test trigger1-9.1 {
+      execsql {
+        CREATE TABLE t3(a,b);
+        CREATE TABLE t4(x UNIQUE, b);
+        CREATE TRIGGER r34 AFTER INSERT ON t3 BEGIN
+          REPLACE INTO t4 VALUES(new.a,new.b);
+        END;
+        INSERT INTO t3 VALUES(1,2);
+        SELECT * FROM t3; SELECT 99, 99; SELECT * FROM t4;
+      }
+    } {1 2 99 99 1 2}
+    do_test trigger1-9.2 {
+      execsql {
+        INSERT INTO t3 VALUES(1,3);
+        SELECT * FROM t3; SELECT 99, 99; SELECT * FROM t4;
+      }
+    } {1 2 1 3 99 99 1 3}
   }
-} {1 2 99 99 1 2}
-do_test trigger1-9.2 {
   execsql {
-    INSERT INTO t3 VALUES(1,3);
+    DROP TABLE t3;
-    SELECT * FROM t3 UNION ALL SELECT 99, 99 UNION ALL SELECT * FROM t4;
+    DROP TABLE t4;
   }
-} {1 2 1 3 99 99 1 3}
-}
-ifcapable !compound {
-do_test trigger1-9.1 {
-  execsql {
-    CREATE TABLE t3(a,b);
-    CREATE TABLE t4(x UNIQUE, b);
-    CREATE TRIGGER r34 AFTER INSERT ON t3 BEGIN
-      REPLACE INTO t4 VALUES(new.a,new.b);
-    END;
-    INSERT INTO t3 VALUES(1,2);
-    SELECT * FROM t3; SELECT 99, 99; SELECT * FROM t4;
-  }
-} {1 2 99 99 1 2}
-do_test trigger1-9.2 {
-  execsql {
-    INSERT INTO t3 VALUES(1,3);
-    SELECT * FROM t3; SELECT 99, 99; SELECT * FROM t4;
-  }
-} {1 2 1 3 99 99 1 3}
 }
 
-execsql {
-  DROP TABLE t2;
-  DROP TABLE t3;
-  DROP TABLE t4;
-}
 
 # Ticket #764. At one stage TEMP triggers would fail to re-install when the
 # schema was reloaded. The following tests ensure that TEMP triggers are

test/trigger2.test

@@ -473,119 +473,121 @@ execsql {
   DROP TABLE tbl;
 }
 
-# Handling of ON CONFLICT by INSERT statements inside triggers
+ifcapable conflict {
-execsql {
+  # Handling of ON CONFLICT by INSERT statements inside triggers
-  CREATE TABLE tbl (a primary key, b, c);
-  CREATE TRIGGER ai_tbl AFTER INSERT ON tbl BEGIN
-    INSERT OR IGNORE INTO tbl values (new.a, 0, 0);
-  END;
-}
-do_test trigger2-6.1a {
   execsql {
-    BEGIN;
+    CREATE TABLE tbl (a primary key, b, c);
-    INSERT INTO tbl values (1, 2, 3);
+    CREATE TRIGGER ai_tbl AFTER INSERT ON tbl BEGIN
-    SELECT * from tbl;
+      INSERT OR IGNORE INTO tbl values (new.a, 0, 0);
+    END;
   }
-} {1 2 3}
+  do_test trigger2-6.1a {
-do_test trigger2-6.1b {
+    execsql {
-  catchsql {
+      BEGIN;
-    INSERT OR ABORT INTO tbl values (2, 2, 3);
+      INSERT INTO tbl values (1, 2, 3);
-  }
+      SELECT * from tbl;
-} {1 {column a is not unique}}
+    }
-do_test trigger2-6.1c {
+  } {1 2 3}
+  do_test trigger2-6.1b {
+    catchsql {
+      INSERT OR ABORT INTO tbl values (2, 2, 3);
+    }
+  } {1 {column a is not unique}}
+  do_test trigger2-6.1c {
+    execsql {
+      SELECT * from tbl;
+    }
+  } {1 2 3}
+  do_test trigger2-6.1d {
+    catchsql {
+      INSERT OR FAIL INTO tbl values (2, 2, 3);
+    }
+  } {1 {column a is not unique}}
+  do_test trigger2-6.1e {
+    execsql {
+      SELECT * from tbl;
+    }
+  } {1 2 3 2 2 3}
+  do_test trigger2-6.1f {
+    execsql {
+      INSERT OR REPLACE INTO tbl values (2, 2, 3);
+      SELECT * from tbl;
+    }
+  } {1 2 3 2 0 0}
+  do_test trigger2-6.1g {
+    catchsql {
+      INSERT OR ROLLBACK INTO tbl values (3, 2, 3);
+    }
+  } {1 {column a is not unique}}
+  do_test trigger2-6.1h {
+    execsql {
+      SELECT * from tbl;
+    }
+  } {}
+  execsql {DELETE FROM tbl}
+  
+  
+  # Handling of ON CONFLICT by UPDATE statements inside triggers
   execsql {
-    SELECT * from tbl;
+    INSERT INTO tbl values (4, 2, 3);
+    INSERT INTO tbl values (6, 3, 4);
+    CREATE TRIGGER au_tbl AFTER UPDATE ON tbl BEGIN
+      UPDATE OR IGNORE tbl SET a = new.a, c = 10;
+    END;
   }
-} {1 2 3}
+  do_test trigger2-6.2a {
-do_test trigger2-6.1d {
+    execsql {
-  catchsql {
+      BEGIN;
-    INSERT OR FAIL INTO tbl values (2, 2, 3);
+      UPDATE tbl SET a = 1 WHERE a = 4;
-  }
+      SELECT * from tbl;
-} {1 {column a is not unique}}
+    }
-do_test trigger2-6.1e {
+  } {1 2 10 6 3 4}
+  do_test trigger2-6.2b {
+    catchsql {
+      UPDATE OR ABORT tbl SET a = 4 WHERE a = 1;
+    }
+  } {1 {column a is not unique}}
+  do_test trigger2-6.2c {
+    execsql {
+      SELECT * from tbl;
+    }
+  } {1 2 10 6 3 4}
+  do_test trigger2-6.2d {
+    catchsql {
+      UPDATE OR FAIL tbl SET a = 4 WHERE a = 1;
+    }
+  } {1 {column a is not unique}}
+  do_test trigger2-6.2e {
+    execsql {
+      SELECT * from tbl;
+    }
+  } {4 2 10 6 3 4}
+  do_test trigger2-6.2f.1 {
+    execsql {
+      UPDATE OR REPLACE tbl SET a = 1 WHERE a = 4;
+      SELECT * from tbl;
+    }
+  } {1 3 10}
+  do_test trigger2-6.2f.2 {
+    execsql {
+      INSERT INTO tbl VALUES (2, 3, 4);
+      SELECT * FROM tbl;
+    }
+  } {1 3 10 2 3 4}
+  do_test trigger2-6.2g {
+    catchsql {
+      UPDATE OR ROLLBACK tbl SET a = 4 WHERE a = 1;
+    }
+  } {1 {column a is not unique}}
+  do_test trigger2-6.2h {
+    execsql {
+      SELECT * from tbl;
+    }
+  } {4 2 3 6 3 4}
   execsql {
-    SELECT * from tbl;
+    DROP TABLE tbl;
   }
-} {1 2 3 2 2 3}
+} ; # ifcapable conflict
-do_test trigger2-6.1f {
-  execsql {
-    INSERT OR REPLACE INTO tbl values (2, 2, 3);
-    SELECT * from tbl;
-  }
-} {1 2 3 2 0 0}
-do_test trigger2-6.1g {
-  catchsql {
-    INSERT OR ROLLBACK INTO tbl values (3, 2, 3);
-  }
-} {1 {column a is not unique}}
-do_test trigger2-6.1h {
-  execsql {
-    SELECT * from tbl;
-  }
-} {}
-execsql {DELETE FROM tbl}
-
-
-# Handling of ON CONFLICT by UPDATE statements inside triggers
-execsql {
-  INSERT INTO tbl values (4, 2, 3);
-  INSERT INTO tbl values (6, 3, 4);
-  CREATE TRIGGER au_tbl AFTER UPDATE ON tbl BEGIN
-    UPDATE OR IGNORE tbl SET a = new.a, c = 10;
-  END;
-}
-do_test trigger2-6.2a {
-  execsql {
-    BEGIN;
-    UPDATE tbl SET a = 1 WHERE a = 4;
-    SELECT * from tbl;
-  }
-} {1 2 10 6 3 4}
-do_test trigger2-6.2b {
-  catchsql {
-    UPDATE OR ABORT tbl SET a = 4 WHERE a = 1;
-  }
-} {1 {column a is not unique}}
-do_test trigger2-6.2c {
-  execsql {
-    SELECT * from tbl;
-  }
-} {1 2 10 6 3 4}
-do_test trigger2-6.2d {
-  catchsql {
-    UPDATE OR FAIL tbl SET a = 4 WHERE a = 1;
-  }
-} {1 {column a is not unique}}
-do_test trigger2-6.2e {
-  execsql {
-    SELECT * from tbl;
-  }
-} {4 2 10 6 3 4}
-do_test trigger2-6.2f.1 {
-  execsql {
-    UPDATE OR REPLACE tbl SET a = 1 WHERE a = 4;
-    SELECT * from tbl;
-  }
-} {1 3 10}
-do_test trigger2-6.2f.2 {
-  execsql {
-    INSERT INTO tbl VALUES (2, 3, 4);
-    SELECT * FROM tbl;
-  }
-} {1 3 10 2 3 4}
-do_test trigger2-6.2g {
-  catchsql {
-    UPDATE OR ROLLBACK tbl SET a = 4 WHERE a = 1;
-  }
-} {1 {column a is not unique}}
-do_test trigger2-6.2h {
-  execsql {
-    SELECT * from tbl;
-  }
-} {4 2 3 6 3 4}
-execsql {
-  DROP TABLE tbl;
-}
 
 # 7. Triggers on views
 ifcapable view {

test/types3.test

@@ -12,7 +12,7 @@
 # of this file is testing the interaction of SQLite manifest types
 # with Tcl dual-representations.
 #
-# $Id: types3.test,v 1.4 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: types3.test,v 1.5 2006/01/17 09:35:03 danielk1977 Exp $
 #
 
 set testdir [file dirname $argv0]
@@ -22,23 +22,23 @@ source $testdir/tester.tcl
 do_test types3-1.1 {
   set V {}
   append V {}
-  concat [tcl_variable_type V] [execsql {SELECT typeof($::V)}]
+  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
 } {string text}
 
 # A variable with an integer representation comes in as INTEGER
 do_test types3-1.2 {
   set V [expr {1+2}]
-  concat [tcl_variable_type V] [execsql {SELECT typeof($::V)}]
+  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
 } {int integer}
 do_test types3-1.3 {
   set V [expr {1+123456789012345}]
-  concat [tcl_variable_type V] [execsql {SELECT typeof($::V)}]
+  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
 } {wideInt integer}
 
 # A double variable comes in as REAL
 do_test types3-1.4 {
   set V [expr {1.0+1}]
-  concat [tcl_variable_type V] [execsql {SELECT typeof($::V)}]
+  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
 } {double real}
 
 # A byte-array variable comes in a BLOB if it has no string representation
@@ -46,12 +46,12 @@ do_test types3-1.4 {
 #
 do_test types3-1.5 {
   set V [binary format a3 abc]
-  concat [tcl_variable_type V] [execsql {SELECT typeof($::V)}]
+  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
 } {bytearray blob}
 do_test types3-1.6 {
   set V "abc"
   binary scan $V a3 x
-  concat [tcl_variable_type V] [execsql {SELECT typeof($::V)}]
+  concat [tcl_variable_type V] [execsql {SELECT typeof(:V)}]
 } {bytearray text}
 
 # Check to make sure return values are of the right types.

test/where2.test

@@ -12,7 +12,7 @@
 # focus of this file is testing the use of indices in WHERE clauses
 # based on recent changes to the optimizer.
 #
-# $Id: where2.test,v 1.7 2006/01/16 16:24:25 danielk1977 Exp $
+# $Id: where2.test,v 1.8 2006/01/17 09:35:03 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -29,7 +29,11 @@ do_test where2-1.0 {
     set x [expr {int(log($i)/log(2))}]
     set y [expr {$i*$i + 2*$i + 1}]
     set z [expr {$x+$y}]
-    execsql {INSERT INTO t1 VALUES($::w,$::x,$::y,$::z)}
+    ifcapable tclvar {
+      execsql {INSERT INTO t1 VALUES($::w,$::x,$::y,$::z)}
+    } else {
+      execsql {INSERT INTO t1 VALUES(:w,:x,:y,:z)}
+    }
   }
   execsql {
     CREATE UNIQUE INDEX i1w ON t1(w);