Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Changes to test scripts to accommodate different architectures and different versions of Tcl. (CVS 5057) |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8eb2c07c520c12c2cd4610596dbec451 |
User & Date: | drh 2008-04-28 13:02:58.000 |
Context
2008-04-28
| ||
15:23 | Work around a NaN bug in some versions of Tcl. (CVS 5058) (check-in: 7bf8213ce9 user: drh tags: trunk) | |
13:02 | Changes to test scripts to accommodate different architectures and different versions of Tcl. (CVS 5057) (check-in: 8eb2c07c52 user: drh tags: trunk) | |
12:54 | Restore the #include of stdint.h removed in (5051). (CVS 5056) (check-in: e96e8b9b41 user: drh tags: trunk) | |
Changes
Changes to test/tclsqlite.test.
︙ | ︙ | |||
11 12 13 14 15 16 17 | # This file implements regression tests for TCL interface to the # SQLite library. # # Actually, all tests are based on the TCL interface, so the main # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # | | | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # This file implements regression tests for TCL interface to the # SQLite library. # # Actually, all tests are based on the TCL interface, so the main # 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.64 2008/04/28 13:02:58 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl # Check the error messages generated by tclsqlite # if {[sqlite3 -has-codec]} { |
︙ | ︙ | |||
65 66 67 68 69 70 71 72 73 74 75 76 77 | set v [catch { db eval {SELECT * FROM t1} data { break } } msg] lappend v $msg } {0 {}} do_test tcl-1.6 { set v [catch { db eval {SELECT * FROM t1} data { expr x* } } msg] | > < < > | 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 | set v [catch { db eval {SELECT * FROM t1} data { break } } msg] lappend v $msg } {0 {}} catch {expr x*} msg do_test tcl-1.6 { set v [catch { db eval {SELECT * FROM t1} data { expr x* } } msg] lappend v $msg } [list 1 $msg] do_test tcl-1.7 { set v [catch {db} msg] lappend v $msg } {1 {wrong # args: should be "db SUBCOMMAND ..."}} if {[catch {db auth {}}]==0} { do_test tcl-1.8 { set v [catch {db authorizer 1 2 3} msg] |
︙ | ︙ |
Changes to test/types3.test.
︙ | ︙ | |||
8 9 10 11 12 13 14 | # 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 interaction of SQLite manifest types # with Tcl dual-representations. # | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | # 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 interaction of SQLite manifest types # with Tcl dual-representations. # # $Id: types3.test,v 1.8 2008/04/28 13:02:58 drh Exp $ # set testdir [file dirname $argv0] source $testdir/tester.tcl # A variable with only a string representation comes in as TEXT do_test types3-1.1 { |
︙ | ︙ | |||
70 71 72 73 74 75 76 77 78 79 | tcl_variable_type V } bytearray } do_test types3-2.2 { set V [db one {SELECT 123}] tcl_variable_type V } int do_test types3-2.3 { set V [db one {SELECT 1234567890123456}] tcl_variable_type V | > | | 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | tcl_variable_type V } bytearray } do_test types3-2.2 { set V [db one {SELECT 123}] tcl_variable_type V } int set Vx [expr {1+wide(123456789123456)}] do_test types3-2.3 { set V [db one {SELECT 1234567890123456}] tcl_variable_type V } [tcl_variable_type Vx] do_test types3-2.4.1 { set V [db one {SELECT 1234567890123456.1}] tcl_variable_type V } double do_test types3-2.4.2 { set V [db one {SELECT 1234567890123.456}] tcl_variable_type V |
︙ | ︙ |