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

Remove the encode/decode from the version 3.0 source tree. (CVS 1959)

Browse Source 
FossilOrigin-Name: c1f1320be5ce0b6e52491577078ba2b939882fbd
This commit is contained in:
drh
2004-09-13 13:46:01 +00:00
parent 90b6bb1995
commit fd241b0ea4
6 changed files with 53 additions and 277 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
test/tclsqlite.test
View File

@ -15,7 +15,7 @@
# 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.31 2004/09/07 13:20:35 drh Exp $
# $Id: tclsqlite.test,v 1.32 2004/09/13 13:46:01 drh Exp $
set testdir [file dirname $argv0]
source $testdir/tester.tcl
@ -233,9 +233,51 @@ do_test tcl-5.3 {
set adata
} {686900686f00}
do_test tcl-5.4 {
execsql {
execsql {
SELECT typeof(a), typeof(b), typeof(c) FROM t3
}
} {blob text null}
# Operation of "break" and "continue" within row scripts
#
do_test tcl-6.1 {
db eval {SELECT * FROM t1} {
break
}
lappend a $b
} {10 20}
do_test tcl-6.2 {
set cnt 0
db eval {SELECT * FROM t1} {
if {$a>40} continue
incr cnt
}
set cnt
} {4}
do_test tcl-6.3 {
set cnt 0
db eval {SELECT * FROM t1} {
if {$a<40} continue
incr cnt
}
set cnt
} {5}
do_test tcl-6.4 {
proc return_test {x} {
db eval {SELECT * FROM t1} {
if {$a==$x} {return $b}
}
}
return_test 10
} 20
do_test tcl-6.5 {
return_test 20
} 40
do_test tcl-6.6 {
return_test 99
} 510
do_test tcl-6.7 {
return_test 0
} {}
finish_test