mirror of
https://github.com/aljazceru/turso.git
synced 2025-12-18 17:14:20 +01:00
testing/sqlite3: Improve tester.tcl
Improve tester.tcl by adding stubs so that we can run more of the test suite without the test harness giving up.
This commit is contained in:
Pekka Enberg
@@ -153,6 +153,12 @@ proc exec_sql {sql {db_name ""}} {
|
||||
error "CREATE TABLE not fully supported yet in Limbo"
|
||||
}
|
||||
|
||||
# Special handling for unsupported SQL features - be more forgiving
|
||||
if {[string match "*not supported*" [string tolower $output]]} {
|
||||
# Unsupported feature - just skip silently for now
|
||||
continue
|
||||
}
|
||||
|
||||
# Check if the output contains error indicators
|
||||
if {[string match "*× Parse error*" $output] ||
|
||||
[string match "*error*" [string tolower $output]] ||
|
||||
@@ -178,6 +184,12 @@ proc exec_sql {sql {db_name ""}} {
|
||||
continue
|
||||
}
|
||||
|
||||
# Special handling for unsupported SQL features - be more forgiving
|
||||
if {[string match "*not supported*" [string tolower $clean_error]]} {
|
||||
# Unsupported feature - just skip silently for now
|
||||
continue
|
||||
}
|
||||
|
||||
error $clean_error
|
||||
}
|
||||
append all_output $output
|
||||
@@ -212,6 +224,12 @@ proc exec_sql {sql {db_name ""}} {
|
||||
continue
|
||||
}
|
||||
|
||||
# Special handling for unsupported SQL features - be more forgiving
|
||||
if {[string match "*not supported*" [string tolower $clean_error]]} {
|
||||
# Unsupported feature - just skip silently for now
|
||||
continue
|
||||
}
|
||||
|
||||
error $clean_error
|
||||
}
|
||||
append all_output $output
|
||||
@@ -372,6 +390,31 @@ proc sqlite3 {handle db_file} {
|
||||
# Nothing special needed for external process
|
||||
return
|
||||
}
|
||||
"limit" {
|
||||
# Handle sqlite3_limit command
|
||||
# This is used to get/set runtime limits
|
||||
# For now, just return a reasonable default value
|
||||
set limit_type [lindex $args 0]
|
||||
if {[llength $args] > 1} {
|
||||
# Setting a limit - just ignore for now
|
||||
return [lindex $args 1]
|
||||
} else {
|
||||
# Getting a limit - return defaults based on limit type
|
||||
switch -- $limit_type {
|
||||
SQLITE_LIMIT_COMPOUND_SELECT { return 500 }
|
||||
SQLITE_LIMIT_VDBE_OP { return 25000 }
|
||||
SQLITE_LIMIT_FUNCTION_ARG { return 127 }
|
||||
SQLITE_LIMIT_ATTACHED { return 10 }
|
||||
SQLITE_LIMIT_VARIABLE_NUMBER { return 999 }
|
||||
SQLITE_LIMIT_COLUMN { return 2000 }
|
||||
SQLITE_LIMIT_SQL_LENGTH { return 1000000 }
|
||||
SQLITE_LIMIT_EXPR_DEPTH { return 1000 }
|
||||
SQLITE_LIMIT_LIKE_PATTERN_LENGTH { return 50000 }
|
||||
SQLITE_LIMIT_TRIGGER_DEPTH { return 1000 }
|
||||
default { return 1000000 }
|
||||
}
|
||||
}
|
||||
}
|
||||
"null" {
|
||||
# Set the null value representation
|
||||
# In SQLite TCL interface, this sets what string to use for NULL values
|
||||
@@ -386,6 +429,54 @@ proc sqlite3 {handle db_file} {
|
||||
}
|
||||
return ""
|
||||
}
|
||||
"func" -
|
||||
"function" {
|
||||
# Register a SQL function
|
||||
# Usage: db func name ?options? script
|
||||
# For our simplified implementation, we'll just accept the registration
|
||||
# but won't actually execute the function within SQL
|
||||
set func_name [lindex $args 0]
|
||||
# Store function registration globally for potential future use
|
||||
set proc_name [lindex [info level 0] 0]
|
||||
global ${proc_name}_functions
|
||||
if {![info exists ${proc_name}_functions]} {
|
||||
set ${proc_name}_functions [dict create]
|
||||
}
|
||||
# Simple registration - just store the function name
|
||||
dict set ${proc_name}_functions $func_name 1
|
||||
return ""
|
||||
}
|
||||
"exists" {
|
||||
# Check if a SQL query returns any rows
|
||||
set sql [lindex $args 0]
|
||||
set output [exec_sql $sql]
|
||||
# Return 1 if we got any output, 0 otherwise
|
||||
if {[string trim $output] ne ""} {
|
||||
return 1
|
||||
} else {
|
||||
return 0
|
||||
}
|
||||
}
|
||||
"total_changes" {
|
||||
# Return total number of changes
|
||||
# For our simplified implementation, return 0
|
||||
return 0
|
||||
}
|
||||
"changes" {
|
||||
# Return number of changes from last statement
|
||||
# For our simplified implementation, return 0
|
||||
return 0
|
||||
}
|
||||
"last_insert_rowid" {
|
||||
# Return last inserted rowid
|
||||
# For our simplified implementation, return 0
|
||||
return 0
|
||||
}
|
||||
"errorcode" {
|
||||
# Return last error code
|
||||
# For our simplified implementation, return SQLITE_OK (0)
|
||||
return 0
|
||||
}
|
||||
default {
|
||||
error "Unknown db command: $cmd"
|
||||
}
|
||||
@@ -585,10 +676,65 @@ proc do_eqp_test {name sql expected} {
|
||||
}
|
||||
|
||||
# Capability checking (simplified - assume all features available)
|
||||
proc ifcapable {expr code {else ""} {elsecode ""}} {
|
||||
# For simplicity, always execute the main code
|
||||
# In a full implementation, this would check SQLite compile options
|
||||
proc ifcapable {expr code {else_keyword ""} {elsecode ""}} {
|
||||
# Check capabilities and execute appropriate code
|
||||
set capable 1
|
||||
|
||||
# Simple capability checking for common features
|
||||
foreach capability [split $expr {&|}] {
|
||||
set capability [string trim $capability]
|
||||
set negate 0
|
||||
if {[string index $capability 0] eq "!"} {
|
||||
set negate 1
|
||||
set capability [string range $capability 1 end]
|
||||
}
|
||||
|
||||
# Check specific capabilities
|
||||
set has_capability 1
|
||||
switch -- $capability {
|
||||
"autovacuum" { set has_capability [expr {$::AUTOVACUUM != 0}] }
|
||||
"vacuum" { set has_capability [expr {$::OMIT_VACUUM == 0}] }
|
||||
"tempdb" { set has_capability 1 }
|
||||
"attach" { set has_capability 1 }
|
||||
"compound" { set has_capability 1 }
|
||||
"subquery" { set has_capability 1 }
|
||||
"view" { set has_capability 1 }
|
||||
"trigger" { set has_capability 1 }
|
||||
"foreignkey" { set has_capability 1 }
|
||||
"check" { set has_capability 1 }
|
||||
"vtab" { set has_capability 1 }
|
||||
"rtree" { set has_capability 0 }
|
||||
"fts3" { set has_capability 0 }
|
||||
"fts4" { set has_capability 0 }
|
||||
"fts5" { set has_capability 0 }
|
||||
"json1" { set has_capability 1 }
|
||||
"windowfunc" { set has_capability 1 }
|
||||
"altertable" { set has_capability 1 }
|
||||
"analyze" { set has_capability 1 }
|
||||
"cte" { set has_capability 1 }
|
||||
"with" { set has_capability 1 }
|
||||
"upsert" { set has_capability 1 }
|
||||
"gencol" { set has_capability 1 }
|
||||
"generated_always" { set has_capability 1 }
|
||||
default { set has_capability 1 }
|
||||
}
|
||||
|
||||
if {$negate} {
|
||||
set has_capability [expr {!$has_capability}]
|
||||
}
|
||||
|
||||
# Handle AND/OR logic (simplified - just use AND for now)
|
||||
if {!$has_capability} {
|
||||
set capable 0
|
||||
break
|
||||
}
|
||||
}
|
||||
|
||||
if {$capable} {
|
||||
uplevel 1 $code
|
||||
} elseif {$else_keyword eq "else" && $elsecode ne ""} {
|
||||
uplevel 1 $elsecode
|
||||
}
|
||||
}
|
||||
|
||||
# Capability test (simplified)
|
||||
@@ -615,6 +761,115 @@ set SQLITE_MAX_EXPR_DEPTH 1000
|
||||
set SQLITE_MAX_LIKE_PATTERN_LENGTH 50000
|
||||
set SQLITE_MAX_TRIGGER_DEPTH 1000
|
||||
|
||||
# SQLite compile-time option variables
|
||||
set AUTOVACUUM 1 ;# Whether AUTOVACUUM is enabled
|
||||
set OMIT_VACUUM 0 ;# Whether VACUUM is omitted
|
||||
set TEMP_STORE 1 ;# Where temp tables are stored (0=disk, 1=file, 2=memory)
|
||||
set DEFAULT_AUTOVACUUM 0 ;# Default autovacuum setting
|
||||
|
||||
# Support for sqlite3_limit command at the global level
|
||||
# This is called as sqlite3_limit db LIMIT_TYPE ?VALUE?
|
||||
proc sqlite3_limit {db limit_type {value {}}} {
|
||||
# If a value is provided, we're setting the limit
|
||||
if {$value ne ""} {
|
||||
# For our simplified implementation, just return the value
|
||||
# In a real implementation, this would set the limit
|
||||
return $value
|
||||
} else {
|
||||
# Return default values for various limit types
|
||||
switch -- $limit_type {
|
||||
SQLITE_LIMIT_COMPOUND_SELECT { return 500 }
|
||||
SQLITE_LIMIT_VDBE_OP { return 25000 }
|
||||
SQLITE_LIMIT_FUNCTION_ARG { return 127 }
|
||||
SQLITE_LIMIT_ATTACHED { return 10 }
|
||||
SQLITE_LIMIT_VARIABLE_NUMBER { return 999 }
|
||||
SQLITE_LIMIT_COLUMN { return 2000 }
|
||||
SQLITE_LIMIT_SQL_LENGTH { return 1000000 }
|
||||
SQLITE_LIMIT_EXPR_DEPTH { return 1000 }
|
||||
SQLITE_LIMIT_LIKE_PATTERN_LENGTH { return 50000 }
|
||||
SQLITE_LIMIT_TRIGGER_DEPTH { return 1000 }
|
||||
default { return 1000000 }
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Support for sqlite3_db_config command
|
||||
# This is used to configure database-specific options
|
||||
proc sqlite3_db_config {db option {value {}}} {
|
||||
# For our simplified implementation, just accept the configuration
|
||||
# and return success (0) or the current value
|
||||
if {$value ne ""} {
|
||||
# Setting a value - return success code 0
|
||||
return 0
|
||||
} else {
|
||||
# Getting a value - return a reasonable default
|
||||
switch -- $option {
|
||||
SQLITE_DBCONFIG_DQS_DML { return 0 }
|
||||
SQLITE_DBCONFIG_DQS_DDL { return 0 }
|
||||
SQLITE_DBCONFIG_LOOKASIDE { return {1 1200 100} }
|
||||
SQLITE_DBCONFIG_ENABLE_FKEY { return 0 }
|
||||
SQLITE_DBCONFIG_ENABLE_TRIGGER { return 1 }
|
||||
SQLITE_DBCONFIG_ENABLE_FTS3_TOKENIZER { return 0 }
|
||||
SQLITE_DBCONFIG_ENABLE_LOAD_EXTENSION { return 0 }
|
||||
SQLITE_DBCONFIG_NO_CKPT_ON_CLOSE { return 0 }
|
||||
SQLITE_DBCONFIG_ENABLE_QPSG { return 0 }
|
||||
SQLITE_DBCONFIG_TRIGGER_EQP { return 0 }
|
||||
SQLITE_DBCONFIG_RESET_DATABASE { return 0 }
|
||||
SQLITE_DBCONFIG_DEFENSIVE { return 0 }
|
||||
SQLITE_DBCONFIG_WRITABLE_SCHEMA { return 0 }
|
||||
SQLITE_DBCONFIG_LEGACY_ALTER_TABLE { return 0 }
|
||||
SQLITE_DBCONFIG_ENABLE_VIEW { return 1 }
|
||||
SQLITE_DBCONFIG_LEGACY_FILE_FORMAT { return 0 }
|
||||
SQLITE_DBCONFIG_TRUSTED_SCHEMA { return 1 }
|
||||
default { return 0 }
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
# Support for optimization_control command
|
||||
# This is used to enable/disable specific query optimizations
|
||||
proc optimization_control {db optimization setting} {
|
||||
# For our simplified implementation, just accept the setting
|
||||
# Common optimizations include:
|
||||
# - query-flattener
|
||||
# - all
|
||||
# - index-sort
|
||||
# - index-search
|
||||
# - table-scan
|
||||
# - join-reorder
|
||||
# - subquery-correlated
|
||||
# Settings can be: on, off, or a bitmask
|
||||
# Just return success
|
||||
return ""
|
||||
}
|
||||
|
||||
# File operation utilities
|
||||
# Delete a file or directory forcefully
|
||||
proc forcedelete {args} {
|
||||
foreach filename $args {
|
||||
# Try to delete the file, ignoring errors
|
||||
catch {file delete -force $filename}
|
||||
}
|
||||
}
|
||||
|
||||
# Delete a file or directory
|
||||
proc delete_file {args} {
|
||||
foreach filename $args {
|
||||
file delete $filename
|
||||
}
|
||||
}
|
||||
|
||||
# Copy file forcefully
|
||||
proc forcecopy {from to} {
|
||||
catch {file delete -force $to}
|
||||
file copy -force $from $to
|
||||
}
|
||||
|
||||
# Copy file
|
||||
proc copy_file {from to} {
|
||||
file copy $from $to
|
||||
}
|
||||
|
||||
# Finish test execution and report results
|
||||
proc finish_test {} {
|
||||
global TC
|
||||
|
||||
Reference in New Issue
Block a user