sqlite source (unix build) added to libraries

1 files changed, 59 insertions, 0 deletions

diff --git a/libraries/sqlite/unix/sqlite-3.5.1/test/exclusive3.test b/libraries/sqlite/unix/sqlite-3.5.1/test/exclusive3.test
new file mode 100644
index 0000000..941f61b
--- /dev/null
+++ b/libraries/sqlite/unix/sqlite-3.5.1/test/exclusive3.test
@@ -0,0 +1,59 @@
+# 2007 March 26
+#
+# 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 
+# exclusive access mode enabled.
+#
+# $Id: exclusive3.test,v 1.3 2007/03/30 16:01:55 drh 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