Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Test demonstrating need for "adjust" manipulation in TclSubstTokens. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-5-branch |
| Files: | files | file ages | folders |
| SHA1: |
91986db2b858972ce0152a0d9754e799 |
| User & Date: | dgp 2013-09-25 16:39:26 |
Context
|
2013-09-27
| ||
| 16:54 | Patch to the original line continuation commit to fix up TclCompileTokens. Closed-Leaf check-in: 8af75fedaa user: dgp tags: adjust-fix | |
| 15:34 | Merge forward new test, marked as knownBug, so other merges are no longer held back. check-in: af5c85f043 user: dgp tags: trunk | |
|
2013-09-25
| ||
| 22:54 | [d614d63989] Ensure that there are no trailing colons as that causes chaos when a deleteProc is spec... check-in: 8e508e44f4 user: dkf tags: core-8-5-branch | |
| 16:39 | Test demonstrating need for "adjust" manipulation in TclSubstTokens. check-in: 91986db2b8 user: dgp tags: core-8-5-branch | |
|
2013-09-23
| ||
| 11:12 | workaround for mingw bug http://comments.gmane.org/gmane.comp.gnu.mingw.user/41724 check-in: 60c6ff868f user: jan.nijtmans tags: core-8-5-branch | |
Changes
Changes to tests/source.test.
| ︙ | ︙ | |||
182 183 184 185 186 187 188 189 190 191 192 193 194 195 |
} -body {
list [catch {source $sourcefile} msg] $msg $::errorInfo $::errorCode
} -cleanup {
removeFile source.file
} -result {1 {} {Simulated errorInfo stuff
invoked from within
"source $sourcefile"} {a b c}}
test source-6.1 {source is binary ok} -setup {
# Note [makeFile] writes in the system encoding.
# [source] defaults to reading in the system encoding.
set sourcefile [makeFile [list set x "a b\0c"] source.file]
} -body {
set x {}
| > > > > > > > > > > | 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 |
} -body {
list [catch {source $sourcefile} msg] $msg $::errorInfo $::errorCode
} -cleanup {
removeFile source.file
} -result {1 {} {Simulated errorInfo stuff
invoked from within
"source $sourcefile"} {a b c}}
test source-4.1 {continuation line parsing} -setup {
set sourcefile [makeFile [string map {CL \\\n} {
format %s "[dict get [info frame 0] type]:CL[dict get [info frame 0] line]CL[dict get [info frame 0] line]CL[dict get [info frame 0] line]"
}] source.file]
} -body {
source $sourcefile
} -cleanup {
removeFile source.file
} -result {source: 3 4 5}
test source-6.1 {source is binary ok} -setup {
# Note [makeFile] writes in the system encoding.
# [source] defaults to reading in the system encoding.
set sourcefile [makeFile [list set x "a b\0c"] source.file]
} -body {
set x {}
|
| ︙ | ︙ |