AryaWu/sqlite

1 2# 2011 December 133#4# The author disclaims copyright to this source code.  In place of5# a legal notice, here is a blessing:6#7#    May you do good and not evil.8#    May you find forgiveness for yourself and forgive others.9#    May you share freely, never taking more than you give.10#11#***********************************************************************12#13# This file contains tests for error (IO, OOM etc.) handling when using14# the multiplexor extension with 8.3 filenames.15#16 17set testdir [file dirname $argv0]18source $testdir/tester.tcl19source $testdir/malloc_common.tcl20set ::testprefix multiplex321 22ifcapable !8_3_names {23  puts -nonewline "SQLite compiled without SQLITE_ENABLE_8_3_NAMES. "24  puts            "Skipping tests multiplex3-*."25  finish_test26  return27}28 29db close30sqlite3_shutdown31sqlite3_config_uri 132autoinstall_test_functions33 34sqlite3_multiplex_initialize "" 135 36proc destroy_vfs_stack {} {37  generic_unregister stack38  sqlite3_multiplex_shutdown39}40 41proc multiplex_delete_db {} {42  forcedelete test.db43  for {set i 1} {$i <= 1000} {incr i} {44    forcedelete test.[format %03d $i]45  }46}47 48# Procs to save and restore the current muliplexed database.49#50proc multiplex_save_db {} {51  foreach f [glob -nocomplain sv_test.*] { forcedelete $f }52  foreach f [glob -nocomplain test.*]    { forcecopy $f "sv_$f" }53}54proc multiplex_restore_db {} {55  foreach f [glob -nocomplain test.*]    {forcedelete $f}56  foreach f [glob -nocomplain sv_test.*] {forcecopy $f [string range $f 3 end]} }57 58proc setup_and_save_db {} {59  multiplex_delete_db60  sqlite3 db file:test.db?8_3_names=161  sqlite3_multiplex_control db main chunk_size [expr 256*1024]62  execsql {63    CREATE TABLE t1(a PRIMARY KEY, b);64    INSERT INTO t1 VALUES(randomblob(15), randomblob(2000));65    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    --   266    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    --   467    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    --   868    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    --  1669    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    --  3270    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    --  6471    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    -- 12872    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    -- 25673    INSERT INTO t1 SELECT randomblob(15), randomblob(2000) FROM t1;    -- 51274  }75  set ::cksum1 [execsql {SELECT md5sum(a, b) FROM t1 ORDER BY a}]76  db close77  multiplex_save_db78}79 80do_test 1.0 { setup_and_save_db } {}81do_faultsim_test 1 -prep {82  multiplex_restore_db83  sqlite3 db file:test.db?8_3_names=184  sqlite3_multiplex_control db main chunk_size [expr 256*1024]85  execsql { PRAGMA journal_mode = truncate }86  execsql { PRAGMA synchronous = off }87} -body {88  execsql {89    UPDATE t1 SET a=randomblob(12), b=randomblob(1500) WHERE (rowid%32)=090  }91} -test {92  faultsim_test_result {0 {}}93  if {$testrc!=0} {94    set cksum2 [execsql {SELECT md5sum(a, b) FROM t1 ORDER BY a}]95    if {$cksum2 != $::cksum1} { error "data mismatch" }96  }97}98 99#-------------------------------------------------------------------------100# The following tests verify that hot-journal rollback works. As follows:101#102#   1. Create a large database.103#   2. Set the pager cache to be very small.104#   3. Open a transaction. 105#   4. Run the following 100 times:106#      a. Update a row.107#      b. Copy all files on disk to a new db location, including the journal.108#      c. Verify that the new db can be opened and that the content matches109#         the database created in step 1 (proving the journal was rolled110#         back).111 112do_test 2.0 { 113  setup_and_save_db114  multiplex_restore_db115  sqlite3 db file:test.db?8_3_names=1116  execsql { PRAGMA cache_size = 10 }117  execsql { BEGIN }118} {}119 120for {set iTest 1} {$iTest<=100} {incr iTest} {121  do_test 2.$iTest {122    execsql { 123      UPDATE t1 SET a=randomblob(12), b=randomblob(1400) WHERE rowid=5*$iTest124    }125    foreach f [glob -nocomplain test.*] {forcecopy $f "xx_$f"}126    sqlite3 db2 file:xx_test.db?8_3_names=1127    execsql {SELECT md5sum(a, b) FROM t1 ORDER BY a} db2128  } $::cksum1129 130  db2 close131}132catch { db close }133 134 135do_test 3.0 { setup_and_save_db } {}136do_faultsim_test 3 -faults ioerr-trans* -prep {137 138  forcedelete test2.db139  set fd [open test2.wal w]140  seek $fd 4095141  puts -nonewline $fd x142  close $fd143 144  multiplex_restore_db145  sqlite3 db file:test.db?8_3_names=1146  sqlite3 db2 file:test2.db?8_3_names=1147  sqlite3_multiplex_control db main chunk_size [expr 256*1024]148  sqlite3_multiplex_control db2 main chunk_size [expr 256*1024]149} -body {150  sqlite3_backup B db2 main db main151  B step 100000152  set rc [B finish]153  if { [string match SQLITE_IOERR_* $rc] } {error "disk I/O error"}154  set rc155} -test {156  faultsim_test_result {0 SQLITE_OK}157  if {$testrc==0} {158    set cksum2 [execsql {SELECT md5sum(a, b) FROM t1 ORDER BY a} db2]159    if {$cksum2 != $::cksum1} { error "data mismatch" }160  }161  catch { B finish }162  catch { db close }163  catch { db2 close }164}165 166catch { db close }167sqlite3_multiplex_shutdown168finish_test169