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