Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Merge test; bug already fixed in trunk. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
dd4cc03df61bdae221321c9761d40b60 |
| User & Date: | dgp 2013-09-19 12:22:25 |
Context
|
2013-09-19
| ||
| 13:00 | consistant use of capitals check-in: eb4132517a user: jan.nijtmans tags: trunk | |
| 12:22 | Merge test; bug already fixed in trunk. check-in: dd4cc03df6 user: dgp tags: trunk | |
| 12:20 | Line numbers wrong in compiled foreach body. check-in: 8426bef124 user: dgp tags: core-8-5-branch | |
| 04:27 | Stop segfault due to OBOE in CompileWord() calls in [dict lappend] compiler. check-in: 166ffc0cc5 user: dgp tags: trunk | |
Changes
Changes to tests/foreach.test.
| ︙ | ︙ | |||
249 250 251 252 253 254 255 256 257 258 259 260 261 262 |
proc foo {} {
foreach {} x {
error "reached body"
}
}
list [catch { foo } msg] $msg
} {1 {foreach varlist is empty}}
test foreach-10.1 {foreach: [Bug 1671087]} -setup {
proc demo {} {
set vals {1 2 3 4}
trace add variable x write {string length $vals ;# }
foreach {x y} $vals {format $y}
}
| > > > > > > > > > > > | 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 |
proc foo {} {
foreach {} x {
error "reached body"
}
}
list [catch { foo } msg] $msg
} {1 {foreach varlist is empty}}
test foreach-9.2 {line numbers} -setup {
proc linenumber {} {dict get [info frame -1] line}
} -body {
apply {n {
foreach x y {*}{
} {return [incr n -[linenumber]]}
}} [linenumber]
} -cleanup {
rename linenumber {}
} -result 1
test foreach-10.1 {foreach: [Bug 1671087]} -setup {
proc demo {} {
set vals {1 2 3 4}
trace add variable x write {string length $vals ;# }
foreach {x y} $vals {format $y}
}
|
| ︙ | ︙ |