Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | small amend (test caption and clean-up) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | bug-552ed5eac53ff5e4 |
| Files: | files | file ages | folders |
| SHA3-256: |
f83578fbf2140440dc05c0c5d8995ccc |
| User & Date: | sebres 2018-04-20 21:01:53 |
Context
|
2018-04-20
| ||
| 21:01 | small amend (test caption and clean-up) Leaf check-in: f83578fbf2 user: sebres tags: bug-552ed5eac53ff5e4 | |
| 20:41 | bug [552ed5eac53ff5e4]: added test case illustrated this bug check-in: 1283a17cbd user: sebres tags: bug-552ed5eac53ff5e4 | |
Changes
Changes to tests/compile.test.
| ︙ | ︙ | |||
1035 1036 1037 1038 1039 1040 1041 |
lappend result [concat {*}$args [continue] c]
lappend result c
}
return $result
}} P Q R S T
} {1 2 3 4 5 6 7 8 9 10}
| | | 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 |
lappend result [concat {*}$args [continue] c]
lappend result c
}
return $result
}} P Q R S T
} {1 2 3 4 5 6 7 8 9 10}
test compile-22.1 {inst startCmd/cmdcount: compile body with/without invocation} -setup {
proc retv {v} {return $v}
set i 0
foreach c {
{ set j 10; while {[retv [incr j -1]]} {set i0 0; set i1 1; set i2 2; set i3 3} }
{ set j 10; while { [incr j -1] } {set i0 0; set i1 1; set i2 2; set i3 3} }
{ foreach j [retv {9 8 7 6 4 3 2 1}] {set i0 0; set i1 1; set i2 2; set i3 3} }
{ foreach j {9 8 7 6 4 3 2 1} {set i0 0; set i1 1; set i2 2; set i3 3} }
|
| ︙ | ︙ | |||
1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 |
lappend l [expr {[info cmdcount] - $c}]
}
return $l
}
} -body {
test_comp_22
} -cleanup {
rename test_comp_22 {}
foreach i {1 2 3 4} {
rename test_comp_22_$i {}
}
unset c i
} -result {62 52 38 37}
| > | 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 |
lappend l [expr {[info cmdcount] - $c}]
}
return $l
}
} -body {
test_comp_22
} -cleanup {
rename retv {}
rename test_comp_22 {}
foreach i {1 2 3 4} {
rename test_comp_22_$i {}
}
unset c i
} -result {62 52 38 37}
|
| ︙ | ︙ |