diff options
author | rjohnson <rjohnson> | 1999-04-06 00:01:35 (GMT) |
---|---|---|
committer | rjohnson <rjohnson> | 1999-04-06 00:01:35 (GMT) |
commit | de5f61704275fc09a91918402a94f198a95aec31 (patch) | |
tree | 1dffd7bc99b00b65679e34c53e5c64fd33901bae /tests/platform.test | |
parent | 93412a8513b7942d4aca49f1af7d500abeac866b (diff) | |
download | tcl-de5f61704275fc09a91918402a94f198a95aec31.zip tcl-de5f61704275fc09a91918402a94f198a95aec31.tar.gz tcl-de5f61704275fc09a91918402a94f198a95aec31.tar.bz2 |
Fixed test that would only work with debug builds.
Diffstat (limited to 'tests/platform.test')
-rw-r--r-- | tests/platform.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/platform.test b/tests/platform.test index dfef0ca..b81103c 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -17,7 +17,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} { test platform-1.1 {TclpSetVariables: tcl_platform} { interp create i - i eval {unset tcl_platform(debug)} + i eval {catch {unset tcl_platform(debug)}} set result [i eval {lsort [array names tcl_platform]}] interp delete i set result |