diff options
| author | andreas_kupries <akupries@shaw.ca> | 2006-12-05 18:45:50 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2006-12-05 18:45:50 (GMT) |
| commit | 7a49104d3c44f44c651574cabf05deb245dc03cf (patch) | |
| tree | 31ab5f08e6d36e66e99e01a3d2f8600f7a09cefe /tests | |
| parent | 7c22ad04aa281f88dbf8b20774d7fdd84d570284 (diff) | |
| download | tcl-7a49104d3c44f44c651574cabf05deb245dc03cf.zip tcl-7a49104d3c44f44c651574cabf05deb245dc03cf.tar.gz tcl-7a49104d3c44f44c651574cabf05deb245dc03cf.tar.bz2 | |
* generic/tclBasic.c: TIP #291. Define tcl_platform element for
* doc/tclvars.n: pointerSize.
* win/Makefile.in: Added installation instructions for the platform
* win/makefile.vc: package. Added the platform package.
* win/makefile.bc:
* unix/Makefile.in:
* tests/platform.test:
* tests/safe.test:
* library/platform/platform.tcl:
* library/platform/shell.tcl:
* library/platform/pkgIndex.tcl:
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/platform.test | 2 | ||||
| -rw-r--r-- | tests/safe.test | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/platform.test b/tests/platform.test index 2236311..7eda53c 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 user wordSize} +} {byteOrder machine os osVersion 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 2c6218b..e1b4a36 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.21 2006/03/21 14:35:26 dgp Exp $ +# RCS: @(#) $Id: safe.test,v 1.22 2006/12/05 18:45:51 andreas_kupries 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 wordSize} +} {byteOrder platform pointerSize wordSize} # more test should be added to check that hostname, nameofexecutable, # aren't leaking infos, but they still do... |