diff options
Diffstat (limited to 'tests/all.tcl')
-rw-r--r-- | tests/all.tcl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index 7023b1e..8270f31 100644 --- a/tests/all.tcl +++ b/tests/all.tcl @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: all.tcl,v 1.1.2.5 1999/03/24 02:54:20 hershey Exp $ +# RCS: @(#) $Id: all.tcl,v 1.1.2.6 1999/04/07 01:59:48 hershey Exp $ if {[lsearch ::tcltest [namespace children]] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -16,11 +16,11 @@ set ::tcltest::testSingleFile false puts stdout "Tk $tk_patchLevel tests running in interp: [info nameofexecutable]" puts stdout "Tests running in working dir: $::tcltest::workingDir" -if {[llength $::tcltest::skippingTests] > 0} { - puts stdout "Skipping tests that match: $::tcltest::skippingTests" +if {[llength $::tcltest::skip] > 0} { + puts stdout "Skipping tests that match: $::tcltest::skip" } -if {[llength $::tcltest::matchingTests] > 0} { - puts stdout "Only running tests that match: $::tcltest::matchingTests" +if {[llength $::tcltest::match] > 0} { + puts stdout "Only running tests that match: $::tcltest::match" } # Use command line specified glob pattern (specified by -file or -f) |