Index: third_party/sqlite/src/test/exclusive.test |
diff --git a/third_party/sqlite/src/test/exclusive.test b/third_party/sqlite/src/test/exclusive.test |
index 2c1b35034855727ba5817a5f6a5eca3e772d3c06..33cd667d27af9c55956c4ab7167019e32531c72d 100644 |
--- a/third_party/sqlite/src/test/exclusive.test |
+++ b/third_party/sqlite/src/test/exclusive.test |
@@ -212,7 +212,7 @@ do_test exclusive-2.8 { |
ROLLBACK; |
} db2 |
} {} |
-sqlite3_soft_heap_limit $soft_limit |
+sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit) |
do_test exclusive-2.9 { |
# Write the database to establish the exclusive lock with connection 'db. |
@@ -253,6 +253,11 @@ db2 close |
# from being inspected externally. |
# |
if {$tcl_platform(platform) != "windows"} { |
+ |
+ # Return a list of two booleans (either 0 or 1). The first is true |
+ # if the named file exists. The second is true only if the file |
+ # exists and the first 28 bytes contain at least one non-zero byte. |
+ # |
proc filestate {fname} { |
set exists 0 |
set content 0 |
@@ -263,6 +268,7 @@ if {$tcl_platform(platform) != "windows"} { |
} |
list $exists $content |
} |
+ |
do_test exclusive-3.0 { |
filestate test.db-journal |
} {0 0} |
@@ -390,7 +396,7 @@ do_test exclusive-4.5 { |
# longer active. |
# |
db close |
-sqlite db test.db |
+sqlite3 db test.db |
# if we're using proxy locks, we use 3 filedescriptors for a db |
# that is open but NOT writing changes, normally |