Update some old tests to use the new API. (CVS 1593)
FossilOrigin-Name: af6edd2c0ad160435acd5bfa7af36c4f394f0bb8
This commit is contained in:
danielk1977
parent
026d270ca6
commit
2dd59365ed
16
manifest
16
manifest
@ -1,5 +1,5 @@
|
||||
C Schema\smodifications\sare\scommitted\sinternally\swhen\sa\sstatement\stransaction\nis\scommitted.\s(CVS\s1592)
|
||||
D 2004-06-14T13:14:59
|
||||
C Update\ssome\sold\stests\sto\suse\sthe\snew\sAPI.\s(CVS\s1593)
|
||||
D 2004-06-14T23:46:48
|
||||
F Makefile.in ab7b0d5118e2da97bac66be8684a1034e3500f5a
|
||||
F Makefile.linux-gcc a9e5a0d309fa7c38e7c14d3ecf7690879d3a5457
|
||||
F README f1de682fbbd94899d50aca13d387d1b3fd3be2dd
|
||||
@ -138,9 +138,9 @@ F test/null.test c14d0f4739f21e929b8115b72bf0c765b6bb1721
|
||||
F test/pager.test b17ce7d4e89ab3618f6903f0ec318a13f855a849
|
||||
F test/pager2.test 55469c7c1c1a54d6b32d7b3cc99001e90101a1ce
|
||||
F test/pragma.test 1b6792d4af550ca4973096d77fc278dd6c32c4dd
|
||||
F test/printf.test 46b3d07d59d871d0831b4a657f6dfcafe0574850
|
||||
F test/printf.test 31ac25b4f85fbc7fb507be34c6c0731adbefcf80
|
||||
F test/progress.test 7542a6ac7894a1b7730c1f9a27f3f8b9388a4d25 x
|
||||
F test/quick.test 10c5fdbee91ef440d6adefa8e5844796c5764bfb
|
||||
F test/quick.test 2d13fadfeca9b14d92813883b77f26dc9955cf2c
|
||||
F test/quote.test 08f23385c685d3dc7914ec760d492cacea7f6e3d
|
||||
F test/rowid.test 863e6e75878cccf03d166fe52023f20e09508683
|
||||
F test/select1.test 2f161f9cdf9fb577336bc8c930edade538567123
|
||||
@ -152,7 +152,7 @@ F test/select6.test a9e31906e700e7c7592c4d0acfc022808f718baf
|
||||
F test/sort.test dbd94673b05054e44ca3f08a80faa1e890ef06d8
|
||||
F test/subselect.test f0fea8cf9f386d416d64d152e3c65f9116d0f50f
|
||||
F test/table.test bbae9f267e947963f8951e72516667ab16c5810c
|
||||
F test/tableapi.test e0c4cce61e58343caa84dab33fa6823cb35fe1e1
|
||||
F test/tableapi.test 8651d6d1b043217aa851632b515ab68f185fb430
|
||||
F test/tclsqlite.test 2ff5abfd1e133cddcfc61ad5850e3b93f4a7ff40
|
||||
F test/temptable.test 3109726251fb4961010eb4d47e5c4df2af6b958d
|
||||
F test/tester.tcl fc10520db0d3ce4ef6a8b5ab91bd102fc3f4280a
|
||||
@ -223,7 +223,7 @@ F www/support.tcl 1801397edd271cc39a2aadd54e701184b5181248
|
||||
F www/tclsqlite.tcl 19191cf2a1010eaeff74c51d83fd5f5a4d899075
|
||||
F www/vdbe.tcl 59288db1ac5c0616296b26dce071c36cb611dfe9
|
||||
F www/whentouse.tcl a8335bce47cc2fddb07f19052cb0cb4d9129a8e4
|
||||
P 1fa97dd81d349e448171a78f69e463e7fa364daa
|
||||
R e2df8a58e6722e61f1dd53384723fd2e
|
||||
P 4cfc5a36e9891a9b69209f94194fc492e203ab75
|
||||
R 78a27636c3b0e6afcf78533b6487d039
|
||||
U danielk1977
|
||||
Z 699e2d26d511fd198a645a9fe1c7342b
|
||||
Z 913380e0abc39a0407addfbc437c0f2c
|
||||
|
||||
@ -1 +1 @@
|
||||
4cfc5a36e9891a9b69209f94194fc492e203ab75
|
||||
af6edd2c0ad160435acd5bfa7af36c4f394f0bb8
|
||||
@ -11,7 +11,7 @@
|
||||
# This file implements regression tests for SQLite library. The
|
||||
# focus of this file is testing the sqlite_*_printf() interface.
|
||||
#
|
||||
# $Id: printf.test,v 1.8 2004/02/21 19:41:05 drh Exp $
|
||||
# $Id: printf.test,v 1.9 2004/06/14 23:46:48 danielk1977 Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
@ -19,23 +19,23 @@ source $testdir/tester.tcl
|
||||
set n 1
|
||||
foreach v {1 2 5 10 99 100 1000000 999999999 0 -1 -2 -5 -10 -99 -100 -9999999} {
|
||||
do_test printf-1.$n.1 [subst {
|
||||
sqlite_mprintf_int {Three integers: %d %x %o} $v $v $v
|
||||
}] [format {Three integers: %d %x %o} $v $v $v]
|
||||
sqlite3_mprintf_int {Three integers: %d %x %o} $v $v $v
|
||||
}] [format {Three integers: %d %lx %lo} $v $v $v]
|
||||
do_test printf-1.$n.2 [subst {
|
||||
sqlite_mprintf_int {Three integers: (%6d) (%6x) (%6o)} $v $v $v
|
||||
}] [format {Three integers: (%6d) (%6x) (%6o)} $v $v $v]
|
||||
sqlite3_mprintf_int {Three integers: (%6d) (%6x) (%6o)} $v $v $v
|
||||
}] [format {Three integers: (%6d) (%6lx) (%6lo)} $v $v $v]
|
||||
do_test printf-1.$n.3 [subst {
|
||||
sqlite_mprintf_int {Three integers: (%-6d) (%-6x) (%-6o)} $v $v $v
|
||||
}] [format {Three integers: (%-6d) (%-6x) (%-6o)} $v $v $v]
|
||||
sqlite3_mprintf_int {Three integers: (%-6d) (%-6x) (%-6o)} $v $v $v
|
||||
}] [format {Three integers: (%-6d) (%-6lx) (%-6lo)} $v $v $v]
|
||||
do_test printf-1.$n.4 [subst {
|
||||
sqlite_mprintf_int {Three integers: (%+6d) (%+6x) (%+6o)} $v $v $v
|
||||
}] [format {Three integers: (%+6d) (%+6x) (%+6o)} $v $v $v]
|
||||
sqlite3_mprintf_int {Three integers: (%+6d) (%+6x) (%+6o)} $v $v $v
|
||||
}] [format {Three integers: (%+6d) (%+6lx) (%+6lo)} $v $v $v]
|
||||
do_test printf-1.$n.5 [subst {
|
||||
sqlite_mprintf_int {Three integers: (%06d) (%06x) (%06o)} $v $v $v
|
||||
}] [format {Three integers: (%06d) (%06x) (%06o)} $v $v $v]
|
||||
sqlite3_mprintf_int {Three integers: (%06d) (%06x) (%06o)} $v $v $v
|
||||
}] [format {Three integers: (%06d) (%06lx) (%06lo)} $v $v $v]
|
||||
do_test printf-1.$n.6 [subst {
|
||||
sqlite_mprintf_int {Three integers: (% 6d) (% 6x) (% 6o)} $v $v $v
|
||||
}] [format {Three integers: (% 6d) (% 6x) (% 6o)} $v $v $v]
|
||||
sqlite3_mprintf_int {Three integers: (% 6d) (% 6x) (% 6o)} $v $v $v
|
||||
}] [format {Three integers: (% 6d) (% 6lx) (% 6lo)} $v $v $v]
|
||||
incr n
|
||||
}
|
||||
|
||||
@ -47,19 +47,19 @@ foreach {a b} {1 1 5 5 10 10 10 5} {
|
||||
set n 1
|
||||
foreach x {0.001 1.0e-20 1.0 0.0 100.0 9.99999 -0.00543 -1.0 -99.99999} {
|
||||
do_test printf-2.$m.$n.1 [subst {
|
||||
sqlite_mprintf_double {A double: %*.*f} $a $b $x
|
||||
sqlite3_mprintf_double {A double: %*.*f} $a $b $x
|
||||
}] [format {A double: %*.*f} $a $b $x]
|
||||
do_test printf-2.$m.$n.2 [subst {
|
||||
sqlite_mprintf_double {A double: %*.*e} $a $b $x
|
||||
sqlite3_mprintf_double {A double: %*.*e} $a $b $x
|
||||
}] [format {A double: %*.*e} $a $b $x]
|
||||
do_test printf-2.$m.$n.3 [subst {
|
||||
sqlite_mprintf_double {A double: %*.*g} $a $b $x
|
||||
sqlite3_mprintf_double {A double: %*.*g} $a $b $x
|
||||
}] [format {A double: %*.*g} $a $b $x]
|
||||
do_test printf-2.$m.$n.4 [subst {
|
||||
sqlite_mprintf_double {A double: %d %d %g} $a $b $x
|
||||
sqlite3_mprintf_double {A double: %d %d %g} $a $b $x
|
||||
}] [format {A double: %d %d %g} $a $b $x]
|
||||
do_test printf-2.$m.$n.5 [subst {
|
||||
sqlite_mprintf_double {A double: %d %d %#g} $a $b $x
|
||||
sqlite3_mprintf_double {A double: %d %d %#g} $a $b $x
|
||||
}] [format {A double: %d %d %#g} $a $b $x]
|
||||
incr n
|
||||
}
|
||||
@ -69,58 +69,58 @@ foreach {a b} {1 1 5 5 10 10 10 5} {
|
||||
}
|
||||
|
||||
do_test printf-3.1 {
|
||||
sqlite_mprintf_str {A String: (%*.*s)} 10 10 {This is the string}
|
||||
sqlite3_mprintf_str {A String: (%*.*s)} 10 10 {This is the string}
|
||||
} [format {A String: (%*.*s)} 10 10 {This is the string}]
|
||||
do_test printf-3.2 {
|
||||
sqlite_mprintf_str {A String: (%*.*s)} 10 5 {This is the string}
|
||||
sqlite3_mprintf_str {A String: (%*.*s)} 10 5 {This is the string}
|
||||
} [format {A String: (%*.*s)} 10 5 {This is the string}]
|
||||
do_test printf-3.3 {
|
||||
sqlite_mprintf_str {A String: (%*.*s)} -10 5 {This is the string}
|
||||
sqlite3_mprintf_str {A String: (%*.*s)} -10 5 {This is the string}
|
||||
} [format {A String: (%*.*s)} -10 5 {This is the string}]
|
||||
do_test printf-3.4 {
|
||||
sqlite_mprintf_str {%d %d A String: (%s)} 1 2 {This is the string}
|
||||
sqlite3_mprintf_str {%d %d A String: (%s)} 1 2 {This is the string}
|
||||
} [format {%d %d A String: (%s)} 1 2 {This is the string}]
|
||||
do_test printf-3.5 {
|
||||
sqlite_mprintf_str {%d %d A String: (%30s)} 1 2 {This is the string}
|
||||
sqlite3_mprintf_str {%d %d A String: (%30s)} 1 2 {This is the string}
|
||||
} [format {%d %d A String: (%30s)} 1 2 {This is the string}]
|
||||
do_test printf-3.6 {
|
||||
sqlite_mprintf_str {%d %d A String: (%-30s)} 1 2 {This is the string}
|
||||
sqlite3_mprintf_str {%d %d A String: (%-30s)} 1 2 {This is the string}
|
||||
} [format {%d %d A String: (%-30s)} 1 2 {This is the string}]
|
||||
|
||||
do_test printf-4.1 {
|
||||
sqlite_mprintf_str {%d %d A quoted string: '%q'} 1 2 {Hi Y'all}
|
||||
sqlite3_mprintf_str {%d %d A quoted string: '%q'} 1 2 {Hi Y'all}
|
||||
} {1 2 A quoted string: 'Hi Y''all'}
|
||||
do_test printf-4.2 {
|
||||
sqlite_mprintf_str {%d %d A NULL pointer in %%q: '%q'} 1 2
|
||||
sqlite3_mprintf_str {%d %d A NULL pointer in %%q: '%q'} 1 2
|
||||
} {1 2 A NULL pointer in %q: '(NULL)'}
|
||||
do_test printf-4.3 {
|
||||
sqlite_mprintf_str {%d %d A quoted string: %Q} 1 2 {Hi Y'all}
|
||||
sqlite3_mprintf_str {%d %d A quoted string: %Q} 1 2 {Hi Y'all}
|
||||
} {1 2 A quoted string: 'Hi Y''all'}
|
||||
do_test printf-4.4 {
|
||||
sqlite_mprintf_str {%d %d A NULL pointer in %%Q: %Q} 1 2
|
||||
sqlite3_mprintf_str {%d %d A NULL pointer in %%Q: %Q} 1 2
|
||||
} {1 2 A NULL pointer in %Q: NULL}
|
||||
|
||||
do_test printf-5.1 {
|
||||
set x [sqlite_mprintf_str {%d %d %100000s} 0 0 {Hello}]
|
||||
set x [sqlite3_mprintf_str {%d %d %100000s} 0 0 {Hello}]
|
||||
string length $x
|
||||
} {994}
|
||||
do_test printf-5.2 {
|
||||
sqlite_mprintf_str {%d %d (%-10.10s) %} -9 -10 {HelloHelloHello}
|
||||
sqlite3_mprintf_str {%d %d (%-10.10s) %} -9 -10 {HelloHelloHello}
|
||||
} {-9 -10 (HelloHello) %}
|
||||
|
||||
do_test printf-6.1 {
|
||||
sqlite_mprintf_z_test , one two three four five six
|
||||
sqlite3_mprintf_z_test , one two three four five six
|
||||
} {,one,two,three,four,five,six}
|
||||
|
||||
|
||||
do_test printf-7.1 {
|
||||
sqlite_mprintf_scaled {A double: %g} 1.0e307 1.0
|
||||
sqlite3_mprintf_scaled {A double: %g} 1.0e307 1.0
|
||||
} {A double: 1e+307}
|
||||
do_test printf-7.2 {
|
||||
sqlite_mprintf_scaled {A double: %g} 1.0e307 10.0
|
||||
sqlite3_mprintf_scaled {A double: %g} 1.0e307 10.0
|
||||
} {A double: 1e+308}
|
||||
do_test printf-7.3 {
|
||||
sqlite_mprintf_scaled {A double: %g} 1.0e307 100.0
|
||||
sqlite3_mprintf_scaled {A double: %g} 1.0e307 100.0
|
||||
} {A double: NaN}
|
||||
|
||||
finish_test
|
||||
|
||||
@ -10,7 +10,7 @@
|
||||
#***********************************************************************
|
||||
# This file runs all tests.
|
||||
#
|
||||
# $Id: quick.test,v 1.20 2004/06/14 13:14:59 danielk1977 Exp $
|
||||
# $Id: quick.test,v 1.21 2004/06/14 23:46:48 danielk1977 Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
@ -30,10 +30,7 @@ set EXCLUDE {
|
||||
|
||||
lappend EXCLUDE ioerr.test ;# seg-faults (?)
|
||||
lappend EXCLUDE memdb.test ;# fails - malformed database
|
||||
|
||||
lappend EXCLUDE printf.test ;# sqlite3_XX vs sqlite_XX problem
|
||||
lappend EXCLUDE tableapi.test ;# sqlite3_XX vs sqlite_XX problem
|
||||
lappend EXCLUDE version.test ;# uses the btree_meta API (not updated)
|
||||
lappend EXCLUDE version.test ;# This is obsolete.
|
||||
|
||||
# Some tests fail in these file as a result of the partial manifest types
|
||||
# implementation.
|
||||
|
||||
@ -12,52 +12,52 @@
|
||||
# focus of this file is testing the sqlite_exec_printf() and
|
||||
# sqlite_get_table_printf() APIs.
|
||||
#
|
||||
# $Id: tableapi.test,v 1.7 2004/02/02 12:29:25 drh Exp $
|
||||
# $Id: tableapi.test,v 1.8 2004/06/14 23:46:48 danielk1977 Exp $
|
||||
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
|
||||
do_test tableapi-1.0 {
|
||||
set ::dbx [sqlite_open test.db]
|
||||
set ::dbx [sqlite3_open test.db]
|
||||
catch {sqlite_exec_printf $::dbx {DROP TABLE xyz} {}}
|
||||
sqlite_exec_printf $::dbx {CREATE TABLE %s(a int, b text)} xyz
|
||||
sqlite3_exec_printf $::dbx {CREATE TABLE %s(a int, b text)} xyz
|
||||
} {0 {}}
|
||||
do_test tableapi-1.1 {
|
||||
sqlite_exec_printf $::dbx {
|
||||
sqlite3_exec_printf $::dbx {
|
||||
INSERT INTO xyz VALUES(1,'%q')
|
||||
} {Hi Y'all}
|
||||
} {0 {}}
|
||||
do_test tableapi-1.2 {
|
||||
sqlite_exec_printf $::dbx {SELECT * FROM xyz} {}
|
||||
sqlite3_exec_printf $::dbx {SELECT * FROM xyz} {}
|
||||
} {0 {a b 1 {Hi Y'all}}}
|
||||
|
||||
do_test tableapi-2.1 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
BEGIN TRANSACTION;
|
||||
SELECT * FROM xyz WHERE b='%q'
|
||||
} {Hi Y'all}
|
||||
} {0 1 2 a b 1 {Hi Y'all}}
|
||||
do_test tableapi-2.2 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz
|
||||
} {}
|
||||
} {0 1 2 a b 1 {Hi Y'all}}
|
||||
do_test tableapi-2.3 {
|
||||
for {set i 2} {$i<=50} {incr i} {
|
||||
sqlite_get_table_printf $::dbx \
|
||||
sqlite3_get_table_printf $::dbx \
|
||||
"INSERT INTO xyz VALUES($i,'(%s)')" $i
|
||||
}
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz ORDER BY a
|
||||
} {}
|
||||
} {0 50 2 a b 1 {Hi Y'all} 2 (2) 3 (3) 4 (4) 5 (5) 6 (6) 7 (7) 8 (8) 9 (9) 10 (10) 11 (11) 12 (12) 13 (13) 14 (14) 15 (15) 16 (16) 17 (17) 18 (18) 19 (19) 20 (20) 21 (21) 22 (22) 23 (23) 24 (24) 25 (25) 26 (26) 27 (27) 28 (28) 29 (29) 30 (30) 31 (31) 32 (32) 33 (33) 34 (34) 35 (35) 36 (36) 37 (37) 38 (38) 39 (39) 40 (40) 41 (41) 42 (42) 43 (43) 44 (44) 45 (45) 46 (46) 47 (47) 48 (48) 49 (49) 50 (50)}
|
||||
do_test tableapi-2.3.1 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>49 ORDER BY a
|
||||
} {}
|
||||
} {0 1 2 a b 50 (50)}
|
||||
do_test tableapi-2.3.2 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>47 ORDER BY a
|
||||
} {}
|
||||
} {0 3 2 a b 48 (48) 49 (49) 50 (50)}
|
||||
@ -70,25 +70,25 @@ do_test tableapi-2.4 {
|
||||
append manyquote $manyquote
|
||||
append manyquote $manyquote
|
||||
set ::big_str "$manyquote Hello $manyquote"
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
INSERT INTO xyz VALUES(51,'%q')
|
||||
} $::big_str
|
||||
} {0 0 0}
|
||||
do_test tableapi-2.5 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>49 ORDER BY a;
|
||||
} {}
|
||||
} "0 2 2 a b 50 (50) 51 \173$::big_str\175"
|
||||
do_test tableapi-2.6 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
INSERT INTO xyz VALUES(52,NULL)
|
||||
} {}
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a IN (42,50,52) ORDER BY a DESC
|
||||
} {}
|
||||
} {0 3 2 a b 52 NULL 50 (50) 42 (42)}
|
||||
do_test tableapi-2.7 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>1000
|
||||
} {}
|
||||
} {0 0 0}
|
||||
@ -96,68 +96,68 @@ do_test tableapi-2.7 {
|
||||
# Repeat all tests with the empty_result_callbacks pragma turned on
|
||||
#
|
||||
do_test tableapi-3.1 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
ROLLBACK;
|
||||
PRAGMA empty_result_callbacks = ON;
|
||||
SELECT * FROM xyz WHERE b='%q'
|
||||
} {Hi Y'all}
|
||||
} {0 1 2 a b 1 {Hi Y'all}}
|
||||
do_test tableapi-3.2 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz
|
||||
} {}
|
||||
} {0 1 2 a b 1 {Hi Y'all}}
|
||||
do_test tableapi-3.3 {
|
||||
for {set i 2} {$i<=50} {incr i} {
|
||||
sqlite_get_table_printf $::dbx \
|
||||
sqlite3_get_table_printf $::dbx \
|
||||
"INSERT INTO xyz VALUES($i,'(%s)')" $i
|
||||
}
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz ORDER BY a
|
||||
} {}
|
||||
} {0 50 2 a b 1 {Hi Y'all} 2 (2) 3 (3) 4 (4) 5 (5) 6 (6) 7 (7) 8 (8) 9 (9) 10 (10) 11 (11) 12 (12) 13 (13) 14 (14) 15 (15) 16 (16) 17 (17) 18 (18) 19 (19) 20 (20) 21 (21) 22 (22) 23 (23) 24 (24) 25 (25) 26 (26) 27 (27) 28 (28) 29 (29) 30 (30) 31 (31) 32 (32) 33 (33) 34 (34) 35 (35) 36 (36) 37 (37) 38 (38) 39 (39) 40 (40) 41 (41) 42 (42) 43 (43) 44 (44) 45 (45) 46 (46) 47 (47) 48 (48) 49 (49) 50 (50)}
|
||||
do_test tableapi-3.3.1 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>49 ORDER BY a
|
||||
} {}
|
||||
} {0 1 2 a b 50 (50)}
|
||||
do_test tableapi-3.3.2 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>47 ORDER BY a
|
||||
} {}
|
||||
} {0 3 2 a b 48 (48) 49 (49) 50 (50)}
|
||||
do_test tableapi-3.4 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
INSERT INTO xyz VALUES(51,'%q')
|
||||
} $::big_str
|
||||
} {0 0 0}
|
||||
do_test tableapi-3.5 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>49 ORDER BY a;
|
||||
} {}
|
||||
} "0 2 2 a b 50 (50) 51 \173$::big_str\175"
|
||||
do_test tableapi-3.6 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
INSERT INTO xyz VALUES(52,NULL)
|
||||
} {}
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a IN (42,50,52) ORDER BY a DESC
|
||||
} {}
|
||||
} {0 3 2 a b 52 NULL 50 (50) 42 (42)}
|
||||
do_test tableapi-3.7 {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz WHERE a>1000
|
||||
} {}
|
||||
} {0 0 2 a b}
|
||||
|
||||
do_test tableapi-4.1 {
|
||||
set rc [catch {
|
||||
sqlite_get_table_printf $::dbx {
|
||||
sqlite3_get_table_printf $::dbx {
|
||||
SELECT * FROM xyz; SELECT * FROM sqlite_master
|
||||
} {}
|
||||
} msg]
|
||||
concat $rc $msg
|
||||
} {0 1 {sqlite_get_table() called with two or more incompatible queries}}
|
||||
} {0 1 {sqlite3_get_table() called with two or more incompatible queries}}
|
||||
|
||||
# A report on the mailing list says that the sqlite_get_table() api fails
|
||||
# on queries involving more than 40 columns. The following code attempts
|
||||
@ -171,7 +171,7 @@ do_test tableapi-5.1 {
|
||||
set sep ,
|
||||
}
|
||||
append sql )
|
||||
sqlite_get_table_printf $::dbx $sql {}
|
||||
sqlite3_get_table_printf $::dbx $sql {}
|
||||
set sql "INSERT INTO t2 VALUES("
|
||||
set sep ""
|
||||
for {set i 1} {$i<=100} {incr i} {
|
||||
@ -179,8 +179,8 @@ do_test tableapi-5.1 {
|
||||
set sep ,
|
||||
}
|
||||
append sql )
|
||||
sqlite_get_table_printf $::dbx $sql {}
|
||||
sqlite_get_table_printf $::dbx {SELECT * FROM t2} {}
|
||||
sqlite3_get_table_printf $::dbx $sql {}
|
||||
sqlite3_get_table_printf $::dbx {SELECT * FROM t2} {}
|
||||
} {0 1 100 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24 x25 x26 x27 x28 x29 x30 x31 x32 x33 x34 x35 x36 x37 x38 x39 x40 x41 x42 x43 x44 x45 x46 x47 x48 x49 x50 x51 x52 x53 x54 x55 x56 x57 x58 x59 x60 x61 x62 x63 x64 x65 x66 x67 x68 x69 x70 x71 x72 x73 x74 x75 x76 x77 x78 x79 x80 x81 x82 x83 x84 x85 x86 x87 x88 x89 x90 x91 x92 x93 x94 x95 x96 x97 x98 x99 x100 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 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}
|
||||
do_test tableapi-5.2 {
|
||||
set sql "INSERT INTO t2 VALUES("
|
||||
@ -190,12 +190,12 @@ do_test tableapi-5.2 {
|
||||
set sep ,
|
||||
}
|
||||
append sql )
|
||||
sqlite_get_table_printf $::dbx $sql {}
|
||||
sqlite_get_table_printf $::dbx {SELECT * FROM t2} {}
|
||||
sqlite3_get_table_printf $::dbx $sql {}
|
||||
sqlite3_get_table_printf $::dbx {SELECT * FROM t2} {}
|
||||
} {0 2 100 x1 x2 x3 x4 x5 x6 x7 x8 x9 x10 x11 x12 x13 x14 x15 x16 x17 x18 x19 x20 x21 x22 x23 x24 x25 x26 x27 x28 x29 x30 x31 x32 x33 x34 x35 x36 x37 x38 x39 x40 x41 x42 x43 x44 x45 x46 x47 x48 x49 x50 x51 x52 x53 x54 x55 x56 x57 x58 x59 x60 x61 x62 x63 x64 x65 x66 x67 x68 x69 x70 x71 x72 x73 x74 x75 x76 x77 x78 x79 x80 x81 x82 x83 x84 x85 x86 x87 x88 x89 x90 x91 x92 x93 x94 x95 x96 x97 x98 x99 x100 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 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 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100}
|
||||
|
||||
do_test tableapi-99.0 {
|
||||
sqlite_close $::dbx
|
||||
sqlite3_close $::dbx
|
||||
} {}
|
||||
|
||||
finish_test
|
||||
|
||||
Loading…
Reference in New Issue
Block a user