Tcl Source Code

Check-in [d7d48d477c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Test of shimmer segfault.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tip-421
Files: files | file ages | folders
SHA3-256: d7d48d477c962c077f911069c2cd96a3e5599d6b5236122cf5a84a9ba05fc339
User & Date: dgp 2018-04-17 03:48:47.951
Context
2018-04-17
11:11
Satisfy test var-23.14 check-in: d18e291b03 user: dgp tags: tip-421
03:48
Test of shimmer segfault. check-in: d7d48d477c user: dgp tags: tip-421
2018-04-16
14:15
Memleak fix from Brad Lanam. check-in: d5fefc5a1d user: dgp tags: tip-421
Changes
Unified Diff Ignore Whitespace Patch
Changes to tests/var.test.
1139
1140
1141
1142
1143
1144
1145









1146
1147
1148
1149
1150
1151
1152
    }
    set ::countarrayfor
} -cleanup {
    unset -nocomplain ::countarrayfor
    unset -nocomplain ::a
    unset -nocomplain reslist
} -result 3










catch {namespace delete ns}
catch {unset arr}
catch {unset v}

catch {rename getbytes ""}
catch {rename p ""}







>
>
>
>
>
>
>
>
>







1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
    }
    set ::countarrayfor
} -cleanup {
    unset -nocomplain ::countarrayfor
    unset -nocomplain ::a
    unset -nocomplain reslist
} -result 3
test var-23.14 {array for, shared arguments} -setup {
    set vn {k v}
    unset -nocomplain $vn
} -body {
    array set $vn {a 1 b 2 c 3}
    array for $vn $vn {}
} -cleanup {
    unset -nocomplain $vn vn
} -result {}

catch {namespace delete ns}
catch {unset arr}
catch {unset v}

catch {rename getbytes ""}
catch {rename p ""}