Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Changes to test/journal2.test.

    43     43     # IO error to every attempt to modify the file-system. Otherwise, return
    44     44     # SQLITE_OK.
    45     45     #
    46     46     if {[info exists ::tvfs_error_on_write]} {
    47     47       if {[lsearch {xDelete xWrite xTruncate} $method]>=0} {
    48     48         return SQLITE_IOERR 
    49     49       }
    50         -    return SQLITE_OK
    51     50     }
    52     51   
    53     52     # The rest of this command only deals with xOpen(), xClose() and xDelete()
    54     53     # operations on journal files. If this invocation does not represent such
    55     54     # an operation, return with no further ado.
    56     55     #
    57     56     set f [file tail $filename]
................................................................................
    66     65     # one ore more open handles, return an error. The code in test_vfs.c
    67     66     # will not invoke the xDelete method of the "real" VFS in this case.
    68     67     #
    69     68     if {[info exists ::open_journals($f)]==0} { set ::open_journals($f) 0 }
    70     69     switch -- $method {
    71     70       xOpen   { incr ::open_journals($f) +1 }
    72     71       xClose  { incr ::open_journals($f) -1 }
    73         -    xDelete { if {$::open_journals($f)>0} { puts EEE;return SQLITE_IOERR } }
           72  +    xDelete { if {$::open_journals($f)>0} { return SQLITE_IOERR } }
    74     73     }
    75     74   
    76     75     return ""
    77     76   }
    78     77   
    79     78   
    80     79   do_test journal2-1.1 {
................................................................................
   216    215     do_test journal2-2.3 {
   217    216       expr {[file size test.db-journal] > 512}
   218    217     } {1}
   219    218     do_test journal2-2.3 {
   220    219       set ::oplog [list]
   221    220       execsql { PRAGMA journal_mode = WAL }
   222    221       set ::oplog
   223         -  } {xClose test.db-journal xDelete test.db-journal}
          222  +  } [list                                              \
          223  +      xClose test.db-journal                           \
          224  +      xOpen test.db-journal xClose test.db-journal     \
          225  +      xOpen test.db-journal xClose test.db-journal     \
          226  +      xDelete test.db-journal                          \
          227  +  ]
   224    228     db close
   225    229   }
   226    230   
   227    231   tvfs delete
   228    232   finish_test
   229    233