Index: third_party/sqlite/src/test/oserror.test |
diff --git a/third_party/sqlite/src/test/oserror.test b/third_party/sqlite/src/test/oserror.test |
index 2d3a24a8f54ee8d669330f003b670333ccb32404..40d2966bcca57409fdb25aeb58375261c9a4d6d3 100644 |
--- a/third_party/sqlite/src/test/oserror.test |
+++ b/third_party/sqlite/src/test/oserror.test |
@@ -51,6 +51,7 @@ proc do_re_test {tn script expression} { |
# a call to getcwd() may fail if there are no free file descriptors. So |
# an error may be reported for either open() or getcwd() here. |
# |
+puts "Possible valgrind error about invalid file descriptor follows:" |
do_test 1.1.1 { |
set ::log [list] |
list [catch { |
@@ -96,23 +97,25 @@ do_re_test 1.4.2 { lindex $::log 0 } {^os_unix.c:\d*: \(\d+\) open\(.*test.db\) |
#-------------------------------------------------------------------------- |
# Tests oserror-1.* test failures in the unlink() system call. |
# |
-do_test 2.1.1 { |
- set ::log [list] |
- file mkdir test.db-wal |
- forcedelete test.db |
- list [catch { |
- sqlite3 dbh test.db |
- execsql { SELECT * FROM sqlite_master } dbh |
- } msg] $msg |
-} {1 {disk I/O error}} |
- |
-do_re_test 2.1.2 { |
- lindex $::log 0 |
-} {^os_unix.c:\d+: \(\d+\) unlink\(.*test.db-wal\) - } |
-do_test 2.1.3 { |
- catch { dbh close } |
- forcedelete test.db-wal |
-} {} |
+ifcapable wal { |
+ do_test 2.1.1 { |
+ set ::log [list] |
+ file mkdir test.db-wal |
+ forcedelete test.db |
+ list [catch { |
+ sqlite3 dbh test.db |
+ execsql { SELECT * FROM sqlite_master } dbh |
+ } msg] $msg |
+ } {1 {disk I/O error}} |
+ |
+ do_re_test 2.1.2 { |
+ lindex $::log 0 |
+ } {^os_unix.c:\d+: \(\d+\) unlink\(.*test.db-wal\) - } |
+ do_test 2.1.3 { |
+ catch { dbh close } |
+ forcedelete test.db-wal |
+ } {} |
+} |
test_syscall reset |