mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-25 20:14:21 +01:00
016b815b59
Both () and = variants covered. It is important to make sure that the transaction is a read transaction, so we cannot hide all that logic inside update_pragma, and have to make our decision before that.
35 lines
676 B
Tcl
Executable File
35 lines
676 B
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_execsql_test pragma-cache-size {
|
|
PRAGMA cache_size
|
|
} {-2000}
|
|
|
|
do_execsql_test pragma-update-journal-mode-wal {
|
|
PRAGMA journal_mode=WAL
|
|
} {wal}
|
|
|
|
do_execsql_test pragma-table-info-equal-syntax {
|
|
PRAGMA table_info=sqlite_schema
|
|
} {0|type|TEXT|0||0
|
|
1|name|TEXT|0||0
|
|
2|tbl_name|TEXT|0||0
|
|
3|rootpage|INT|0||0
|
|
4|sql|TEXT|0||0
|
|
}
|
|
|
|
do_execsql_test pragma-table-info-call-syntax {
|
|
PRAGMA table_info(sqlite_schema)
|
|
} {0|type|TEXT|0||0
|
|
1|name|TEXT|0||0
|
|
2|tbl_name|TEXT|0||0
|
|
3|rootpage|INT|0||0
|
|
4|sql|TEXT|0||0
|
|
}
|
|
|
|
do_execsql_test pragma-table-info-invalid-table {
|
|
PRAGMA table_info=pekka
|
|
} {}
|