From c26adcdeb453e0b708cd3ecfbc12a064b2150a48 Mon Sep 17 00:00:00 2001 From: Pekka Enberg Date: Mon, 7 Jul 2025 15:17:53 +0300 Subject: [PATCH] testing/sqlite3: Disable SELECT test that takes forever --- testing/sqlite3/select2.test | 59 ++++++++++++++++++------------------ 1 file changed, 30 insertions(+), 29 deletions(-) diff --git a/testing/sqlite3/select2.test b/testing/sqlite3/select2.test index 35f8dd587..9ef96fba9 100644 --- a/testing/sqlite3/select2.test +++ b/testing/sqlite3/select2.test @@ -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]}