summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2008-09-25 18:06:17 (GMT)
committerdgp <dgp@users.sourceforge.net>2008-09-25 18:06:17 (GMT)
commitf4151635b12b2c9b62d1b638b7096875bb65bc76 (patch)
tree37a4ec871bb92da6472409b1c5e35a0f3a527b78
parent7bf6e2558f5324998ed7af4c9b24f2f4f3f4bb49 (diff)
downloadtcl-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--ChangeLog3
-rw-r--r--tests/platform.test2
-rw-r--r--tests/safe.test4
3 files changed, 6 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 7ae0b15..30b94f0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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...