database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-30 19:03:16 +03:00
Code Activity

Add internal support for collating sequences. This breaks 244 tests. (CVS 1420)

Browse Source 
FossilOrigin-Name: a6cb09d7af537726acc87b9133f68c81e839e047
This commit is contained in:
drh
2004-05-20 22:16:29 +00:00
parent 53db145800
commit d3d39e939d
20 changed files with 530 additions and 445 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/btree6.test
View File

@ -13,7 +13,7 @@
# the B+tree tables. B+trees store all data on the leaves rather
# that storing data with keys on interior nodes.
#
# $Id: btree6.test,v 1.3 2004/05/13 11:34:17 danielk1977 Exp $
# $Id: btree6.test,v 1.4 2004/05/20 22:16:31 drh Exp $
set testdir [file dirname $argv0]
@ -102,7 +102,7 @@ expr srand(1)
# Do the tests.
#
set cnt 0
for {set i 1} {$i<=100} {incr i} {
for {set i 1} {$i<=40} {incr i} {
do_test btree6-1.$i.1 {
random_inserts $cur 200
incr cnt 200

9
test/tester.tcl
View File

@ -11,7 +11,7 @@
# This file implements some common TCL routines used for regression
# testing the SQLite library
#
# $Id: tester.tcl,v 1.32 2004/05/12 11:24:03 danielk1977 Exp $
# $Id: tester.tcl,v 1.33 2004/05/20 22:16:31 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# error message if not.
@ -74,11 +74,12 @@ set nTest 0
set nProb 0
set skip_test 0
set failList {}
set maxErr 1000
# Invoke the do_test procedure to run a single test
#
proc do_test {name cmd expected} {
global argv nErr nTest skip_test
global argv nErr nTest skip_test maxErr
if {$skip_test} {
set skip_test 0
return
@ -102,12 +103,12 @@ proc do_test {name cmd expected} {
puts "\nError: $result"
incr nErr
lappend ::failList $name
if {$nErr>100} {puts "*** Giving up..."; finalize_testing}
if {$nErr>$maxErr} {puts "*** Giving up..."; finalize_testing}
} elseif {[string compare $result $expected]} {
puts "\nExpected: \[$expected\]\n Got: \[$result\]"
incr nErr
lappend ::failList $name
if {$nErr>=100} {puts "*** Giving up..."; finalize_testing}
if {$nErr>=$maxErr} {puts "*** Giving up..."; finalize_testing}
} else {
puts " Ok"
}