# 2005 December 19 2005## The author disclaims copyright to this source code.  In place of# a legal notice, here is a blessing:##    May you do good and not evil.#    May you find forgiveness for yourself and forgive others.#    May you share freely, never taking more than you give.##***********************************************************************# This file implements regression tests for SQLite library.## This file implements tests to verify that ticket #1567 is# fixed.  #set testdir [file dirname $argv0]source $testdir/tester.tcldo_test tkt1567-1.1 {  execsql {    CREATE TABLE t1(a TEXT PRIMARY KEY);  }  set bigstr abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ  for {set i 0} {$i<100} {incr i} {    set x [format %5d [expr $i*2]]    set sql "INSERT INTO t1 VALUES('$x-$bigstr')"    execsql $sql  }} {}integrity_check tkt1567-1.2do_test tkt1567-1.3 {  execsql {    BEGIN;    UPDATE t1 SET a = a||'x' WHERE rowid%2==0;  }} {}do_test tkt1567-1.4 {  catchsql {    UPDATE t1 SET a = CASE WHEN rowid<90 THEN substr(a,1,10) ELSE '9999' END;  }} {1 {column a is not unique}}do_test tkt1567-1.5 {  execsql {    COMMIT;  }} {}integrity_check tkt1567-1.6finish_test