52 lines
1.2 KiB
Plaintext
52 lines
1.2 KiB
Plaintext
|
# 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
|