test/zeroblobfault.test

   1 # 2021 November 8
   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 #
  12 #
  13
  14 set testdir [file dirname $argv0]
  15 source $testdir/tester.tcl
  16
  17 set testprefix zeroblobfault
  18 set quoted_res [db one { SELECT quote(zeroblob(2000)) }]
  19
  20 do_faultsim_test 1 -prep {
  21   sqlite3 db test.db
  22 } -body {
  23   execsql { SELECT quote(zeroblob(2000)) }
  24 } -test {
  25   faultsim_test_result [list 0 $::quoted_res]
  26 }
  27
  28 finish_test