database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-07-29 08:01:23 +03:00
Code Activity

Pass all (relevant) regression tests when using the codec. (CVS 1223)

Browse Source 
FossilOrigin-Name: 5200e9edc5fdba0285a3cb1cd808cbf66d7a349e
This commit is contained in:
drh
2004-02-11 02:18:05 +00:00
parent d86a39c866
commit 9eb9e26b82
12 changed files with 91 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
test/pragma.test
View File

@ -12,7 +12,7 @@
#
# This file implements tests for the PRAGMA command.
#
# $Id: pragma.test,v 1.7 2003/12/16 03:44:48 drh Exp $
# $Id: pragma.test,v 1.8 2004/02/11 02:18:07 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -243,6 +243,7 @@ do_test pragma-2.10 {
# Construct a corrupted index and make sure the integrity_check
# pragma finds it.
#
if {![sqlite -has-codec]} {
do_test pragma-3.1 {
execsql {
BEGIN;
@ -265,5 +266,6 @@ do_test pragma-3.2 {
btree_close $db
execsql {PRAGMA integrity_check}
} {{rowid 1 missing from index i2} {wrong # of entries in index i2}}
}; # endif has-codec
finish_test

11
test/quick.test
View File

@ -10,7 +10,7 @@
#***********************************************************************
# This file runs all tests.
#
# $Id: quick.test,v 1.5 2003/02/16 22:21:33 drh Exp $
# $Id: quick.test,v 1.6 2004/02/11 02:18:07 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -27,6 +27,15 @@ set EXCLUDE {
misuse.test
}
if {[sqlite -has-codec]} {
lappend EXCLUDE \
attach.test \
attach2.test \
auth.test \
format3.test \
version.test
}
foreach testfile [lsort -dictionary [glob $testdir/*.test]] {
set tail [file tail $testfile]
if {[lsearch -exact $EXCLUDE $tail]>=0} continue

6
test/tclsqlite.test
View File

@ -15,15 +15,15 @@
# interface is pretty well tested. This file contains some addition
# tests for fringe issues that the main test suite does not cover.
#
# $Id: tclsqlite.test,v 1.18 2004/02/01 01:22:52 drh Exp $
# $Id: tclsqlite.test,v 1.19 2004/02/11 02:18:07 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
# Check the error messages generated by tclsqlite
#
if {[sqlite -has-crypto]} {
set r "sqlite HANDLE FILENAME ?-key CRYPTOKEY?"
if {[sqlite -has-codec]} {
set r "sqlite_orig HANDLE FILENAME ?-key CODEC-KEY?"
} else {
set r "sqlite HANDLE FILENAME ?MODE?"
}

15
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.26 2003/06/15 23:42:25 drh Exp $
# $Id: tester.tcl,v 1.27 2004/02/11 02:18:07 drh Exp $
# Make sure tclsqlite was compiled correctly. Abort now with an
# error message if not.
@ -40,6 +40,19 @@ if {[sqlite -tcl-uses-utf]} {
}
}
# Use the pager codec if it is available
#
if {[sqlite -has-codec] && [info command sqlite_orig]==""} {
rename sqlite sqlite_orig
proc sqlite {args} {
if {[llength $args]==2 && [string index [lindex $args 0] 0]!="-"} {
lappend args -key {xyzzy}
}
uplevel 1 sqlite_orig $args
}
}
# Create a test database
#
catch {db close}

4
test/thread1.test
View File

@ -11,7 +11,7 @@
# This file implements regression tests for SQLite library. The
# focus of this script is multithreading behavior
#
# $Id: thread1.test,v 1.2 2003/12/19 08:40:24 drh Exp $
# $Id: thread1.test,v 1.3 2004/02/11 02:18:07 drh Exp $
set testdir [file dirname $argv0]
@ -19,7 +19,7 @@ source $testdir/tester.tcl
# Skip this whole file if the thread testing code is not enabled
#
if {[llength [info command thread_step]]==0} {
if {[llength [info command thread_step]]==0 || [sqlite -has-codec]} {
finish_test
return
}