diff options
| author | hershey <hershey> | 1999-03-24 02:54:20 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1999-03-24 02:54:20 (GMT) |
| commit | e5467d33ffebdd2d818223fe89ffc3584d9512d6 (patch) | |
| tree | f992b0c29d45450dd1dfd528d3e822c6a58f5fe6 | |
| parent | 73a64011deba4754e2f9ad4f4f5032c33b158c96 (diff) | |
| download | tk-e5467d33ffebdd2d818223fe89ffc3584d9512d6.zip tk-e5467d33ffebdd2d818223fe89ffc3584d9512d6.tar.gz tk-e5467d33ffebdd2d818223fe89ffc3584d9512d6.tar.bz2 | |
lint: changed a tcltest namespace variable name from tmpDir to
workingDir.
changes: made more tests atomic.
README is now updated to match new test suite features.
94 files changed, 205 insertions, 157 deletions
diff --git a/tests/all.tcl b/tests/all.tcl index cb34556..7023b1e 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.4 1999/03/24 01:16:26 hershey Exp $ +# RCS: @(#) $Id: all.tcl,v 1.1.2.5 1999/03/24 02:54:20 hershey Exp $ if {[lsearch ::tcltest [namespace children]] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -15,7 +15,7 @@ if {[lsearch ::tcltest [namespace children]] == -1} { set ::tcltest::testSingleFile false puts stdout "Tk $tk_patchLevel tests running in interp: [info nameofexecutable]" -puts stdout "Tests running in working dir: $::tcltest::tmpDir" +puts stdout "Tests running in working dir: $::tcltest::workingDir" if {[llength $::tcltest::skippingTests] > 0} { puts stdout "Skipping tests that match: $::tcltest::skippingTests" } @@ -75,3 +75,4 @@ return + diff --git a/tests/arc.tcl b/tests/arc.tcl index 13d1898..427525e 100644 --- a/tests/arc.tcl +++ b/tests/arc.tcl @@ -1,7 +1,7 @@ # This file creates a visual test for arcs. It is part of the Tk # visual test suite, which is invoked via the "visual" script. # -# RCS: @(#) $Id: arc.tcl,v 1.1.4.2 1999/03/24 01:16:27 hershey Exp $ +# RCS: @(#) $Id: arc.tcl,v 1.1.4.3 1999/03/24 02:54:20 hershey Exp $ catch {destroy .t} toplevel .t @@ -150,3 +150,4 @@ bind .t.c <Control-x> {.t.c delete current} + diff --git a/tests/bell.test b/tests/bell.test index 5ec8d48..c394570 100644 --- a/tests/bell.test +++ b/tests/bell.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bell.test,v 1.1.4.3 1999/03/24 01:16:28 hershey Exp $ +# RCS: @(#) $Id: bell.test,v 1.1.4.4 1999/03/24 02:54:21 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -46,3 +46,4 @@ return + diff --git a/tests/bevel.tcl b/tests/bevel.tcl index 12b8338..0e08f29 100644 --- a/tests/bevel.tcl +++ b/tests/bevel.tcl @@ -2,7 +2,7 @@ # widgets. It is part of the Tk visual test suite, which is invoked # via the "visual" script. # -# RCS: @(#) $Id: bevel.tcl,v 1.1.4.2 1999/03/24 01:16:28 hershey Exp $ +# RCS: @(#) $Id: bevel.tcl,v 1.1.4.3 1999/03/24 02:54:22 hershey Exp $ catch {destroy .t} toplevel .t @@ -138,3 +138,4 @@ foreach i {1 2 3} { + diff --git a/tests/bgerror.test b/tests/bgerror.test index b92ac31..faf085a 100644 --- a/tests/bgerror.test +++ b/tests/bgerror.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bgerror.test,v 1.1.4.3 1999/03/24 01:16:29 hershey Exp $ +# RCS: @(#) $Id: bgerror.test,v 1.1.4.4 1999/03/24 02:54:22 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -70,3 +70,4 @@ return + diff --git a/tests/bind.test b/tests/bind.test index bef25a0..9cb295d 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bind.test,v 1.1.4.5 1999/03/24 01:16:29 hershey Exp $ +# RCS: @(#) $Id: bind.test,v 1.1.4.6 1999/03/24 02:54:23 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -2583,3 +2583,4 @@ return + diff --git a/tests/bitmap.test b/tests/bitmap.test index d5a5a37..ac91e5c 100644 --- a/tests/bitmap.test +++ b/tests/bitmap.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bitmap.test,v 1.1.2.4 1999/03/24 01:16:30 hershey Exp $ +# RCS: @(#) $Id: bitmap.test,v 1.1.2.5 1999/03/24 02:54:23 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -112,3 +112,4 @@ return + diff --git a/tests/border.test b/tests/border.test index 70ff45f..a713d76 100644 --- a/tests/border.test +++ b/tests/border.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: border.test,v 1.1.2.4 1999/03/24 01:16:30 hershey Exp $ +# RCS: @(#) $Id: border.test,v 1.1.2.5 1999/03/24 02:54:24 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -189,3 +189,4 @@ return + diff --git a/tests/bugs.tcl b/tests/bugs.tcl index e7dbc2c..7bece79 100644 --- a/tests/bugs.tcl +++ b/tests/bugs.tcl @@ -8,7 +8,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: bugs.tcl,v 1.1.4.2 1999/03/24 01:16:31 hershey Exp $ +# RCS: @(#) $Id: bugs.tcl,v 1.1.4.3 1999/03/24 02:54:25 hershey Exp $ if {[info procs test] != "test"} { source defs @@ -40,3 +40,4 @@ test crash-1.1 {color} { + diff --git a/tests/butGeom.tcl b/tests/butGeom.tcl index d12e9a5..3756df3 100644 --- a/tests/butGeom.tcl +++ b/tests/butGeom.tcl @@ -1,7 +1,7 @@ # This file creates a visual test for button layout. It is part of # the Tk visual test suite, which is invoked via the "visual" script. # -# RCS: @(#) $Id: butGeom.tcl,v 1.1.4.2 1999/03/24 01:16:31 hershey Exp $ +# RCS: @(#) $Id: butGeom.tcl,v 1.1.4.3 1999/03/24 02:54:25 hershey Exp $ catch {destroy .t} toplevel .t @@ -125,3 +125,4 @@ proc config {option value} { + diff --git a/tests/butGeom2.tcl b/tests/butGeom2.tcl index 469037a..72e30be 100644 --- a/tests/butGeom2.tcl +++ b/tests/butGeom2.tcl @@ -1,7 +1,7 @@ # This file creates a visual test for button layout. It is part of # the Tk visual test suite, which is invoked via the "visual" script. # -# RCS: @(#) $Id: butGeom2.tcl,v 1.1.4.2 1999/03/24 01:16:32 hershey Exp $ +# RCS: @(#) $Id: butGeom2.tcl,v 1.1.4.3 1999/03/24 02:54:26 hershey Exp $ catch {destroy .t} toplevel .t @@ -123,3 +123,4 @@ proc config-but {option value} { + diff --git a/tests/button.test b/tests/button.test index 99fe81a..9d52562 100644 --- a/tests/button.test +++ b/tests/button.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: button.test,v 1.1.4.4 1999/03/24 01:16:32 hershey Exp $ +# RCS: @(#) $Id: button.test,v 1.1.4.5 1999/03/24 02:54:26 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\"" @@ -794,3 +794,4 @@ return + diff --git a/tests/canvImg.test b/tests/canvImg.test index 812619f..ca6882e 100644 --- a/tests/canvImg.test +++ b/tests/canvImg.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvImg.test,v 1.1.4.3 1999/03/24 01:16:33 hershey Exp $ +# RCS: @(#) $Id: canvImg.test,v 1.1.4.4 1999/03/24 02:54:27 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" @@ -410,3 +410,4 @@ return + diff --git a/tests/canvPs.test b/tests/canvPs.test index a872c61..f31230d 100644 --- a/tests/canvPs.test +++ b/tests/canvPs.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvPs.test,v 1.1.4.3 1999/03/24 01:16:34 hershey Exp $ +# RCS: @(#) $Id: canvPs.test,v 1.1.4.4 1999/03/24 02:54:28 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -114,3 +114,4 @@ return + diff --git a/tests/canvPsArc.tcl b/tests/canvPsArc.tcl index 1b2e180..5f363bf 100644 --- a/tests/canvPsArc.tcl +++ b/tests/canvPsArc.tcl @@ -2,7 +2,7 @@ # for bitmaps in canvases. It is part of the Tk visual test suite, # which is invoked via the "visual" script. # -# RCS: @(#) $Id: canvPsArc.tcl,v 1.1.4.2 1999/03/24 01:16:34 hershey Exp $ +# RCS: @(#) $Id: canvPsArc.tcl,v 1.1.4.3 1999/03/24 02:54:28 hershey Exp $ catch {destroy .t} toplevel .t @@ -55,3 +55,4 @@ $c create arc 3.5i 4.5i 5.5i 5.5i -style arc -start 45 -extent -90 -width 1m \ + diff --git a/tests/canvPsBmap.tcl b/tests/canvPsBmap.tcl index ead8683..5e0c89c 100644 --- a/tests/canvPsBmap.tcl +++ b/tests/canvPsBmap.tcl @@ -2,7 +2,7 @@ # for bitmaps in canvases. It is part of the Tk visual test suite, # which is invoked via the "visual" script. # -# RCS: @(#) $Id: canvPsBmap.tcl,v 1.1.4.2 1999/03/24 01:16:35 hershey Exp $ +# RCS: @(#) $Id: canvPsBmap.tcl,v 1.1.4.3 1999/03/24 02:54:29 hershey Exp $ catch {destroy .t} toplevel .t @@ -81,3 +81,4 @@ $c create rect 5.47i 5.47i 5.53i 5.53i -fill {} -outline black + diff --git a/tests/canvPsGrph.tcl b/tests/canvPsGrph.tcl index d9aff81..8437716 100644 --- a/tests/canvPsGrph.tcl +++ b/tests/canvPsGrph.tcl @@ -2,7 +2,7 @@ # for some of the graphical objects in canvases. It is part of the Tk # visual test suite, which is invoked via the "visual" script. # -# RCS: @(#) $Id: canvPsGrph.tcl,v 1.1.4.2 1999/03/24 01:16:36 hershey Exp $ +# RCS: @(#) $Id: canvPsGrph.tcl,v 1.1.4.3 1999/03/24 02:54:29 hershey Exp $ catch {destroy .t} toplevel .t @@ -97,3 +97,4 @@ mkObjs $c + diff --git a/tests/canvPsText.tcl b/tests/canvPsText.tcl index c4117df..00bdbd8 100644 --- a/tests/canvPsText.tcl +++ b/tests/canvPsText.tcl @@ -2,7 +2,7 @@ # for text in canvases. It is part of the Tk visual test suite, # which is invoked via the "visual" script. # -# RCS: @(#) $Id: canvPsText.tcl,v 1.1.4.2 1999/03/24 01:16:36 hershey Exp $ +# RCS: @(#) $Id: canvPsText.tcl,v 1.1.4.3 1999/03/24 02:54:30 hershey Exp $ catch {destroy .t} toplevel .t @@ -93,3 +93,4 @@ proc setStipple c { + diff --git a/tests/canvRect.test b/tests/canvRect.test index 79adc89..5a6a76f 100644 --- a/tests/canvRect.test +++ b/tests/canvRect.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvRect.test,v 1.1.4.3 1999/03/24 01:16:37 hershey Exp $ +# RCS: @(#) $Id: canvRect.test,v 1.1.4.4 1999/03/24 02:54:31 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -342,3 +342,4 @@ return + diff --git a/tests/canvText.test b/tests/canvText.test index 751b1f0..7abcedb 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvText.test,v 1.1.4.5 1999/03/24 01:16:37 hershey Exp $ +# RCS: @(#) $Id: canvText.test,v 1.1.4.6 1999/03/24 02:54:31 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -505,3 +505,4 @@ return + diff --git a/tests/canvWind.test b/tests/canvWind.test index c625606..6156730 100644 --- a/tests/canvWind.test +++ b/tests/canvWind.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvWind.test,v 1.1.4.4 1999/03/24 01:16:38 hershey Exp $ +# RCS: @(#) $Id: canvWind.test,v 1.1.4.5 1999/03/24 02:54:32 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -147,3 +147,4 @@ return + diff --git a/tests/canvas.test b/tests/canvas.test index ad4860e..13fc273 100644 --- a/tests/canvas.test +++ b/tests/canvas.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: canvas.test,v 1.1.4.5 1999/03/24 01:16:38 hershey Exp $ +# RCS: @(#) $Id: canvas.test,v 1.1.4.6 1999/03/24 02:54:33 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -259,3 +259,4 @@ return + diff --git a/tests/clipboard.test b/tests/clipboard.test index 3223df9..533446e 100644 --- a/tests/clipboard.test +++ b/tests/clipboard.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: clipboard.test,v 1.1.4.3 1999/03/24 01:16:39 hershey Exp $ +# RCS: @(#) $Id: clipboard.test,v 1.1.4.4 1999/03/24 02:54:34 hershey Exp $ # # Note: Multiple display clipboard handling will only be tested if the @@ -247,3 +247,4 @@ return + diff --git a/tests/clrpick.test b/tests/clrpick.test index c00727c..911e91d 100644 --- a/tests/clrpick.test +++ b/tests/clrpick.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: clrpick.test,v 1.1.4.4 1999/03/24 01:16:39 hershey Exp $ +# RCS: @(#) $Id: clrpick.test,v 1.1.4.5 1999/03/24 02:54:34 hershey Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -221,3 +221,4 @@ return + diff --git a/tests/cmap.tcl b/tests/cmap.tcl index 5f81893..748d017 100644 --- a/tests/cmap.tcl +++ b/tests/cmap.tcl @@ -2,7 +2,7 @@ # property. It is part of the Tk visual test suite, which is invoked # via the "visual" script. # -# RCS: @(#) $Id: cmap.tcl,v 1.1.4.2 1999/03/24 01:16:40 hershey Exp $ +# RCS: @(#) $Id: cmap.tcl,v 1.1.4.3 1999/03/24 02:54:35 hershey Exp $ catch {destroy .t} toplevel .t -colormap new @@ -71,3 +71,4 @@ colors .t2.f 0 0 4 + diff --git a/tests/cmds.test b/tests/cmds.test index 147a0b5..ca353fb 100644 --- a/tests/cmds.test +++ b/tests/cmds.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: cmds.test,v 1.1.4.3 1999/03/24 01:16:40 hershey Exp $ +# RCS: @(#) $Id: cmds.test,v 1.1.4.4 1999/03/24 02:54:35 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -56,3 +56,4 @@ return + diff --git a/tests/color.test b/tests/color.test index a47d573..f45aef9 100644 --- a/tests/color.test +++ b/tests/color.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: color.test,v 1.1.4.4 1999/03/24 01:16:41 hershey Exp $ +# RCS: @(#) $Id: color.test,v 1.1.4.5 1999/03/24 02:54:36 hershey Exp $ if {[info commands testcolor] != "testcolor"} { puts "testcolor command not available; skipping tests" @@ -291,3 +291,4 @@ return + diff --git a/tests/config.test b/tests/config.test index 323a411..40a0422 100644 --- a/tests/config.test +++ b/tests/config.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: config.test,v 1.1.2.4 1999/03/24 01:16:41 hershey Exp $ +# RCS: @(#) $Id: config.test,v 1.1.2.5 1999/03/24 02:54:36 hershey Exp $ if {[info command testobjconfig] != "testobjconfig"} { puts "This application hasn't been compiled with the \"testobjconfig\"" @@ -835,3 +835,4 @@ return + diff --git a/tests/cursor.test b/tests/cursor.test index 347e7b8..bbae72b 100644 --- a/tests/cursor.test +++ b/tests/cursor.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: cursor.test,v 1.1.2.4 1999/03/24 01:16:42 hershey Exp $ +# RCS: @(#) $Id: cursor.test,v 1.1.2.5 1999/03/24 02:54:37 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -112,3 +112,4 @@ return + diff --git a/tests/defs.tcl b/tests/defs.tcl index 6ef9841..dab7117 100644 --- a/tests/defs.tcl +++ b/tests/defs.tcl @@ -11,7 +11,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: defs.tcl,v 1.1.2.4 1999/03/24 01:37:59 hershey Exp $ +# RCS: @(#) $Id: defs.tcl,v 1.1.2.5 1999/03/24 02:54:37 hershey Exp $ # Initialize wish shell if {[info exists tk_version]} { @@ -22,12 +22,11 @@ if {[info exists tk_version]} { set auto_path [list [info library]] } -# create the "test" namespace for all testing variables and procedures +# create the "tcltest" namespace for all testing variables and procedures namespace eval tcltest { set procList [list test cleanupTests dotests saveState restoreState \ normalizeMsg makeFile removeFile makeDirectory removeDirectory \ - viewFile bytestring set_iso8859_1_locale restore_locale \ - setTmpDir] + viewFile bytestring set_iso8859_1_locale restore_locale] if {[info exists tk_version]} { lappend procList setupbg dobg bgReady cleanupbg fixfocus } @@ -67,10 +66,10 @@ namespace eval tcltest { variable failFiles {} # Tests should remove all files they create. The test suite will - # check tmpDir for files created by the tests. ::tcltest::filesMade - # keeps track of such files created using the ::tcltest::makeFile and - # ::tcltest::makeDirectory procedures. ::tcltest::filesExisted stores - # the names of pre-existing files. + # check the current working dir for files created by the tests. + # ::tcltest::filesMade keeps track of such files created using the + # ::tcltest::makeFile and ::tcltest::makeDirectory procedures. + # ::tcltest::filesExisted stores the names of pre-existing files. variable filesMade {} variable filesExisted {} @@ -308,49 +307,9 @@ proc ::tcltest::initConfig {} { ::tcltest::initConfig -# ::tcltest::setTmpDir -- -# -# Set the ::tcltest::tmpDir to the specified value. If the path -# is relative, make it absolute. If the file exists but is not -# a dir, then return an error. If the dir does not already -# exist, create it. If you cannot create it, then return an error. -# -# Arguments: -# value the new value of ::tcltest::tmpDir -# -# Results: -# ::tcltest::tmpDir is set to <value> and created if it didn't already -# exist. The working dir is changed to ::tcltest::tmpDir. - -proc ::tcltest::setTmpDir {value} { - - set ::tcltest::tmpDir $value - - if {[string compare [file pathtype $::tcltest::tmpDir] absolute] != 0} { - set ::tcltest::tmpDir [file join [pwd] $::tcltest::tmpDir] - } - if {[file exists $::tcltest::tmpDir]} { - if {![file isdir $::tcltest::tmpDir]} { - puts stderr "Error: bad argument \"$value\" to -tmpdir:" - puts stderr " \"$::tcltest::tmpDir\"" - puts stderr " is not a directory" - exit - } - } else { - file mkdir $::tcltest::tmpDir - } - - # change the working dir to tmpDir and add the existing files in - # tmpDir to the filesExisted list. - cd $::tcltest::tmpDir - foreach file [glob -nocomplain [file join [pwd] *]] { - lappend ::tcltest::filesExisted $file - } -} - # ::tcltest::processCmdLineArgs -- # -# Use command line args to set the tmpDir, verbose, skippingTests, and +# Use command line args to set the verbose, skippingTests, and # matchingTests variables. # # Arguments: @@ -376,10 +335,10 @@ proc ::tcltest::processCmdLineArgs {} { exit } - # Allow for 1-char abbreviations, where applicable (e.g., -tmpdir == -t). + # Allow for 1-char abbreviations, where applicable (e.g., -match == -m). # Note that -verbose cannot be abbreviated to -v in wish because it conflicts # with the wish option -visual. - foreach arg {-verbose -match -skip -constraints -tmpdir} { + foreach arg {-verbose -match -skip -constraints} { set abbrev [string range $arg 0 1] if {([info exists flag($abbrev)]) && \ ([lsearch -exact $flagArray $arg] < \ @@ -388,15 +347,10 @@ proc ::tcltest::processCmdLineArgs {} { } } - # Set ::tcltest::tmpDir to the arg of the -tmpdir flag, if given. - # ::tcltest::tmpDir defaults to [pwd]. - # Save the names of files that already exist in ::tcltest::tmpDir. - if {[info exists flag(-tmpdir)]} { - ::tcltest::setTmpDir $flag(-tmpdir) - } else { - set ::tcltest::tmpDir [pwd] - } - foreach file [glob -nocomplain [file join $::tcltest::tmpDir *]] { + # Set ::tcltest::workingDir to [pwd]. + # Save the names of files that already exist in ::tcltest::workingDir. + set ::tcltest::workingDir [pwd] + foreach file [glob -nocomplain [file join $::tcltest::workingDir *]] { lappend ::tcltest::filesExisted [file tail $file] } @@ -482,11 +436,11 @@ proc ::tcltest::cleanupTests {{calledFromAllFile 0}} { } } - # report the names of files in ::tcltest::tmpDir that were not + # report the names of files in ::tcltest::workingDir that were not # pre-existing. set currentFiles {} - foreach file [glob -nocomplain [file join $::tcltest::tmpDir *]] { + foreach file [glob -nocomplain [file join $::tcltest::workingDir *]] { lappend currentFiles [file tail $file] } set filesNew {} @@ -1012,3 +966,4 @@ if {[info exists tk_version]} { # Need to catch the import because it fails if defs.tcl is sourced # more than once. catch {namespace import ::tcltest::*} + diff --git a/tests/entry.test b/tests/entry.test index e4267de..0ed6c4c 100644 --- a/tests/entry.test +++ b/tests/entry.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: entry.test,v 1.1.4.5 1999/03/24 01:16:43 hershey Exp $ +# RCS: @(#) $Id: entry.test,v 1.1.4.6 1999/03/24 02:54:38 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\"" @@ -1374,3 +1374,4 @@ return + diff --git a/tests/event.test b/tests/event.test index ed686a6..0b6ee17 100644 --- a/tests/event.test +++ b/tests/event.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: event.test,v 1.1.4.3 1999/03/24 01:16:44 hershey Exp $ +# RCS: @(#) $Id: event.test,v 1.1.4.4 1999/03/24 02:54:39 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -54,3 +54,4 @@ return + diff --git a/tests/filebox.test b/tests/filebox.test index 510a557..2b591b1 100644 --- a/tests/filebox.test +++ b/tests/filebox.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: filebox.test,v 1.1.4.6 1999/03/24 01:16:45 hershey Exp $ +# RCS: @(#) $Id: filebox.test,v 1.1.4.7 1999/03/24 02:54:39 hershey Exp $ # set tk_strictMotif_old $tk_strictMotif @@ -309,3 +309,4 @@ return + diff --git a/tests/focus.test b/tests/focus.test index 20f935c..e5d33a1 100644 --- a/tests/focus.test +++ b/tests/focus.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: focus.test,v 1.1.4.4 1999/03/24 01:16:45 hershey Exp $ +# RCS: @(#) $Id: focus.test,v 1.1.4.5 1999/03/24 02:54:40 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -664,3 +664,4 @@ return + diff --git a/tests/focusTcl.test b/tests/focusTcl.test index 8059c40..68185c5 100644 --- a/tests/focusTcl.test +++ b/tests/focusTcl.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: focusTcl.test,v 1.1.4.3 1999/03/24 01:16:46 hershey Exp $ +# RCS: @(#) $Id: focusTcl.test,v 1.1.4.4 1999/03/24 02:54:40 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -292,3 +292,4 @@ return + diff --git a/tests/font.test b/tests/font.test index 414254e..290361e 100644 --- a/tests/font.test +++ b/tests/font.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: font.test,v 1.1.4.4 1999/03/24 01:16:46 hershey Exp $ +# RCS: @(#) $Id: font.test,v 1.1.4.5 1999/03/24 02:54:41 hershey Exp $ if {[info commands testfont] != "testfont"} { puts "testfont command not available; skipping tests" @@ -1385,3 +1385,4 @@ return + diff --git a/tests/frame.test b/tests/frame.test index fa49132..6567a3c 100644 --- a/tests/frame.test +++ b/tests/frame.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: frame.test,v 1.1.4.3 1999/03/24 01:16:47 hershey Exp $ +# RCS: @(#) $Id: frame.test,v 1.1.4.4 1999/03/24 02:54:42 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -630,3 +630,4 @@ return + diff --git a/tests/geometry.test b/tests/geometry.test index 950bad7..a22a7e6 100644 --- a/tests/geometry.test +++ b/tests/geometry.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: geometry.test,v 1.1.4.3 1999/03/24 01:16:48 hershey Exp $ +# RCS: @(#) $Id: geometry.test,v 1.1.4.4 1999/03/24 02:54:42 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -264,3 +264,4 @@ return + diff --git a/tests/get.test b/tests/get.test index 34a7e71..5f75b4b 100644 --- a/tests/get.test +++ b/tests/get.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: get.test,v 1.1.2.4 1999/03/24 01:16:48 hershey Exp $ +# RCS: @(#) $Id: get.test,v 1.1.2.5 1999/03/24 02:54:43 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -94,3 +94,4 @@ return + diff --git a/tests/grid.test b/tests/grid.test index 76412ba..b79ffa9 100644 --- a/tests/grid.test +++ b/tests/grid.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: grid.test,v 1.1.4.4 1999/03/24 01:16:49 hershey Exp $ +# RCS: @(#) $Id: grid.test,v 1.1.4.5 1999/03/24 02:54:44 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1227,3 +1227,4 @@ return + diff --git a/tests/id.test b/tests/id.test index 1005bfc..058febc 100644 --- a/tests/id.test +++ b/tests/id.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: id.test,v 1.1.4.3 1999/03/24 01:16:50 hershey Exp $ +# RCS: @(#) $Id: id.test,v 1.1.4.4 1999/03/24 02:54:44 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -115,3 +115,4 @@ return + diff --git a/tests/image.test b/tests/image.test index a15944c..e54ed40 100644 --- a/tests/image.test +++ b/tests/image.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: image.test,v 1.1.4.3 1999/03/24 01:16:50 hershey Exp $ +# RCS: @(#) $Id: image.test,v 1.1.4.4 1999/03/24 02:54:45 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" @@ -370,3 +370,4 @@ return + diff --git a/tests/imgBmap.test b/tests/imgBmap.test index d79bfe5..65f6643 100644 --- a/tests/imgBmap.test +++ b/tests/imgBmap.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: imgBmap.test,v 1.1.4.3 1999/03/24 01:16:51 hershey Exp $ +# RCS: @(#) $Id: imgBmap.test,v 1.1.4.4 1999/03/24 02:54:46 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -487,3 +487,4 @@ return + diff --git a/tests/imgPPM.test b/tests/imgPPM.test index 6e9139c..f09638a 100644 --- a/tests/imgPPM.test +++ b/tests/imgPPM.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: imgPPM.test,v 1.1.4.3 1999/03/24 01:16:51 hershey Exp $ +# RCS: @(#) $Id: imgPPM.test,v 1.1.4.4 1999/03/24 02:54:46 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -169,3 +169,4 @@ return + diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index 88ce401..2a5dcc1 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -9,7 +9,7 @@ # # Author: Paul Mackerras (paulus@cs.anu.edu.au) # -# RCS: @(#) $Id: imgPhoto.test,v 1.1.4.4 1999/03/24 01:16:52 hershey Exp $ +# RCS: @(#) $Id: imgPhoto.test,v 1.1.4.5 1999/03/24 02:54:47 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -29,7 +29,7 @@ update # temporarily copy the README fiel from testsDir to tmpDir if {![file exists README]} { - set newREADME [file join $::tcltest::tmpDir README] + set newREADME [file join $::tcltest::workingDir README] file copy [file join $::tcltest::testsDir README] $newREADME set removeREADME 1 } @@ -457,3 +457,4 @@ return + diff --git a/tests/listbox.test b/tests/listbox.test index 8488da3..261319a 100644 --- a/tests/listbox.test +++ b/tests/listbox.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: listbox.test,v 1.1.4.3 1999/03/24 01:16:52 hershey Exp $ +# RCS: @(#) $Id: listbox.test,v 1.1.4.4 1999/03/24 02:54:47 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1671,3 +1671,4 @@ return + diff --git a/tests/macEmbed.test b/tests/macEmbed.test index a33690b..6f9a908 100644 --- a/tests/macEmbed.test +++ b/tests/macEmbed.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macEmbed.test,v 1.1.4.3 1999/03/24 01:16:53 hershey Exp $ +# RCS: @(#) $Id: macEmbed.test,v 1.1.4.4 1999/03/24 02:54:48 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -308,3 +308,4 @@ return + diff --git a/tests/macFont.test b/tests/macFont.test index b04a16d..ade2af1 100644 --- a/tests/macFont.test +++ b/tests/macFont.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macFont.test,v 1.1.4.4 1999/03/24 01:16:54 hershey Exp $ +# RCS: @(#) $Id: macFont.test,v 1.1.4.5 1999/03/24 02:54:49 hershey Exp $ if {$tcl_platform(platform)!="macintosh"} { puts "skipping: Mac only tests..." @@ -298,3 +298,4 @@ return + diff --git a/tests/macMenu.test b/tests/macMenu.test index 9f90112..1be6095 100644 --- a/tests/macMenu.test +++ b/tests/macMenu.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macMenu.test,v 1.1.4.3 1999/03/24 01:16:54 hershey Exp $ +# RCS: @(#) $Id: macMenu.test,v 1.1.4.4 1999/03/24 02:54:49 hershey Exp $ if {$tcl_platform(platform) != "macintosh"} { puts "skipping: Mac only tests..." @@ -1577,3 +1577,4 @@ return + diff --git a/tests/macWinMenu.test b/tests/macWinMenu.test index 1f30dc8..6c55470 100644 --- a/tests/macWinMenu.test +++ b/tests/macWinMenu.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macWinMenu.test,v 1.1.4.3 1999/03/24 01:16:55 hershey Exp $ +# RCS: @(#) $Id: macWinMenu.test,v 1.1.4.4 1999/03/24 02:54:50 hershey Exp $ if {$tcl_platform(platform) == "unix"} { puts "skipping: Unix only tests..." @@ -129,3 +129,4 @@ return + diff --git a/tests/macscrollbar.test b/tests/macscrollbar.test index f518888..e9c4aca 100644 --- a/tests/macscrollbar.test +++ b/tests/macscrollbar.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: macscrollbar.test,v 1.1.4.3 1999/03/24 01:16:56 hershey Exp $ +# RCS: @(#) $Id: macscrollbar.test,v 1.1.4.4 1999/03/24 02:54:51 hershey Exp $ # Only run this test on the Macintosh if {$tcl_platform(platform) != "macintosh"} { @@ -116,3 +116,4 @@ return + diff --git a/tests/main.test b/tests/main.test index f3527c3..c89b1a6 100644 --- a/tests/main.test +++ b/tests/main.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: main.test,v 1.1.4.5 1999/03/24 01:16:56 hershey Exp $ +# RCS: @(#) $Id: main.test,v 1.1.4.6 1999/03/24 02:54:51 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -46,3 +46,4 @@ return + diff --git a/tests/menu.test b/tests/menu.test index 55a3844..8944a3d 100644 --- a/tests/menu.test +++ b/tests/menu.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menu.test,v 1.1.4.5 1999/03/24 01:16:57 hershey Exp $ +# RCS: @(#) $Id: menu.test,v 1.1.4.6 1999/03/24 02:54:52 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" @@ -2448,3 +2448,4 @@ return + diff --git a/tests/menuDraw.test b/tests/menuDraw.test index 97a9114..e6d6157 100644 --- a/tests/menuDraw.test +++ b/tests/menuDraw.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menuDraw.test,v 1.1.4.4 1999/03/24 01:16:57 hershey Exp $ +# RCS: @(#) $Id: menuDraw.test,v 1.1.4.5 1999/03/24 02:54:52 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" @@ -548,3 +548,4 @@ return + diff --git a/tests/menubut.test b/tests/menubut.test index 8c9a145..a77b628 100644 --- a/tests/menubut.test +++ b/tests/menubut.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: menubut.test,v 1.1.4.4 1999/03/24 01:16:58 hershey Exp $ +# RCS: @(#) $Id: menubut.test,v 1.1.4.5 1999/03/24 02:54:53 hershey Exp $ # XXX This test file is woefully incomplete right now. If any part # XXX of a procedure has tests then the whole procedure has tests, @@ -364,3 +364,4 @@ return + diff --git a/tests/msgbox.test b/tests/msgbox.test index 041e1d2..961c3ef 100644 --- a/tests/msgbox.test +++ b/tests/msgbox.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: msgbox.test,v 1.1.4.5 1999/03/24 01:16:59 hershey Exp $ +# RCS: @(#) $Id: msgbox.test,v 1.1.4.6 1999/03/24 02:54:53 hershey Exp $ # if {[lsearch [namespace children] ::tcltest] == -1} { @@ -169,3 +169,4 @@ return + diff --git a/tests/obj.test b/tests/obj.test index 87cdd2f..c9cf692 100644 --- a/tests/obj.test +++ b/tests/obj.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: obj.test,v 1.1.2.4 1999/03/24 01:16:59 hershey Exp $ +# RCS: @(#) $Id: obj.test,v 1.1.2.5 1999/03/24 02:54:54 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -49,3 +49,4 @@ return + diff --git a/tests/oldpack.test b/tests/oldpack.test index e5a15b6..ad231ce 100644 --- a/tests/oldpack.test +++ b/tests/oldpack.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: oldpack.test,v 1.1.4.3 1999/03/24 01:17:00 hershey Exp $ +# RCS: @(#) $Id: oldpack.test,v 1.1.4.4 1999/03/24 02:54:54 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -521,3 +521,4 @@ return + diff --git a/tests/option.test b/tests/option.test index 0486f56..f6e8935 100644 --- a/tests/option.test +++ b/tests/option.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: option.test,v 1.1.4.3 1999/03/24 01:17:00 hershey Exp $ +# RCS: @(#) $Id: option.test,v 1.1.4.4 1999/03/24 02:54:55 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -245,3 +245,4 @@ return + diff --git a/tests/pack.test b/tests/pack.test index 13e021a..67558c0 100644 --- a/tests/pack.test +++ b/tests/pack.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: pack.test,v 1.1.4.3 1999/03/24 01:17:01 hershey Exp $ +# RCS: @(#) $Id: pack.test,v 1.1.4.4 1999/03/24 02:54:56 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -983,3 +983,4 @@ return + diff --git a/tests/place.test b/tests/place.test index f65a56b..dacebe5 100644 --- a/tests/place.test +++ b/tests/place.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: place.test,v 1.1.4.3 1999/03/24 01:17:02 hershey Exp $ +# RCS: @(#) $Id: place.test,v 1.1.4.4 1999/03/24 02:54:56 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -233,3 +233,4 @@ return + diff --git a/tests/raise.test b/tests/raise.test index 8cfcb2a..5d91876 100644 --- a/tests/raise.test +++ b/tests/raise.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: raise.test,v 1.1.4.3 1999/03/24 01:17:02 hershey Exp $ +# RCS: @(#) $Id: raise.test,v 1.1.4.4 1999/03/24 02:54:57 hershey Exp $ if {[info commands testmakeexist] == {}} { puts "This application hasn't been compiled with the \"testmakeexist\"" @@ -313,3 +313,4 @@ return + diff --git a/tests/safe.test b/tests/safe.test index a6a181c..1bbe81c 100644 --- a/tests/safe.test +++ b/tests/safe.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: safe.test,v 1.1.4.4 1999/03/24 01:17:03 hershey Exp $ +# RCS: @(#) $Id: safe.test,v 1.1.4.5 1999/03/24 02:54:57 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -188,3 +188,4 @@ return + diff --git a/tests/scale.test b/tests/scale.test index e6b85ee..b3067ab 100644 --- a/tests/scale.test +++ b/tests/scale.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: scale.test,v 1.1.4.6 1999/03/24 01:17:03 hershey Exp $ +# RCS: @(#) $Id: scale.test,v 1.1.4.7 1999/03/24 02:54:58 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -814,3 +814,4 @@ return + diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 57c3349..0843bff 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: scrollbar.test,v 1.1.4.3 1999/03/24 01:17:04 hershey Exp $ +# RCS: @(#) $Id: scrollbar.test,v 1.1.4.4 1999/03/24 02:54:59 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -677,3 +677,4 @@ return + diff --git a/tests/select.test b/tests/select.test index 03cfa12..712c6d6 100644 --- a/tests/select.test +++ b/tests/select.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: select.test,v 1.1.4.3 1999/03/24 01:17:05 hershey Exp $ +# RCS: @(#) $Id: select.test,v 1.1.4.4 1999/03/24 02:54:59 hershey Exp $ # # Note: Multiple display selection handling will only be tested if the @@ -999,3 +999,4 @@ return + diff --git a/tests/send.test b/tests/send.test index 0797b38..7976bc2 100644 --- a/tests/send.test +++ b/tests/send.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: send.test,v 1.1.4.5 1999/03/24 01:17:05 hershey Exp $ +# RCS: @(#) $Id: send.test,v 1.1.4.6 1999/03/24 02:55:00 hershey Exp $ if {$tcl_platform(platform) == "macintosh"} { puts "send is not available on the Mac - skipping tests" @@ -671,3 +671,4 @@ return + diff --git a/tests/text.test b/tests/text.test index 16eb0e5..278871b 100644 --- a/tests/text.test +++ b/tests/text.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: text.test,v 1.1.4.4 1999/03/24 01:17:06 hershey Exp $ +# RCS: @(#) $Id: text.test,v 1.1.4.5 1999/03/24 02:55:00 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -1276,3 +1276,4 @@ return + diff --git a/tests/textBTree.test b/tests/textBTree.test index 132abc2..3e7b3f3 100644 --- a/tests/textBTree.test +++ b/tests/textBTree.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textBTree.test,v 1.1.4.3 1999/03/24 01:17:07 hershey Exp $ +# RCS: @(#) $Id: textBTree.test,v 1.1.4.4 1999/03/24 02:55:01 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -910,3 +910,4 @@ return + diff --git a/tests/textDisp.test b/tests/textDisp.test index b7f03dd..2b64f2f 100644 --- a/tests/textDisp.test +++ b/tests/textDisp.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textDisp.test,v 1.1.4.4 1999/03/24 01:17:07 hershey Exp $ +# RCS: @(#) $Id: textDisp.test,v 1.1.4.5 1999/03/24 02:55:02 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -2881,3 +2881,4 @@ return + diff --git a/tests/textImage.test b/tests/textImage.test index 65862cd..2375916 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textImage.test,v 1.1.4.3 1999/03/24 01:17:08 hershey Exp $ +# RCS: @(#) $Id: textImage.test,v 1.1.4.4 1999/03/24 02:55:03 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -377,3 +377,4 @@ return + diff --git a/tests/textIndex.test b/tests/textIndex.test index 0642ce0..37556b0 100644 --- a/tests/textIndex.test +++ b/tests/textIndex.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textIndex.test,v 1.1.4.4 1999/03/24 01:17:09 hershey Exp $ +# RCS: @(#) $Id: textIndex.test,v 1.1.4.5 1999/03/24 02:55:03 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -657,3 +657,4 @@ return + diff --git a/tests/textMark.test b/tests/textMark.test index c2ba2ef..5d7f3cd 100644 --- a/tests/textMark.test +++ b/tests/textMark.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textMark.test,v 1.1.4.4 1999/03/24 01:17:09 hershey Exp $ +# RCS: @(#) $Id: textMark.test,v 1.1.4.5 1999/03/24 02:55:04 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -235,3 +235,4 @@ return + diff --git a/tests/textTag.test b/tests/textTag.test index f99a926..0b80d6d 100644 --- a/tests/textTag.test +++ b/tests/textTag.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textTag.test,v 1.1.4.4 1999/03/24 01:17:10 hershey Exp $ +# RCS: @(#) $Id: textTag.test,v 1.1.4.5 1999/03/24 02:55:04 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -776,3 +776,4 @@ return + diff --git a/tests/textWind.test b/tests/textWind.test index 2d69a3a..1c05cde 100644 --- a/tests/textWind.test +++ b/tests/textWind.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textWind.test,v 1.1.4.3 1999/03/24 01:17:10 hershey Exp $ +# RCS: @(#) $Id: textWind.test,v 1.1.4.4 1999/03/24 02:55:05 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -840,3 +840,4 @@ return + diff --git a/tests/tk.test b/tests/tk.test index c5bf7d3..a3c6f8f 100644 --- a/tests/tk.test +++ b/tests/tk.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tk.test,v 1.1.4.4 1999/03/24 01:17:11 hershey Exp $ +# RCS: @(#) $Id: tk.test,v 1.1.4.5 1999/03/24 02:55:06 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -93,3 +93,4 @@ return + diff --git a/tests/unixButton.test b/tests/unixButton.test index af12b2c..d09e8c7 100644 --- a/tests/unixButton.test +++ b/tests/unixButton.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixButton.test,v 1.1.4.3 1999/03/24 01:17:12 hershey Exp $ +# RCS: @(#) $Id: unixButton.test,v 1.1.4.4 1999/03/24 02:55:06 hershey Exp $ if {$tcl_platform(platform)!="unix"} { puts "skipping: Unix only tests..." @@ -196,3 +196,4 @@ return + diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test index 84a7754..116f912 100644 --- a/tests/unixEmbed.test +++ b/tests/unixEmbed.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixEmbed.test,v 1.1.4.4 1999/03/24 01:17:12 hershey Exp $ +# RCS: @(#) $Id: unixEmbed.test,v 1.1.4.5 1999/03/24 02:55:07 hershey Exp $ if {$tcl_platform(platform) != "unix"} { puts "skipping: Unix only tests..." @@ -640,3 +640,4 @@ return + diff --git a/tests/unixFont.test b/tests/unixFont.test index 5ea1341..6dcddbd 100644 --- a/tests/unixFont.test +++ b/tests/unixFont.test @@ -12,7 +12,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixFont.test,v 1.1.4.4 1999/03/24 01:17:13 hershey Exp $ +# RCS: @(#) $Id: unixFont.test,v 1.1.4.5 1999/03/24 02:55:07 hershey Exp $ if {$tcl_platform(platform)!="unix"} { puts "skipping: Unix only tests..." @@ -306,3 +306,4 @@ return + diff --git a/tests/unixMenu.test b/tests/unixMenu.test index b393e81..359c99d 100644 --- a/tests/unixMenu.test +++ b/tests/unixMenu.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixMenu.test,v 1.1.4.4 1999/03/24 01:17:13 hershey Exp $ +# RCS: @(#) $Id: unixMenu.test,v 1.1.4.5 1999/03/24 02:55:08 hershey Exp $ if {$tcl_platform(platform) != "unix"} { puts "skipping: Unix only tests..." @@ -982,3 +982,4 @@ return + diff --git a/tests/unixSend.test b/tests/unixSend.test index a747fef..b17cf5a 100644 --- a/tests/unixSend.test +++ b/tests/unixSend.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixSend.test,v 1.1.2.4 1999/03/24 01:17:14 hershey Exp $ +# RCS: @(#) $Id: unixSend.test,v 1.1.2.5 1999/03/24 02:55:09 hershey Exp $ if {$tcl_platform(platform) == "macintosh"} { puts "send is not available on the Mac - skipping tests" @@ -672,3 +672,4 @@ return + diff --git a/tests/unixWm.test b/tests/unixWm.test index 8be018a..b14eb60 100644 --- a/tests/unixWm.test +++ b/tests/unixWm.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixWm.test,v 1.1.4.6 1999/03/24 01:17:15 hershey Exp $ +# RCS: @(#) $Id: unixWm.test,v 1.1.4.7 1999/03/24 02:55:09 hershey Exp $ if {$tcl_platform(platform) != "unix"} { puts "skipping: Unix only tests..." @@ -2401,3 +2401,4 @@ return + diff --git a/tests/util.test b/tests/util.test index 60c1d44..5951177 100644 --- a/tests/util.test +++ b/tests/util.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: util.test,v 1.1.4.3 1999/03/24 01:17:15 hershey Exp $ +# RCS: @(#) $Id: util.test,v 1.1.4.4 1999/03/24 02:55:10 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -84,3 +84,4 @@ return + diff --git a/tests/visual.test b/tests/visual.test index 19c4896..461f4b0 100644 --- a/tests/visual.test +++ b/tests/visual.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: visual.test,v 1.1.4.3 1999/03/24 01:17:16 hershey Exp $ +# RCS: @(#) $Id: visual.test,v 1.1.4.4 1999/03/24 02:55:11 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -325,3 +325,4 @@ return + diff --git a/tests/winButton.test b/tests/winButton.test index d073b25..c709a26 100644 --- a/tests/winButton.test +++ b/tests/winButton.test @@ -8,7 +8,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winButton.test,v 1.1.4.3 1999/03/24 01:17:16 hershey Exp $ +# RCS: @(#) $Id: winButton.test,v 1.1.4.4 1999/03/24 02:55:11 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\"" @@ -162,3 +162,4 @@ return + diff --git a/tests/winClipboard.test b/tests/winClipboard.test index 39eecc0..d619206 100644 --- a/tests/winClipboard.test +++ b/tests/winClipboard.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winClipboard.test,v 1.1.4.4 1999/03/24 01:17:17 hershey Exp $ +# RCS: @(#) $Id: winClipboard.test,v 1.1.4.5 1999/03/24 02:55:12 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -55,3 +55,4 @@ return + diff --git a/tests/winDialog.test b/tests/winDialog.test index b957766..ede067f 100644 --- a/tests/winDialog.test +++ b/tests/winDialog.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winDialog.test,v 1.1.2.5 1999/03/24 01:17:18 hershey Exp $ +# RCS: @(#) $Id: winDialog.test,v 1.1.2.6 1999/03/24 02:55:12 hershey Exp $ if {[info command testwinevent] == ""} { puts "skipping: tests require the testwinevent command" @@ -331,3 +331,4 @@ return + diff --git a/tests/winFont.test b/tests/winFont.test index fbcf23d..8e63e8b 100644 --- a/tests/winFont.test +++ b/tests/winFont.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winFont.test,v 1.1.4.3 1999/03/24 01:17:18 hershey Exp $ +# RCS: @(#) $Id: winFont.test,v 1.1.4.4 1999/03/24 02:55:13 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -193,3 +193,4 @@ return + diff --git a/tests/winMenu.test b/tests/winMenu.test index 8d5d7fa..1598274 100644 --- a/tests/winMenu.test +++ b/tests/winMenu.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winMenu.test,v 1.1.4.4 1999/03/24 01:17:19 hershey Exp $ +# RCS: @(#) $Id: winMenu.test,v 1.1.4.5 1999/03/24 02:55:13 hershey Exp $ if {[lsearch [image types] test] < 0} { puts "This application hasn't been compiled with the \"test\" image" @@ -1062,3 +1062,4 @@ return + diff --git a/tests/winSend.test b/tests/winSend.test index 3ee1505..f047b8f 100644 --- a/tests/winSend.test +++ b/tests/winSend.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winSend.test,v 1.1.2.4 1999/03/24 01:17:19 hershey Exp $ +# RCS: @(#) $Id: winSend.test,v 1.1.2.5 1999/03/24 02:55:14 hershey Exp $ if {$tcl_platform(platform) != "windows"} { puts "skipping: Windows only tests..." @@ -416,3 +416,4 @@ while {[llength $newInterps] != [llength $currentInterps]} { # cleanup ::tcltest::cleanupTests return + diff --git a/tests/winWm.test b/tests/winWm.test index 6a20d74..07666cec 100644 --- a/tests/winWm.test +++ b/tests/winWm.test @@ -9,7 +9,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winWm.test,v 1.1.4.3 1999/03/24 01:17:20 hershey Exp $ +# RCS: @(#) $Id: winWm.test,v 1.1.4.4 1999/03/24 02:55:15 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -227,3 +227,4 @@ return + diff --git a/tests/window.test b/tests/window.test index 088257a..a90a533 100644 --- a/tests/window.test +++ b/tests/window.test @@ -5,7 +5,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: window.test,v 1.1.4.3 1999/03/24 01:17:21 hershey Exp $ +# RCS: @(#) $Id: window.test,v 1.1.4.4 1999/03/24 02:55:15 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -149,3 +149,4 @@ return + diff --git a/tests/winfo.test b/tests/winfo.test index 1376889..a64e896 100644 --- a/tests/winfo.test +++ b/tests/winfo.test @@ -6,7 +6,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: winfo.test,v 1.1.4.4 1999/03/24 01:17:21 hershey Exp $ +# RCS: @(#) $Id: winfo.test,v 1.1.4.5 1999/03/24 02:55:16 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -379,3 +379,4 @@ return + diff --git a/tests/xmfbox.test b/tests/xmfbox.test index 4a37ce6..9d71114 100644 --- a/tests/xmfbox.test +++ b/tests/xmfbox.test @@ -9,7 +9,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: xmfbox.test,v 1.1.2.4 1999/03/24 01:17:22 hershey Exp $ +# RCS: @(#) $Id: xmfbox.test,v 1.1.2.5 1999/03/24 02:55:16 hershey Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -150,3 +150,4 @@ return + |