# 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.tcl

do_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.2

do_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.6

finish_test