diff options
author | dgp <dgp@users.sourceforge.net> | 2008-09-25 18:06:17 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2008-09-25 18:06:17 (GMT) |
commit | f4151635b12b2c9b62d1b638b7096875bb65bc76 (patch) | |
tree | 37a4ec871bb92da6472409b1c5e35a0f3a527b78 | |
parent | 7bf6e2558f5324998ed7af4c9b24f2f4f3f4bb49 (diff) | |
download | tcl-f4151635b12b2c9b62d1b638b7096875bb65bc76.zip tcl-f4151635b12b2c9b62d1b638b7096875bb65bc76.tar.gz tcl-f4151635b12b2c9b62d1b638b7096875bb65bc76.tar.bz2 |
* tests/platform.test: Update tests to expect revised results
* tests/safe.test: corresponding to the TIP 315 change.
-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... |