SQLite4  Artifact [5cb589bb64]

Artifact 5cb589bb64ebe0860a1f5ba6f20e4b7ae402b4c4:

• File test/log_common.tcl — part of check-in [960afb3114] at 2012-06-02 18:55:20 on branch trunk — Fix some of the lsmtest crash recovery tests. Update the code in lsm_log.c so that if synchronous=FULL, each transaction in the log file is stored on its own set of disk sectors. (user: dan size: 917)

# 2012 June 02
#
# The author disclaims copyright to this source code.  In place of
# a legal notice, here is a blessing:
#
#    May you do good and not evil.
#    May you find forgiveness for yourself and forgive others.
#    May you share freely, never taking more than you give.
#
#***********************************************************************
#



proc do_filesize_test {tn dbsz logsz} {
  uplevel [list do_test $tn { 
      list [file size test.db] [file size test.db-log] 
  } [list $dbsz $logsz]]
}

proc copy_db_files {from to} {
  forcecopy $from $to
  forcecopy $from-log $to-log
}

proc copy_and_recover {sql} {
  catch {db2 close}
  copy_db_files test.db test.db2
  sqlite4 db2 test.db2
  set res [execsql $sql db2]
  db2 close
  set res
}

proc do_recover_test {tn sql {res {}}} {
  set R [list]
  foreach r $res {lappend R $r}
  do_test $tn [list uplevel #0 [list copy_and_recover $sql]] $R
}