summaryrefslogtreecommitdiffstats
path: root/tests/platform.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/platform.test')
-rw-r--r--tests/platform.test5
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/platform.test b/tests/platform.test
index ab82d07..6596975 100644
--- a/tests/platform.test
+++ b/tests/platform.test
@@ -18,6 +18,9 @@ namespace eval ::tcl::test::platform {
variable ::tcl_platform
+::tcltest::loadTestedCommands
+catch [list package require -exact Tcltest [info patchlevel]]
+
testConstraint testCPUID [llength [info commands testcpuid]]
test platform-1.1 {TclpSetVariables: tcl_platform} {
@@ -27,7 +30,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