test/shell7.test

   1 # 2016 December 17
   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 # TESTRUNNER: shell
  12 #
  13 # Test the readfile() function built into the shell tool. Specifically,
  14 # that it does not truncate the blob read at the first embedded 0x00
  15 # byte.
  16 #
  17
  18 set testdir [file dirname $argv0]
  19 source $testdir/tester.tcl
  20 set testprefix shell7
  21 set CLI [test_find_cli]
  22
  23
  24 do_execsql_test 1.0 {
  25   CREATE TABLE f1(tn INTEGER PRIMARY KEY, x BLOB);
  26   CREATE TABLE f2(tn INTEGER PRIMARY KEY, x BLOB);
  27
  28   INSERT INTO f1 VALUES(1, X'01020304');
  29   INSERT INTO f1 VALUES(2, X'01000304');
  30   INSERT INTO f1 VALUES(3, randomblob(200));
  31 }
  32
  33 foreach {tn l x} [db eval { SELECT tn, length(x) AS l, x FROM f1 }] {
  34   forcedelete shell7_test.bin
  35   set fd [open shell7_test.bin w]
  36   fconfigure $fd -encoding binary
  37   fconfigure $fd -translation binary
  38   puts -nonewline $fd $x
  39   close $fd
  40
  41   do_test 1.$tn.1 { file size shell7_test.bin } $l
  42   do_test 1.$tn.2 {
  43     catchcmd test.db "INSERT INTO f2 VALUES($tn, readfile('shell7_test.bin'));"
  44   } {0 {}}
  45
  46   do_execsql_test 1.$tn.3 {
  47     SELECT (SELECT x FROM f1 WHERE tn=1)==(SELECT x FROM f2 WHERE tn=1)
  48   } {1}
  49 }
  50
  51
  52
  53 finish_test