test/cksumvfs.test

   1 # 2024 March 19
   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 set testdir [file dirname $argv0]
  14 source $testdir/tester.tcl
  15 set testprefix cksumvfs
  16
  17 sqlite3_register_cksumvfs
  18 db close
  19 sqlite3 db test.db
  20 file_control_reservebytes db 8
  21
  22 set text [db one "SELECT hex(randomblob(5000))"]
  23
  24 do_execsql_test 1.0 {
  25   CREATE TABLE t1(a INTEGER PRIMARY KEY, b);
  26   INSERT INTO t1 VALUES(1, $text);
  27 }
  28
  29 do_execsql_test 1.1 {
  30   SELECT * FROM t1;
  31 } [list 1 $text]
  32
  33 finish_test