00001 /* all.tcl --*/ 00002 /* */ 00003 /* This file contains a support module to run all of the Tcl*/ 00004 /* tests. It must be invoked using "source all.test" by */ 00005 /* a calling tcl script that has loaded the parser class it wishes to*/ 00006 /* test in this directory.*/ 00007 /* */ 00008 /* Copyright (c) 2008 Explain*/ 00009 /* http://www.explain.com.au/*/ 00010 /* Copyright (c) 2003 Zveno Pty Ltd*/ 00011 /* Copyright (c) 1998-1999 by Scriptics Corporation.*/ 00012 /* */ 00013 /* All rights reserved.*/ 00014 /* */ 00015 /* RCS: @(#) $Id: all.tcl,v 1.4 2003/12/03 20:06:36 balls Exp $*/ 00016 00017 package require Tcl 8.4 00018 package require tcltest 2.2 00019 tcltest::configure -testdir [file dirname [file normalize [info script]]] 00020 eval tcltest::configure $argv 00021 00022 tcltest::runAllTests 00023