test/valuesfault.test

   1 # 2024 March 3
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 # This file implements regression tests for SQLite library.
  12 #
  13
  14 set testdir [file dirname $argv0]
  15 source $testdir/tester.tcl
  16 set testprefix valuesfault
  17 source $testdir/malloc_common.tcl
  18
  19
  20 do_execsql_test 1.0 {
  21   CREATE TABLE x1(a, b, c);
  22 }
  23 faultsim_save_and_close
  24
  25 do_faultsim_test 1 -prep {
  26   faultsim_restore_and_reopen
  27   sqlite3_limit db SQLITE_LIMIT_COMPOUND_SELECT 2
  28 } -body {
  29   execsql {
  30     INSERT INTO x1 VALUES(1, 1, 1), (2, 2, 2), (3, 3, 3), (4, 4, 4);
  31   }
  32 } -test {
  33   faultsim_test_result {0 {}}
  34 }
  35
  36
  37 finish_test