util/src/TclTk/tcl8.6.12/tests/macOSXLoad.test

   1 # Commands covered:  load unload
   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) 1995 Sun Microsystems, Inc.
   8 # Copyright (c) 1998-1999 by Scriptics Corporation.
   9 #
  10 # See the file "license.terms" for information on usage and redistribution
  11 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  12
  13 if {"::tcltest" ni [namespace children]} {
  14     package require tcltest 2.5
  15     namespace import -force ::tcltest::*
  16 }
  17
  18 set oldTSF $::tcltest::testSingleFile
  19 set ::tcltest::testSingleFile false
  20
  21 if {[testConstraint unix] && $tcl_platform(os) eq "Darwin" &&
  22         ![string match *pkga* [info loaded]]} {
  23     # On Darwin, test .bundle (un)loading in addition to .dylib
  24     set ext .bundle
  25     source [file join [file dirname [info script]] load.test]
  26     set ext .bundle
  27     source [file join [file dirname [info script]] unload.test]
  28     unset -nocomplain ext
  29 }
  30
  31 set ::tcltest::testSingleFile $oldTSF
  32 unset oldTSF
  33 ::tcltest::cleanupTests
  34 return