diff options
| author | jenn <jenn> | 2000-10-24 22:30:17 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 2000-10-24 22:30:17 (GMT) |
| commit | 5cbefa50780d8b1b97ad53388a8d92029eb63aff (patch) | |
| tree | 4911eced7fe962bad5dd1651791fa2b3762b29d9 /tests/all.tcl | |
| parent | 517724aedd37225321f8241834d1a907ec201bbd (diff) | |
| download | tcl-5cbefa50780d8b1b97ad53388a8d92029eb63aff.zip tcl-5cbefa50780d8b1b97ad53388a8d92029eb63aff.tar.gz tcl-5cbefa50780d8b1b97ad53388a8d92029eb63aff.tar.bz2 | |
* tests/all.tcl: Removed support for tcltest 1.0.
* tests/tcltest.test:
* library/tcltest1.0/tcltest.tcl:
* library/tcltest1.0/pkgIndex.tcl:
* docs/tcltest.n: Moved tcltest2 code so that it's the standard
version of tcltest. Removed all tcltest2 files
(tests/tcltest2.test, library/tcltest1.0/tcltest2.tcl,
docs/tcltest2.n).
Diffstat (limited to 'tests/all.tcl')
| -rw-r--r-- | tests/all.tcl | 47 |
1 files changed, 3 insertions, 44 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 7c7ea53..7918117 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -8,53 +8,12 @@ # Copyright (c) 2000 by Ajuba Solutions # All rights reserved. # -# RCS: @(#) $Id: all.tcl,v 1.11 2000/09/20 23:09:54 jenn Exp $ +# RCS: @(#) $Id: all.tcl,v 1.12 2000/10/24 22:30:35 jenn Exp $ set tcltestVersion [package require tcltest] namespace import -force tcltest::* -if {[package vcompare $tcltestVersion 1.0]} { - tcltest::testsDirectory [file dir [info script]] - tcltest::runAllTests -} else { - set ::tcltest::testSingleFile false - set ::tcltest::testsDirectory [file dir [info script]] - - # We need to ensure that the testsDirectory is absolute - ::tcltest::normalizePath ::tcltest::testsDirectory - - puts stdout "Tcl $tcl_patchLevel tests running in interp: [info nameofexecutabl - e]" - puts stdout "Tests running in working dir: $::tcltest::testsDirectory" - if {[llength $::tcltest::skip] > 0} { - puts stdout "Skipping tests that match: $::tcltest::skip" - } - if {[llength $::tcltest::match] > 0} { - puts stdout "Only running tests that match: $::tcltest::match" - } - - if {[llength $::tcltest::skipFiles] > 0} { - puts stdout "Skipping test files that match: $::tcltest::skipFiles" - } - if {[llength $::tcltest::matchFiles] > 0} { - puts stdout "Only sourcing test files that match: $::tcltest::matchFiles" - } - - set timeCmd {clock format [clock seconds]} - puts stdout "Tests began at [eval $timeCmd]" - - # source each of the specified tests - foreach file [lsort [::tcltest::getMatchingFiles]] { - set tail [file tail $file] - puts stdout $tail - if {[catch {source $file} msg]} { - puts stdout $msg - } - } - - # cleanup - puts stdout "\nTests ended at [eval $timeCmd]" - ::tcltest::cleanupTests 1 -} +tcltest::testsDirectory [file dir [info script]] +tcltest::runAllTests return |