Run some malloc() tests with exclusive-access mode. (CVS 3720)

FossilOrigin-Name: 9ebba469023723652c4dbba3d9982a64a1fb144f

manifest

@@ -1,5 +1,5 @@
-C Discard\sthe\spager-cache\swhen\sthe\spage-size\sis\schanged.\s(CVS\s3719)
-D 2007-03-26T15:46:01
+C Run\ssome\smalloc()\stests\swith\sexclusive-access\smode.\s(CVS\s3720)
+D 2007-03-26T16:13:59
 F Makefile.in 1fe3d0b46e40fd684e1e61f8e8056cefed16de9f
 F Makefile.linux-gcc 2d8574d1ba75f129aba2019f0b959db380a90935
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -201,6 +201,7 @@ F test/enc2.test 45710bacfa9df29720bc84c067dfdf8c8ddfb797
 F test/enc3.test 890508efff6677345e93bf2a8adb0489b30df030
 F test/exclusive.test 83871f52ab1015dc1bfbf86b96e2ece29094d129
 F test/exclusive2.test 187993598a83257f4a1126a40d89144c01965500
+F test/exclusive3.test 278bc5107b2f64c2594b2109e4edbfd4458e5851
 F test/expr.test c78843f730ccbe973d0c2ad1c99978f936893131
 F test/fkey1.test 153004438d51e6769fb1ce165f6313972d6263ce
 F test/format4.test bf3bed3b13c63abfb3cfec232597a319a31d0bcc
@@ -440,7 +441,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P ab53f5086334ea2f6c20c8f9d043baff39fae8d7
-R ab0471b994821d6f6d3d3075747999b9
+P e4209f7193d160709b0d8b5cd358df5649a97dc0
+R d6089bae50157e190b0888bc4ee1e4a7
 U danielk1977
-Z 1aa32bb75b01dd94bb830b6ed37ad984
+Z 0b13e768ea28ec8d66c37ace7677a338

manifest.uuid

@@ -1 +1 @@
-e4209f7193d160709b0d8b5cd358df5649a97dc0
+9ebba469023723652c4dbba3d9982a64a1fb144f

test/exclusive3.test

@@ -0,0 +1,60 @@
+# 2001 September 15
+#
+# 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 runs the tests in the file ioerr.test with auto-vacuum enabled
+# databases.
+#
+# $Id: exclusive3.test,v 1.1 2007/03/26 16:13:59 danielk1977 Exp $
+
+set testdir [file dirname $argv0]
+source $testdir/tester.tcl
+
+ifcapable {!pager_pragmas} {
+  finish_test
+  return
+}
+
+rename finish_test really_finish_test2
+proc finish_test {} {}
+set ISQUICK 1
+
+rename sqlite3 real_sqlite3
+proc sqlite3 {args} {
+  set r [eval "real_sqlite3 $args"]
+  if { [llength $args] == 2 } {
+    [lindex $args 0] eval {pragma locking_mode = exclusive}
+  }
+  set r
+}
+
+rename do_test really_do_test
+proc do_test {args} {
+  set sc [concat really_do_test "exclusive-[lindex $args 0]" \
+      [lrange $args 1 end]]
+  eval $sc
+}
+
+#source $testdir/rollback.test
+#source $testdir/select1.test
+#source $testdir/select2.test
+
+source $testdir/malloc.test
+#source $testdir/ioerr.test
+
+
+rename sqlite3 ""
+rename real_sqlite3 sqlite3
+rename finish_test ""
+rename really_finish_test2 finish_test
+rename do_test ""
+rename really_do_test do_test
+finish_test
+