diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/safe.test | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/tests/safe.test b/tests/safe.test index b453543..48782cf 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: safe.test,v 1.7 1999/06/26 20:55:12 rjohnson Exp $ +# RCS: @(#) $Id: safe.test,v 1.8 1999/07/22 23:45:52 redman Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -180,6 +180,10 @@ test safe-6.3 {test safe interpreters knowledge of the world} { [lsearch $r "debug"] != -1} { set r [lreplace $r 1 1] } + set threaded [lsearch $r "threaded"] + if {$threaded != -1} { + set r [lreplace $r $threaded $threaded] + } set r } {byteOrder platform} |