Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Remove the catchcmd_collapse_space procedure in tester.tcl - no longer needed. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
3bd499d3bdf4e80f83513966c2ee9dd1 |
User & Date: | drh 2016-03-26 14:41:13.450 |
Context
2016-03-26
| ||
15:36 | More changes to the shellN.test scripts to get them working on all variations of Windows. (check-in: 8213c2f581 user: drh tags: trunk) | |
14:41 | Remove the catchcmd_collapse_space procedure in tester.tcl - no longer needed. (check-in: 3bd499d3bd user: drh tags: trunk) | |
13:26 | Update shell1.test tests to deal with backslash escaping in TCL on Windows-style pathnames. (check-in: 219a251e18 user: drh tags: trunk) | |
Changes
Changes to test/shell1.test.
︙ | ︙ | |||
271 272 273 274 275 276 277 | do_test shell1-3.2.4 { # too many arguments catchcmd "test.db" ".bail OFF BAD" } {1 {Usage: .bail on|off}} # .databases List names and files of attached databases do_test shell1-3.3.1 { | | | | 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 | do_test shell1-3.2.4 { # too many arguments catchcmd "test.db" ".bail OFF BAD" } {1 {Usage: .bail on|off}} # .databases List names and files of attached databases do_test shell1-3.3.1 { catchcmd "-csv test.db" ".databases" } "/0.+main.+[string map {/ ".{1,2}"} [string range [get_pwd] 0 10]].*/" do_test shell1-3.3.2 { # extra arguments ignored catchcmd "test.db" ".databases BAD" } "/0.+main.+[string map {/ ".{1,2}"} [string range [get_pwd] 0 10]].*/" # .dump ?TABLE? ... Dump the database in an SQL text format # If TABLE specified, only dump tables matching # LIKE pattern TABLE. do_test shell1-3.4.1 { set res [catchcmd "test.db" ".dump"] |
︙ | ︙ |
Changes to test/tester.tcl.
︙ | ︙ | |||
819 820 821 822 823 824 825 | puts $out $cmd close $out set line "exec $CLI $db < cmds.txt" set rc [catch { eval $line } msg] list $rc $msg } | < < < < < < < < < < < | 819 820 821 822 823 824 825 826 827 828 829 830 831 832 | puts $out $cmd close $out set line "exec $CLI $db < cmds.txt" set rc [catch { eval $line } msg] list $rc $msg } proc catchcmdex {db {cmd ""}} { global CLI set out [open cmds.txt w] fconfigure $out -encoding binary -translation binary puts -nonewline $out $cmd close $out set line "exec -keepnewline -- $CLI $db < cmds.txt" |
︙ | ︙ |