diff options
| -rw-r--r-- | ChangeLog | 3 | ||||
| -rw-r--r-- | tests/platform.test | 2 | ||||
| -rw-r--r-- | tests/safe.test | 4 |
3 files changed, 6 insertions, 3 deletions
@@ -2,6 +2,9 @@ TIP #315 IMPLEMENTATION + * tests/platform.test: Update tests to expect revised results + * tests/safe.test: corresponding to the TIP 315 change. + * unix/tclUnixInit.c, win/tclWinInit.c (TclpSetVariables): * doc/tclvars.n (tcl_platform): Define what character is used for separating PATH-like lists. Forms part of the tcl_platform array. diff --git a/tests/platform.test b/tests/platform.test index 7eda53c..fd9ed66 100644 --- a/tests/platform.test +++ b/tests/platform.test @@ -25,7 +25,7 @@ test platform-1.1 {TclpSetVariables: tcl_platform} { set result [i eval {lsort [array names tcl_platform]}] interp delete i set result -} {byteOrder machine os osVersion platform pointerSize user wordSize} +} {byteOrder machine os osVersion pathSeparator platform pointerSize user wordSize} # Test assumes twos-complement arithmetic, which is true of virtually # everything these days. Note that this does *not* use wide(), and diff --git a/tests/safe.test b/tests/safe.test index fb66f8c..a97ea51 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.23 2008/06/25 17:40:05 andreas_kupries Exp $ +# RCS: @(#) $Id: safe.test,v 1.24 2008/09/25 18:06:44 dgp Exp $ package require Tcl 8.5 @@ -184,7 +184,7 @@ test safe-6.3 {test safe interpreters knowledge of the world} { set r [lreplace $r $threaded $threaded] } set r -} {byteOrder platform pointerSize wordSize} +} {byteOrder pathSeparator platform pointerSize wordSize} # more test should be added to check that hostname, nameofexecutable, # aren't leaking infos, but they still do... |