diff options
Diffstat (limited to 'test/walhook.test')
| -rw-r--r-- | test/walhook.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/test/walhook.test b/test/walhook.test index dbda082cb..631ec834e 100644 --- a/test/walhook.test +++ b/test/walhook.test @@ -19,13 +19,10 @@ set testdir [file dirname $argv0] source $testdir/tester.tcl +source $testdir/wal_common.tcl ifcapable !wal {finish_test ; return } -proc log_file_size {nFrame pgsz} { - expr {24 + ($pgsz+24)*$nFrame} -} - set ::wal_hook [list] proc wal_hook {zDb nEntry} { lappend ::wal_hook $zDb $nEntry @@ -104,7 +101,7 @@ foreach {tn sql dbpages logpages} { do_test walhook-2.$tn { execsql $sql list [file size test.db] [file size test.db-wal] - } [list [expr $dbpages*1024] [log_file_size $logpages 1024]] + } [list [expr $dbpages*1024] [wal_file_size $logpages 1024]] } catch { db2 close } |