tcl/tests/platform.test

   1 # The file tests the tcl_platform variable
   2 #
   3 # This file contains a collection of tests for one or more of the Tcl
   4 # built-in commands.  Sourcing this file into Tcl runs the tests and
   5 # generates output for errors.  No output means no errors were found.
   6 #
   7 # Copyright (c) 1999 by Scriptics Corporation
   8 #
   9 # See the file "license.terms" for information on usage and redistribution
  10 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  11 #
  12 # RCS: @(#)
  13
  14 if {[lsearch [namespace children] ::tcltest] == -1} {
  15     package require tcltest
  16     namespace import -force ::tcltest::*
  17 }
  18
  19 test platform-1.1 {TclpSetVariables: tcl_platform} {
  20     interp create i
  21     i eval {catch {unset tcl_platform(debug)}}
  22     i eval {catch {unset tcl_platform(threaded)}}
  23     set result [i eval {lsort [array names tcl_platform]}]
  24     interp delete i
  25     set result
  26 } {byteOrder machine os osVersion platform user}
  27
  28 # cleanup
  29 ::tcltest::cleanupTests
  30 return
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41