Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Use the cache with loading a large table in select2-2.0. (CVS 2272) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
bd65b1805c116a9073a01164d77e2bfd |
User & Date: | drh 2005-01-24 12:46:14.000 |
Context
2005-01-24
| ||
13:03 | More test cases to do with invalidating precompiled statements. (CVS 2273) (check-in: b243681a0e user: danielk1977 tags: trunk) | |
12:46 | Use the cache with loading a large table in select2-2.0. (CVS 2272) (check-in: bd65b1805c user: drh tags: trunk) | |
10:25 | Modifications and bugfixes so that the test suite passes with the TCL statement cache turned on. (CVS 2271) (check-in: d5233e0747 user: danielk1977 tags: trunk) | |
Changes
Changes to test/select2.test.
1 2 3 4 5 6 7 8 9 10 11 12 13 | # 2001 September 15 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. The # focus of this file is testing the SELECT statement. # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | # 2001 September 15 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # This file implements regression tests for SQLite library. The # focus of this file is testing the SELECT statement. # # $Id: select2.test,v 1.23 2005/01/24 12:46:14 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Create a table with some data # execsql {CREATE TABLE tbl1(f1 int, f2 int)} |
︙ | ︙ | |||
52 53 54 55 56 57 58 | db eval $sql2 d2 { lappend r $d2(f2) } } set r } {4: 2 3 4} | | > > > | > | | > > > > > > > > > > > > > > > > > | | | > > > > > > > > | 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 | db eval $sql2 d2 { lappend r $d2(f2) } } set r } {4: 2 3 4} # Create a largish table. Do this twice, once using the TCL cache and once # 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} }] set result {} } {} 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} }] set result {} } {} puts "time without cache: $t2" ifcapable tclvar { do_test select2-2.0.3 { expr {[lindex $t1 0]<[lindex $t2 0]} } 1 } do_test select2-2.1 { execsql {SELECT count(*) FROM tbl2} } {30000} do_test select2-2.2 { execsql {SELECT count(*) FROM tbl2 WHERE f2>1000} } {29500} |
︙ | ︙ |