xref: /sqlite-3.40.0/test/zeroblobfault.test (revision a32536b4) 
1*a32536b4Sdan# 2021 November 8
2*a32536b4Sdan#
3*a32536b4Sdan# The author disclaims copyright to this source code.  In place of
4*a32536b4Sdan# a legal notice, here is a blessing:
5*a32536b4Sdan#
6*a32536b4Sdan#    May you do good and not evil.
7*a32536b4Sdan#    May you find forgiveness for yourself and forgive others.
8*a32536b4Sdan#    May you share freely, never taking more than you give.
9*a32536b4Sdan#
10*a32536b4Sdan#***********************************************************************
11*a32536b4Sdan#
12*a32536b4Sdan#
13*a32536b4Sdan
14*a32536b4Sdanset testdir [file dirname $argv0]
15*a32536b4Sdansource $testdir/tester.tcl
16*a32536b4Sdan
17*a32536b4Sdanset testprefix zeroblobfault
18*a32536b4Sdanset quoted_res [db one { SELECT quote(zeroblob(2000)) }]
19*a32536b4Sdan
20*a32536b4Sdando_faultsim_test 1 -prep {
21*a32536b4Sdan  sqlite3 db test.db
22*a32536b4Sdan} -body {
23*a32536b4Sdan  execsql { SELECT quote(zeroblob(2000)) }
24*a32536b4Sdan} -test {
25*a32536b4Sdan  faultsim_test_result [list 0 $::quoted_res]
26*a32536b4Sdan}
27*a32536b4Sdan
28*a32536b4Sdanfinish_test
29