diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-04-17 13:49:46 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-04-17 13:49:46 (GMT) |
| commit | e5ced1c96d6213766cd6263eddcab12ba1a916a9 (patch) | |
| tree | 8455e28435ac778476275eb1dd293cc9d8f59fe7 /tests/platform.test | |
| parent | 3abaea7cf8f37548c22b194ef947257e57f5991d (diff) | |
| download | tcl-e5ced1c96d6213766cd6263eddcab12ba1a916a9.zip tcl-e5ced1c96d6213766cd6263eddcab12ba1a916a9.tar.gz tcl-e5ced1c96d6213766cd6263eddcab12ba1a916a9.tar.bz2 | |
Restore the tcl_platform(threaded) variable.
Diffstat (limited to 'tests/platform.test')
| -rw-r--r-- | tests/platform.test | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/platform.test b/tests/platform.test index 33c96ba..8cb8dcd 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -18,6 +18,8 @@ testConstraint testWinCPUID [llength [info commands testwincpuid]] test platform-1.1 {TclpSetVariables: tcl_platform} { interp create i + i eval {catch {unset tcl_platform(debug)}} + i eval {catch {unset tcl_platform(threaded)}} set result [i eval {lsort [array names tcl_platform]}] interp delete i set result |