Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
| Comment: | Update shell1.test tests to deal with backslash escaping in TCL on Windows-style pathnames. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
219a251e182bf43376fbc8ae1ce6f77f |
| User & Date: | drh 2016-03-26 13:26:35 |
|
2016-03-26
| ||
| 14:41 | Remove the catchcmd_collapse_space procedure in tester.tcl - no longer needed. (check-in: 3bd499d3 user: drh tags: trunk) | |
| 13:26 | Update shell1.test tests to deal with backslash escaping in TCL on Windows-style pathnames. (check-in: 219a251e user: drh tags: trunk) | |
|
2016-03-25
| ||
| 20:10 | Do not run the shell3.test module under mingw because of mingw's dodgy command-line parsing. (check-in: a7c080a9 user: drh tags: trunk) | |
Changes to test/shell1.test.
272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 |
# 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_collapse_space "-csv test.db" ".databases"
} "/0.+main.+[string map {/ .} [string range [get_pwd] 0 10]].*/"
do_test shell1-3.3.2 {
# extra arguments ignored
catchcmd_collapse_space "test.db" ".databases BAD"
} "/0.+main.+[string map {/ .} [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"]
list [regexp {BEGIN TRANSACTION;} $res] \
|
| | |
272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 |
# 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_collapse_space "-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_collapse_space "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"]
list [regexp {BEGIN TRANSACTION;} $res] \
|