mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-24 11:34:21 +01:00
5251f7a2f8
The current scheme of combining SQL statements corrupts JSON by dropping the curly braces. Fix the issue by passing the SQL statement almost as-is to the database. However, for ".schema" to work, we need to trim extra whitespace.
48 lines
948 B
Tcl
Executable File
48 lines
948 B
Tcl
Executable File
#!/usr/bin/env tclsh
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
|
|
do_execsql_test schema {
|
|
.schema
|
|
} {{CREATE TABLE users (
|
|
id INTEGER PRIMARY KEY,
|
|
first_name TEXT,
|
|
last_name TEXT,
|
|
email TEXT,
|
|
phone_number TEXT,
|
|
address TEXT,
|
|
city TEXT,
|
|
state TEXT,
|
|
zipcode TEXT,
|
|
age INTEGER
|
|
);
|
|
CREATE TABLE products (
|
|
id INTEGER PRIMARY KEY,
|
|
name TEXT,
|
|
price REAL
|
|
);}}
|
|
|
|
do_execsql_test schema-1 {
|
|
.schema users
|
|
} {{CREATE TABLE users (
|
|
id INTEGER PRIMARY KEY,
|
|
first_name TEXT,
|
|
last_name TEXT,
|
|
email TEXT,
|
|
phone_number TEXT,
|
|
address TEXT,
|
|
city TEXT,
|
|
state TEXT,
|
|
zipcode TEXT,
|
|
age INTEGER
|
|
);}}
|
|
|
|
do_execsql_test schema-2 {
|
|
.schema products
|
|
} {{CREATE TABLE products (
|
|
id INTEGER PRIMARY KEY,
|
|
name TEXT,
|
|
price REAL
|
|
);}}
|