mirror of
https://github.com/aljazceru/turso.git
synced 2026-02-11 19:24:21 +01:00
testing/sqlite3: Disable SELECT test that takes forever
This commit is contained in:
@@ -61,35 +61,36 @@ unset data
|
||||
# without. Compare the performance to make sure things go faster with the
|
||||
# cache turned on.
|
||||
#
|
||||
ifcapable tclvar {
|
||||
do_test select2-2.0.1 {
|
||||
set t1 [time {
|
||||
execsql {CREATE TABLE tbl2(f1 int, f2 int, f3 int); BEGIN;}
|
||||
for {set i 1} {$i<=30000} {incr i} {
|
||||
set i2 [expr {$i*2}]
|
||||
set i3 [expr {$i*3}]
|
||||
db eval {INSERT INTO tbl2 VALUES($i,$i2,$i3)}
|
||||
}
|
||||
execsql {COMMIT}
|
||||
}]
|
||||
list
|
||||
} {}
|
||||
puts "time with cache: $::t1"
|
||||
}
|
||||
catch {execsql {DROP TABLE tbl2}}
|
||||
do_test select2-2.0.2 {
|
||||
set t2 [time {
|
||||
execsql {CREATE TABLE tbl2(f1 int, f2 int, f3 int); BEGIN;}
|
||||
for {set i 1} {$i<=30000} {incr i} {
|
||||
set i2 [expr {$i*2}]
|
||||
set i3 [expr {$i*3}]
|
||||
execsql "INSERT INTO tbl2 VALUES($i,$i2,$i3)"
|
||||
}
|
||||
execsql {COMMIT}
|
||||
}]
|
||||
list
|
||||
} {}
|
||||
puts "time without cache: $t2"
|
||||
# TODO: This takes forever to run!
|
||||
#ifcapable tclvar {
|
||||
# do_test select2-2.0.1 {
|
||||
# set t1 [time {
|
||||
# execsql {CREATE TABLE tbl2(f1 int, f2 int, f3 int); BEGIN;}
|
||||
# for {set i 1} {$i<=30000} {incr i} {
|
||||
# set i2 [expr {$i*2}]
|
||||
# set i3 [expr {$i*3}]
|
||||
# db eval {INSERT INTO tbl2 VALUES($i,$i2,$i3)}
|
||||
# }
|
||||
# execsql {COMMIT}
|
||||
# }]
|
||||
# list
|
||||
# } {}
|
||||
# puts "time with cache: $::t1"
|
||||
#}
|
||||
#catch {execsql {DROP TABLE tbl2}}
|
||||
#do_test select2-2.0.2 {
|
||||
# set t2 [time {
|
||||
# execsql {CREATE TABLE tbl2(f1 int, f2 int, f3 int); BEGIN;}
|
||||
# for {set i 1} {$i<=30000} {incr i} {
|
||||
# set i2 [expr {$i*2}]
|
||||
# set i3 [expr {$i*3}]
|
||||
# execsql "INSERT INTO tbl2 VALUES($i,$i2,$i3)"
|
||||
# }
|
||||
# execsql {COMMIT}
|
||||
# }]
|
||||
# list
|
||||
#} {}
|
||||
#puts "time without cache: $t2"
|
||||
#ifcapable tclvar {
|
||||
# do_test select2-2.0.3 {
|
||||
# expr {[lindex $t1 0]<[lindex $t2 0]}
|
||||
|
||||
Reference in New Issue
Block a user