1# all.tcl -- 2# 3# This file contains a top-level script to run all of the Tcl 4# tests. Execute it by invoking "source all.test" when running tcltest 5# in this directory. 6# 7# Copyright (c) 1998-1999 by Scriptics Corporation. 8# Copyright (c) 2000 by Ajuba Solutions 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# RCS: @(#) $Id: all.tcl,v 1.16 2002/04/10 19:57:15 hobbs Exp $ 14 15set tcltestVersion [package require tcltest] 16namespace import -force tcltest::* 17 18if {$tcl_platform(platform) == "macintosh"} { 19 tcltest::singleProcess 1 20} 21 22tcltest::testsDirectory [file dir [info script]] 23tcltest::runAllTests 24 25return 26