diff options
author | hershey <hershey> | 1999-03-12 19:51:30 (GMT) |
---|---|---|
committer | hershey <hershey> | 1999-03-12 19:51:30 (GMT) |
commit | 6ac2b4f4e0c4bb8a02ea11746f94a36d0679aabf (patch) | |
tree | e1e6d1f0eff61c14402f7735b0c64cca4c9cd339 /tests/all.tcl | |
parent | 53f8ec2a7e24bf50bf077d642099eefa32baa56a (diff) | |
download | tcl-6ac2b4f4e0c4bb8a02ea11746f94a36d0679aabf.zip tcl-6ac2b4f4e0c4bb8a02ea11746f94a36d0679aabf.tar.gz tcl-6ac2b4f4e0c4bb8a02ea11746f94a36d0679aabf.tar.bz2 |
Fixed tests to run independent of working dir.
Changed statistic printing feature in all and defs.
Diffstat (limited to 'tests/all.tcl')
-rw-r--r-- | tests/all.tcl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 8d32df9..c5ae0b6 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -7,11 +7,13 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: all.tcl,v 1.1.2.2 1999/03/11 23:50:38 hershey Exp $ +# RCS: @(#) $Id: all.tcl,v 1.1.2.3 1999/03/12 19:51:30 hershey Exp $ if {[lsearch ::test [namespace children]] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] } +set ::test::testSingleFile false + puts stdout "Tcl 8.1 tests running in interp: [info nameofexecutable]" puts stdout "Tests running in working dir: $::test::tmpDir" if {[llength $::test::skippingTests] > 0} { @@ -44,9 +46,10 @@ if {[llength $fileList] < 1} { puts "Error: no files found matching $globPattern" exit } - set timeCmd {clock format [clock seconds]} puts stdout "Tests began at [eval $timeCmd]" + +# source each of the specified tests foreach file [lsort $fileList] { set tail [file tail $file] if {[string match l.*.test $tail]} { @@ -58,4 +61,8 @@ foreach file [lsort $fileList] { puts stdout $msg } } + +# cleanup puts stdout "\nTests ended at [eval $timeCmd]" +::test::cleanupTests 1 +return |