Overview
| SHA1 Hash: | cd8067238439638bcfd3966d55d2a3990f36d702 |
|---|---|
| Date: | 2013-02-26 18:54:18 |
| User: | mistachkin |
| Comment: | In the incrvacuum3 test, add missing call to the Tcl close command. |
Tags And Properties
- branch=trunk inherited from [704b122e53]
- sym-trunk inherited from [704b122e53]
Changes
Changes to test/incrvacuum3.test
55 if {$sz>$::sqlite_pending_byte} { 55 if {$sz>$::sqlite_pending_byte} { 56 puts -nonewline $fd2 [read $fd $::sqlite_pending_byte] 56 puts -nonewline $fd2 [read $fd $::sqlite_pending_byte] 57 seek $fd [expr $::sqlite_pending_byte+512] 57 seek $fd [expr $::sqlite_pending_byte+512] 58 seek $fd2 [expr $::sqlite_pending_byte+512] 58 seek $fd2 [expr $::sqlite_pending_byte+512] 59 } 59 } 60 puts -nonewline $fd2 [read $fd] 60 puts -nonewline $fd2 [read $fd] 61 close $fd2 61 close $fd2 > 62 close $fd 62 63 63 # Open "test2.db" and check it is Ok. 64 # Open "test2.db" and check it is Ok. 64 sqlite3 dbcheck test2.db 65 sqlite3 dbcheck test2.db 65 set ret [dbcheck eval { PRAGMA integrity_check }] 66 set ret [dbcheck eval { PRAGMA integrity_check }] 66 dbcheck close 67 dbcheck close 67 set ret 68 set ret 68 } 69 }