mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-17 00:24:21 +01:00
7e65657ab0
e.g. `make test-single TEST=subquery.test` Plus: chmod +x to all tcl tests in testing folder
106 lines
3.5 KiB
Tcl
Executable File
106 lines
3.5 KiB
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-basic-insert {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1);
|
|
select changes();
|
|
} {1}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-multiple-row-insert {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1), (2), (3);
|
|
select changes();
|
|
} {3}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-shows-most-recent {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1), (2), (3);
|
|
insert into temp values (4), (5), (6), (7);
|
|
select changes();
|
|
} {4}
|
|
|
|
|
|
# github.com/tursodatabase/turso/issues/3259
|
|
do_execsql_test_on_specific_db {:memory:} changes-doesnt-track-indexes {
|
|
create table users (id integer primary key, name text, age integer);
|
|
create index idx_name on users(name);
|
|
create unique index idx_name_age on users(name, age);
|
|
insert into users (name, age) values ('Alice', 30),('Mike', 33),('Jim', 22),('Sarah', 44),('Rosa', 11),('Cindy', 36),('Bob', 35),('Charlie', 50);
|
|
UPDATE users SET name = 'young' where age < 40;
|
|
select changes();
|
|
} {6}
|
|
|
|
# https://github.com/tursodatabase/turso/issues/3688
|
|
do_execsql_test_on_specific_db {:memory:} changes-1.69 {
|
|
create table t(id integer primary key, value text);
|
|
insert into t values (1, 'a');
|
|
select changes();
|
|
update t set id = id+10 where id = 1;
|
|
select changes();
|
|
} {1
|
|
1}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-delete {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1), (2), (3), (4), (5);
|
|
delete from temp where t1 > 2;
|
|
select changes();
|
|
} {3}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-update {
|
|
create table temp (t1 integer, t2 text, primary key (t1));
|
|
insert into temp values (1, 'a'), (2, 'b'), (3, 'c'), (4, 'd');
|
|
update temp set t2 = 'updated' where t1 <= 3;
|
|
select changes();
|
|
} {3}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-update-rowid {
|
|
create table temp (t1 integer primary key, t2 text);
|
|
insert into temp values (1, 'a'), (2, 'b'), (3, 'c');
|
|
update temp set t1 = t1 + 10 where t1 = 2;
|
|
select changes();
|
|
} {1}
|
|
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-resets-after-select {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1), (2), (3);
|
|
select * from temp;
|
|
select changes();
|
|
} {1
|
|
2
|
|
3
|
|
3}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-delete-no-match {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1), (2), (3);
|
|
delete from temp where t1 > 100;
|
|
select changes();
|
|
} {0}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-update-no-match {
|
|
create table temp (t1 integer, t2 text, primary key (t1));
|
|
insert into temp values (1, 'a'), (2, 'b');
|
|
update temp set t2 = 'updated' where t1 > 100;
|
|
select changes();
|
|
} {0}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-on-delete-all {
|
|
create table temp (t1 integer, primary key (t1));
|
|
insert into temp values (1), (2), (3), (4), (5), (6);
|
|
delete from temp;
|
|
select changes();
|
|
} {6}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} changes-mixed-operations {
|
|
create table temp (t1 integer, t2 text, primary key (t1));
|
|
insert into temp values (1, 'a'), (2, 'b'), (3, 'c');
|
|
update temp set t2 = 'updated' where t1 <= 2;
|
|
delete from temp where t1 = 1;
|
|
select changes();
|
|
} {1}
|