mirror of
https://gitlab.com/cznic/sqlite.git
synced 2025-02-16 21:55:55 +00:00
26 lines
486 B
Plaintext
26 lines
486 B
Plaintext
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
set ::testprefix tkt-c48d99d690
|
|
|
|
do_test 1.0 {
|
|
execsql {
|
|
CREATE TABLE t1(a, b);
|
|
CREATE TABLE t2(a, b);
|
|
INSERT INTO t1 VALUES('one' , 1);
|
|
INSERT INTO t1 VALUES('two' , 5);
|
|
INSERT INTO t1 VALUES('two' , 2);
|
|
INSERT INTO t1 VALUES('three', 3);
|
|
PRAGMA count_changes = 1;
|
|
}
|
|
} {}
|
|
|
|
do_test 1.1 {
|
|
execsql { INSERT INTO t2 SELECT * FROM t1 }
|
|
} {4}
|
|
|
|
do_test 1.2 { execsql VACUUM } {}
|
|
|
|
finish_test
|