mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-26 12:34:22 +01:00
156 lines
7.3 KiB
Tcl
Executable File
156 lines
7.3 KiB
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
source $testdir/sqlite3/tester.tcl
|
|
|
|
do_execsql_test_on_specific_db {:memory:} partial-index-unique-basic {
|
|
CREATE TABLE users (id INTEGER PRIMARY KEY, email TEXT, status TEXT);
|
|
CREATE UNIQUE INDEX idx_active_email ON users(email) WHERE status = 'active';
|
|
INSERT INTO users VALUES (1, 'user@test.com', 'active');
|
|
INSERT INTO users VALUES (2, 'user@test.com', 'inactive');
|
|
INSERT INTO users VALUES (3, 'user@test.com', 'deleted');
|
|
SELECT id, email, status FROM users ORDER BY id;
|
|
} {1|user@test.com|active
|
|
2|user@test.com|inactive
|
|
3|user@test.com|deleted}
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-unique-violation {
|
|
CREATE TABLE users (id INTEGER PRIMARY KEY, email TEXT, status TEXT);
|
|
CREATE UNIQUE INDEX idx_active_email ON users(email) WHERE status = 'active';
|
|
INSERT INTO users VALUES (1, 'user@test.com', 'active');
|
|
INSERT INTO users VALUES (2, 'user@test.com', 'inactive');
|
|
INSERT INTO users VALUES (3, 'user@test.com', 'deleted');
|
|
INSERT INTO users VALUES (4, 'user@test.com', 'active');
|
|
} {UNIQUE constraint failed: idx_active_email.email (19)}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} partial-index-expression-where {
|
|
CREATE TABLE products (id INTEGER PRIMARY KEY, sku TEXT, price INTEGER);
|
|
CREATE UNIQUE INDEX idx_expensive ON products(sku) WHERE price > 100;
|
|
INSERT INTO products VALUES (1, 'ABC123', 50);
|
|
INSERT INTO products VALUES (2, 'ABC123', 150);
|
|
INSERT INTO products VALUES (3, 'XYZ789', 200);
|
|
INSERT INTO products VALUES (4, 'ABC123', 75);
|
|
SELECT id, sku, price FROM products ORDER BY id;
|
|
} {1|ABC123|50
|
|
2|ABC123|150
|
|
3|XYZ789|200
|
|
4|ABC123|75}
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-expensive-violation {
|
|
CREATE TABLE products (id INTEGER PRIMARY KEY, sku TEXT, price INTEGER);
|
|
CREATE UNIQUE INDEX idx_expensive ON products(sku) WHERE price > 100;
|
|
INSERT INTO products VALUES (1, 'ABC123', 50);
|
|
INSERT INTO products VALUES (2, 'ABC123', 150);
|
|
INSERT INTO products VALUES (3, 'XYZ789', 200);
|
|
INSERT INTO products VALUES (4, 'ABC123', 75);
|
|
INSERT INTO products VALUES (5, 'ABC123', 250);
|
|
-- should fail with unique sku where price > 100
|
|
} {UNIQUE constraint failed: idx_expensive.sku (19)}
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-expensive-violation-update {
|
|
CREATE TABLE products (id INTEGER PRIMARY KEY, sku TEXT, price INTEGER);
|
|
CREATE UNIQUE INDEX idx_expensive ON products(sku) WHERE price > 100;
|
|
INSERT INTO products VALUES (1, 'ABC123', 50);
|
|
INSERT INTO products VALUES (2, 'ABC123', 150);
|
|
INSERT INTO products VALUES (3, 'XYZ789', 200);
|
|
INSERT INTO products VALUES (4, 'ABC123', 75);
|
|
UPDATE products SET price = 300 WHERE id = 1;
|
|
-- should fail with unique sku where price > 100
|
|
} {UNIQUE constraint failed: products.sku (19)}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} partial-index-null-where {
|
|
CREATE TABLE items (id INTEGER PRIMARY KEY, code TEXT, category TEXT);
|
|
CREATE UNIQUE INDEX idx_categorized ON items(code) WHERE category IS NOT NULL;
|
|
INSERT INTO items VALUES (1, 'ITEM1', 'electronics');
|
|
INSERT INTO items VALUES (2, 'ITEM1', NULL);
|
|
INSERT INTO items VALUES (3, 'ITEM1', NULL);
|
|
INSERT INTO items VALUES (4, 'ITEM2', 'books');
|
|
SELECT id, code, category FROM items ORDER BY id;
|
|
} {1|ITEM1|electronics
|
|
2|ITEM1|
|
|
3|ITEM1|
|
|
4|ITEM2|books}
|
|
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-function-where {
|
|
CREATE TABLE docs (id INTEGER PRIMARY KEY, title TEXT);
|
|
CREATE UNIQUE INDEX idx_lower_title ON docs(title) WHERE LOWER(title) = title;
|
|
INSERT INTO docs VALUES (1, 'lowercase');
|
|
INSERT INTO docs VALUES (2, 'UPPERCASE');
|
|
INSERT INTO docs VALUES (3, 'lowercase');
|
|
} {UNIQUE constraint failed: idx_lower_title.title (19)}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} partial-index-multiple {
|
|
CREATE TABLE tasks (id INTEGER PRIMARY KEY, name TEXT, priority INTEGER, status TEXT);
|
|
CREATE UNIQUE INDEX idx_urgent ON tasks(name) WHERE priority = 1;
|
|
CREATE UNIQUE INDEX idx_completed ON tasks(name) WHERE status = 'done';
|
|
|
|
INSERT INTO tasks VALUES (1, 'task1', 1, 'open');
|
|
INSERT INTO tasks VALUES (2, 'task1', 2, 'open');
|
|
INSERT INTO tasks VALUES (3, 'task1', 3, 'done');
|
|
INSERT INTO tasks VALUES (4, 'task2', 1, 'done');
|
|
|
|
SELECT id, name, priority, status FROM tasks ORDER BY id;
|
|
} {1|task1|1|open
|
|
2|task1|2|open
|
|
3|task1|3|done
|
|
4|task2|1|done}
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-function-where {
|
|
CREATE TABLE tasks (id INTEGER PRIMARY KEY, name TEXT, priority INTEGER, status TEXT);
|
|
CREATE UNIQUE INDEX idx_urgent ON tasks(name) WHERE priority = 1;
|
|
CREATE UNIQUE INDEX idx_completed ON tasks(name) WHERE status = 'done';
|
|
|
|
INSERT INTO tasks VALUES (1, 'task1', 1, 'open');
|
|
INSERT INTO tasks VALUES (2, 'task1', 2, 'open');
|
|
INSERT INTO tasks VALUES (3, 'task1', 3, 'done');
|
|
INSERT INTO tasks VALUES (4, 'task2', 1, 'done');
|
|
INSERT INTO tasks VALUES (5, 'task1', 1, 'pending');
|
|
-- should fail for unique name where priority = 1
|
|
} {UNIQUE constraint failed: idx_urgent.name (19)}
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-function-where-2 {
|
|
CREATE TABLE tasks (id INTEGER PRIMARY KEY, name TEXT, priority INTEGER, status TEXT);
|
|
CREATE UNIQUE INDEX idx_urgent ON tasks(name) WHERE priority = 1;
|
|
CREATE UNIQUE INDEX idx_completed ON tasks(name) WHERE status = 'done';
|
|
INSERT INTO tasks VALUES (1, 'task1', 1, 'open');
|
|
INSERT INTO tasks VALUES (2, 'task1', 2, 'open');
|
|
INSERT INTO tasks VALUES (3, 'task1', 3, 'done');
|
|
INSERT INTO tasks VALUES (4, 'task2', 1, 'done');
|
|
INSERT INTO tasks VALUES (6, 'task1', 2, 'done');
|
|
-- should fail for unique name where status = 'done'
|
|
} {UNIQUE constraint failed: idx_completed.name (19)}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} partial-index-update-rowid {
|
|
CREATE TABLE rowid_test (id INTEGER PRIMARY KEY, val TEXT, flag INTEGER);
|
|
CREATE UNIQUE INDEX idx_flagged ON rowid_test(val) WHERE flag = 1;
|
|
INSERT INTO rowid_test VALUES (1, 'test', 1);
|
|
INSERT INTO rowid_test VALUES (2, 'test', 0);
|
|
UPDATE rowid_test SET id = 10 WHERE id = 1;
|
|
SELECT id, val, flag FROM rowid_test ORDER BY id;
|
|
} {2|test|0
|
|
10|test|1}
|
|
|
|
do_execsql_test_in_memory_error_content partial-index-update-complex {
|
|
CREATE TABLE complex (id INTEGER PRIMARY KEY, a TEXT, b INTEGER, c TEXT);
|
|
CREATE UNIQUE INDEX idx_complex ON complex(a) WHERE b > 10 AND c = 'active';
|
|
INSERT INTO complex VALUES (1, 'dup', 5, 'active');
|
|
INSERT INTO complex VALUES (2, 'dup', 15, 'inactive');
|
|
INSERT INTO complex VALUES (3, 'dup', 15, 'active');
|
|
INSERT INTO complex VALUES (4, 'dup', 20, 'active');
|
|
} {UNIQUE constraint failed: idx_complex.a (19)}
|
|
|
|
do_execsql_test_on_specific_db {:memory:} partial-index-delete {
|
|
CREATE TABLE products (id INTEGER PRIMARY KEY, sku TEXT, price INTEGER);
|
|
CREATE UNIQUE INDEX idx_expensive ON products(sku) WHERE price > 100;
|
|
INSERT INTO products VALUES (1, 'ABC123', 50);
|
|
INSERT INTO products VALUES (2, 'ABC123', 150);
|
|
INSERT INTO products VALUES (3, 'XYZ789', 200);
|
|
INSERT INTO products VALUES (4, 'ABC123', 75);
|
|
DELETE FROM products WHERE price > 100;
|
|
INSERT INTO products VALUES (5, 'ABC123', 500);
|
|
INSERT INTO products VALUES (6, 'XYZ789', 600);
|
|
SELECT id, sku, price FROM products WHERE price > 100 ORDER BY id;
|
|
} {5|ABC123|500
|
|
6|XYZ789|600}
|