diff options
| author | hershey <hershey@noemail.net> | 1999-04-07 01:59:47 (GMT) |
|---|---|---|
| committer | hershey <hershey@noemail.net> | 1999-04-07 01:59:47 (GMT) |
| commit | b9d0da18042fcfc90845625d2e357cc3b939af5c (patch) | |
| tree | d9d88e91c947b1a664841efa000abe97d8b929bf /tests/all.tcl | |
| parent | fbb7b50f775a478d0bdfa1aca73c4a043d51159b (diff) | |
| download | tk-b9d0da18042fcfc90845625d2e357cc3b939af5c.zip tk-b9d0da18042fcfc90845625d2e357cc3b939af5c.tar.gz tk-b9d0da18042fcfc90845625d2e357cc3b939af5c.tar.bz2 | |
change tcltest namespace variables from matchingTests and skippingTests to
match and skip.
FossilOrigin-Name: e1b16ff38f59f4464c035564b1de662c52bc8459
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) |