summaryrefslogtreecommitdiffstats
path: root/tests/compile.test
diff options
context:
space:
mode:
authorjenn <jenn>1999-06-26 03:54:09 (GMT)
committerjenn <jenn>1999-06-26 03:54:09 (GMT)
commitc750824920529a5930ca3a8c4301a9cf9c45d6a4 (patch)
tree475011f75181f78a0a48f3360124d7e98188018e /tests/compile.test
parentf95999e4e240586c6002c721425f7b17e84f3637 (diff)
downloadtcl-c750824920529a5930ca3a8c4301a9cf9c45d6a4.zip
tcl-c750824920529a5930ca3a8c4301a9cf9c45d6a4.tar.gz
tcl-c750824920529a5930ca3a8c4301a9cf9c45d6a4.tar.bz2
Modified the tests to use the package tcltest
Diffstat (limited to 'tests/compile.test')
-rw-r--r--tests/compile.test5
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test
index 382e85e..da70c8c 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -10,10 +10,11 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: compile.test,v 1.6 1999/04/16 00:47:25 stanton Exp $
+# RCS: @(#) $Id: compile.test,v 1.7 1999/06/26 03:54:11 jenn Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
- source [file join [pwd] [file dirname [info script]] defs.tcl]
+ package require tcltest
+ namespace import ::tcltest::*
}
# The following tests are very incomplete, although the rest of the
generated by cgit v0.12 at 2024-11-10 23:21:13 (GMT)
th='2%'> -rw-r--r--tests/option.test2
-rw-r--r--tests/pack.test2
-rw-r--r--tests/place.test2
-rw-r--r--tests/raise.test2
-rw-r--r--tests/safe.test2
-rw-r--r--tests/scale.test2
-rw-r--r--tests/scrollbar.test2
-rw-r--r--tests/select.test2
-rw-r--r--tests/send.test2
-rw-r--r--tests/text.test2
-rw-r--r--tests/textBTree.test2
-rw-r--r--tests/textDisp.test2
-rw-r--r--tests/textImage.test2
-rw-r--r--tests/textIndex.test2
-rw-r--r--tests/textMark.test2
-rw-r--r--tests/textTag.test2
-rw-r--r--tests/textWind.test2
-rw-r--r--tests/tk.test2
-rw-r--r--tests/unixButton.test2
-rw-r--r--tests/unixEmbed.test2
-rw-r--r--tests/unixFont.test2
-rw-r--r--tests/unixMenu.test2
-rw-r--r--tests/unixWm.test2
-rw-r--r--tests/util.test2
-rw-r--r--tests/visual2
-rw-r--r--tests/visual.test2
-rw-r--r--tests/winButton.test2
-rw-r--r--tests/winClipboard.test2
-rw-r--r--tests/winFont.test2
-rw-r--r--tests/winMenu.test2
-rw-r--r--tests/winWm.test2
-rw-r--r--tests/window.test2
-rw-r--r--tests/winfo.test2
86 files changed, 86 insertions, 86 deletions
diff --git a/tests/README b/tests/README
index 2ae2a44..23fc4a5 100644
--- a/tests/README
+++ b/tests/README
@@ -1,7 +1,7 @@
Tk Test Suite
--------------
-SCCS: @(#) README 1.2 96/03/27 08:52:21
+RCS: @(#) $Id: README,v 1.2 1998/09/14 18:23:41 stanton Exp $
This directory contains a set of validation tests for Tk.
Each of the files whose name ends in ".test" is intended to
diff --git a/tests/all b/tests/all
index 38d2ca0..a999a76 100644
--- a/tests/all
+++ b/tests/all
@@ -2,7 +2,7 @@
# tests. Execute it by invoking "source all" when running tclTest
# in this directory.
#
-# SCCS: @(#) all 1.23 97/08/06 18:50:18
+# RCS: @(#) $Id: all,v 1.2 1998/09/14 18:23:42 stanton Exp $
switch $tcl_platform(platform) {
"windows" {
diff --git a/tests/arc.tcl b/tests/arc.tcl
index 62ea96d..33056f5 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.
#
-# SCCS: @(#) arc.tcl 1.5 96/02/16 10:55:40
+# RCS: @(#) $Id: arc.tcl,v 1.2 1998/09/14 18:23:42 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/bell.test b/tests/bell.test
index 97d015e..c23de2d 100644
--- a/tests/bell.test
+++ b/tests/bell.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) bell.test 1.5 96/04/09 23:47:12
+# RCS: @(#) $Id: bell.test,v 1.2 1998/09/14 18:23:42 stanton Exp $
if {[string compare test [info procs test]] == 1} {
source defs
diff --git a/tests/bevel.tcl b/tests/bevel.tcl
index 60c913a..815590a 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.
#
-# SCCS: @(#) bevel.tcl 1.4 96/06/24 16:48:14
+# RCS: @(#) $Id: bevel.tcl,v 1.2 1998/09/14 18:23:42 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/bgerror.test b/tests/bgerror.test
index 72b5400..b718483 100644
--- a/tests/bgerror.test
+++ b/tests/bgerror.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) bgerror.test 1.1 97/08/06 09:28:30
+# RCS: @(#) $Id: bgerror.test,v 1.2 1998/09/14 18:23:42 stanton Exp $
if {[info commands test] == ""} {
source defs
diff --git a/tests/bind.test b/tests/bind.test
index f03a95d..b70cc21 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -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.
#
-# SCCS: @(#) bind.test 1.39 97/07/01 18:01:05
+# RCS: @(#) $Id: bind.test,v 1.3 1998/09/14 18:23:42 stanton Exp $
if {[string compare test [info procs test]] != 0} {
source defs
diff --git a/tests/bugs.tcl b/tests/bugs.tcl
index 1f4e5b7..880e216 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.
#
-# SCCS: @(#) bugs.tcl 1.1 96/07/25 15:49:45
+# RCS: @(#) $Id: bugs.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/butGeom.tcl b/tests/butGeom.tcl
index 352712b..7f124df 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.
#
-# SCCS: @(#) butGeom.tcl 1.3 97/06/13 13:46:57
+# RCS: @(#) $Id: butGeom.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/butGeom2.tcl b/tests/butGeom2.tcl
index f1293a0..36122ea 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.
#
-# SCCS: @(#) butGeom2.tcl 1.3 97/06/13 17:00:32
+# RCS: @(#) $Id: butGeom2.tcl,v 1.2 1998/09/14 18:23:43 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/button.test b/tests/button.test
index 2c6d082..1e36dd2 100644
--- a/tests/button.test
+++ b/tests/button.test
@@ -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.
#
-# SCCS: @(#) button.test 1.39 97/07/31 10:19:02
+# RCS: @(#) $Id: button.test,v 1.2 1998/09/14 18:23:43 stanton Exp $
if {[lsearch [image types] test] < 0} {
puts "This application hasn't been compiled with the \"test\""
diff --git a/tests/canvImg.test b/tests/canvImg.test
index 59ceaa2..05af9df 100644
--- a/tests/canvImg.test
+++ b/tests/canvImg.test
@@ -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.
#
-# SCCS: @(#) canvImg.test 1.17 97/07/02 11:28:26
+# RCS: @(#) $Id: canvImg.test,v 1.2 1998/09/14 18:23:43 stanton Exp $
if {[lsearch [image types] test] < 0} {
puts "This application hasn't been compiled with the \"test\" image"
diff --git a/tests/canvPs.test b/tests/canvPs.test
index 5ee56b9..6fc4bd0 100644
--- a/tests/canvPs.test
+++ b/tests/canvPs.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) canvPs.test 1.5 97/06/10 15:49:35
+# RCS: @(#) $Id: canvPs.test,v 1.2 1998/09/14 18:23:43 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/canvPsArc.tcl b/tests/canvPsArc.tcl
index 333765a..8b77091 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.
#
-# SCCS: @(#) canvPsArc.tcl 1.3 96/02/16 10:55:43
+# RCS: @(#) $Id: canvPsArc.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/canvPsBmap.tcl b/tests/canvPsBmap.tcl
index 385e998..15f41a4 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.
#
-# SCCS: @(#) canvPsBmap.tcl 1.5 96/07/25 15:54:14
+# RCS: @(#) $Id: canvPsBmap.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/canvPsGrph.tcl b/tests/canvPsGrph.tcl
index 55b90d7..8458727 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.
#
-# SCCS: @(#) canvPsGrph.tcl 1.3 96/02/16 10:56:07
+# RCS: @(#) $Id: canvPsGrph.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/canvPsText.tcl b/tests/canvPsText.tcl
index 8bcc713..61df240 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.
#
-# SCCS: @(#) canvPsText.tcl 1.3 96/06/24 16:49:12
+# RCS: @(#) $Id: canvPsText.tcl,v 1.2 1998/09/14 18:23:44 stanton Exp $
catch {destroy .t}
toplevel .t
diff --git a/tests/canvRect.test b/tests/canvRect.test
index e910906..c582990 100644
--- a/tests/canvRect.test
+++ b/tests/canvRect.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) canvRect.test 1.18 97/08/06 15:33:39
+# RCS: @(#) $Id: canvRect.test,v 1.2 1998/09/14 18:23:44 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/canvText.test b/tests/canvText.test
index b121c25..31566f6 100644
--- a/tests/canvText.test
+++ b/tests/canvText.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) canvText.test 1.8 97/06/24 13:34:16
+# RCS: @(#) $Id: canvText.test,v 1.2 1998/09/14 18:23:44 stanton Exp $
if {"[info procs test]" != "test"} {
source defs
diff --git a/tests/canvWind.test b/tests/canvWind.test
index d8c6835..2ae6ac8 100644
--- a/tests/canvWind.test
+++ b/tests/canvWind.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) canvWind.test 1.2 97/11/06 13:49:14
+# RCS: @(#) $Id: canvWind.test,v 1.2 1998/09/14 18:23:44 stanton Exp $
if {"[info procs test]" != "test"} {
source defs
diff --git a/tests/canvas.test b/tests/canvas.test
index ea2ab9a..7914668 100644
--- a/tests/canvas.test
+++ b/tests/canvas.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) canvas.test 1.10 97/07/31 10:22:48
+# RCS: @(#) $Id: canvas.test,v 1.3 1998/09/14 18:23:44 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/clipboard.test b/tests/clipboard.test
index 90f4ecb..1c1b43b 100644
--- a/tests/clipboard.test
+++ b/tests/clipboard.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) clipboard.test 1.15 96/12/09 17:26:02
+# RCS: @(#) $Id: clipboard.test,v 1.2 1998/09/14 18:23:45 stanton Exp $
#
# Note: Multiple display clipboard handling will only be tested if the
diff --git a/tests/clrpick.test b/tests/clrpick.test
index d267224..a56b6b3 100644
--- a/tests/clrpick.test
+++ b/tests/clrpick.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# @(#) clrpick.test 1.9 97/10/21 11:29:53
+# RCS: @(#) $Id: clrpick.test,v 1.2 1998/09/14 18:23:45 stanton Exp $
#
if {[string compare test [info procs test]] == 1} {
diff --git a/tests/cmap.tcl b/tests/cmap.tcl
index 13c350d..fb92643 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.
#
-# SCCS: @(#) cmap.tcl 1.2 96/02/16 10:55:47
+# RCS: @(#) $Id: cmap.tcl,v 1.2 1998/09/14 18:23:45 stanton Exp $
catch {destroy .t}
toplevel .t -colormap new
diff --git a/tests/cmds.test b/tests/cmds.test
index 71b14f4..6524f3c 100644
--- a/tests/cmds.test
+++ b/tests/cmds.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) cmds.test 1.1 96/03/14 13:25:24
+# RCS: @(#) $Id: cmds.test,v 1.2 1998/09/14 18:23:45 stanton Exp $
if {[string compare test [info procs test]] == 1} {
source defs
diff --git a/tests/color.test b/tests/color.test
index 030efa0..7c68ec3 100644
--- a/tests/color.test
+++ b/tests/color.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) color.test 1.5 96/02/16 10:56:05
+# RCS: @(#) $Id: color.test,v 1.2 1998/09/14 18:23:45 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/defs b/tests/defs
index df518da..e1f6f9b 100644
--- a/tests/defs
+++ b/tests/defs
@@ -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.
#
-# SCCS: @(#) defs 1.39 97/08/06 15:32:02
+# RCS: @(#) $Id: defs,v 1.2 1998/09/14 18:23:45 stanton Exp $
if ![info exists VERBOSE] {
set VERBOSE 0
diff --git a/tests/entry.test b/tests/entry.test
index 950d278..551404c 100644
--- a/tests/entry.test
+++ b/tests/entry.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) entry.test 1.49 97/11/07 09:34:31
+# RCS: @(#) $Id: entry.test,v 1.2 1998/09/14 18:23:45 stanton Exp $
if {[lsearch [image types] test] < 0} {
puts "This application hasn't been compiled with the \"test\""
diff --git a/tests/event.test b/tests/event.test
index a8ab3de..0812f71 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) event.test 1.6 96/09/12 09:25:44
+# RCS: @(#) $Id: event.test,v 1.2 1998/09/14 18:23:46 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/filebox.test b/tests/filebox.test
index c687b0b..97b313f 100644
--- a/tests/filebox.test
+++ b/tests/filebox.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) filebox.test 1.5 97/10/10 11:03:21
+# RCS: @(#) $Id: filebox.test,v 1.4 1998/09/14 18:23:46 stanton Exp $
#
set tk_strictMotif_old $tk_strictMotif
diff --git a/tests/focus.test b/tests/focus.test
index 500a46c..08843e3 100644
--- a/tests/focus.test
+++ b/tests/focus.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) focus.test 1.24 97/08/11 09:39:34
+# RCS: @(#) $Id: focus.test,v 1.3 1998/09/14 18:23:46 stanton Exp $
if {$tcl_platform(platform) != "unix"} {
return
diff --git a/tests/focusTcl.test b/tests/focusTcl.test
index 2154041..14c1d3d 100644
--- a/tests/focusTcl.test
+++ b/tests/focusTcl.test
@@ -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.
#
-# SCCS: @(#) focusTcl.test 1.7 96/09/26 10:25:58
+# RCS: @(#) $Id: focusTcl.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/font.test b/tests/font.test
index dac8c9d..909085b 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) font.test 1.22 97/10/10 14:34:54
+# RCS: @(#) $Id: font.test,v 1.3 1998/09/14 18:23:47 stanton Exp $
if {[string compare test [info procs test]] != 0} {
source defs
diff --git a/tests/frame.test b/tests/frame.test
index c23d851..7e3d8da 100644
--- a/tests/frame.test
+++ b/tests/frame.test
@@ -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.
#
-# SCCS: @(#) frame.test 1.29 97/10/10 15:52:19
+# RCS: @(#) $Id: frame.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/geometry.test b/tests/geometry.test
index d5d1f01..0785ab1 100644
--- a/tests/geometry.test
+++ b/tests/geometry.test
@@ -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.
#
-# SCCS: @(#) geometry.test 1.9 96/02/16 10:55:06
+# RCS: @(#) $Id: geometry.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/grid.test b/tests/grid.test
index fae31fe..61cc661 100644
--- a/tests/grid.test
+++ b/tests/grid.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) grid.test 1.22 97/10/10 10:07:31
+# RCS: @(#) $Id: grid.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source ../tests/defs}
diff --git a/tests/id.test b/tests/id.test
index 31249da..b1c2ea9 100644
--- a/tests/id.test
+++ b/tests/id.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) id.test 1.7 97/05/15 09:47:10
+# RCS: @(#) $Id: id.test,v 1.3 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/image.test b/tests/image.test
index b4e7ad7..468865d 100644
--- a/tests/image.test
+++ b/tests/image.test
@@ -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.
#
-# SCCS: @(#) image.test 1.15 97/07/31 10:17:25
+# RCS: @(#) $Id: image.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[lsearch [image types] test] < 0} {
puts "This application hasn't been compiled with the \"test\" image"
diff --git a/tests/imgBmap.test b/tests/imgBmap.test
index 928f7a4..337a136 100644
--- a/tests/imgBmap.test
+++ b/tests/imgBmap.test
@@ -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.
#
-# SCCS: @(#) imgBmap.test 1.15 97/03/10 14:12:38
+# RCS: @(#) $Id: imgBmap.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/imgPPM.test b/tests/imgPPM.test
index 044a274..f9ffc9e 100644
--- a/tests/imgPPM.test
+++ b/tests/imgPPM.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) imgPPM.test 1.14 97/10/28 14:47:05
+# RCS: @(#) $Id: imgPPM.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index ec7c635..ab42517 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -10,7 +10,7 @@
#
# Author: Paul Mackerras (paulus@cs.anu.edu.au)
#
-# SCCS: @(#) imgPhoto.test 1.23 97/08/08 11:29:25
+# RCS: @(#) $Id: imgPhoto.test,v 1.2 1998/09/14 18:23:47 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/listbox.test b/tests/listbox.test
index cb1a4e3..c2b1447 100644
--- a/tests/listbox.test
+++ b/tests/listbox.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) listbox.test 1.45 97/10/29 13:05:46
+# RCS: @(#) $Id: listbox.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/macEmbed.test b/tests/macEmbed.test
index b85e01a..90b7161 100644
--- a/tests/macEmbed.test
+++ b/tests/macEmbed.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) macEmbed.test 1.1 97/08/06 21:18:53
+# RCS: @(#) $Id: macEmbed.test,v 1.3 1998/09/14 18:23:48 stanton Exp $
if {$tcl_platform(platform) != "macintosh"} {
return
diff --git a/tests/macFont.test b/tests/macFont.test
index aa342a6..8c6d0ae 100644
--- a/tests/macFont.test
+++ b/tests/macFont.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) macFont.test 1.5 97/05/05 14:21:05
+# RCS: @(#) $Id: macFont.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {$tcl_platform(platform)!="macintosh"} {
return
diff --git a/tests/macMenu.test b/tests/macMenu.test
index 2c10e86..3882b0d 100644
--- a/tests/macMenu.test
+++ b/tests/macMenu.test
@@ -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.
#
-# SCCS: @(#) macMenu.test 1.23 97/07/10 13:35:52
+# RCS: @(#) $Id: macMenu.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {$tcl_platform(platform) != "macintosh"} {
return
diff --git a/tests/macWinMenu.test b/tests/macWinMenu.test
index 7b6ac12..e19fdff 100644
--- a/tests/macWinMenu.test
+++ b/tests/macWinMenu.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) macWinMenu.test 1.13 97/04/10 14:41:29
+# RCS: @(#) $Id: macWinMenu.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {$tcl_platform(platform) == "unix"} {
return
diff --git a/tests/macscrollbar.test b/tests/macscrollbar.test
index 0dd6646..c13198a 100644
--- a/tests/macscrollbar.test
+++ b/tests/macscrollbar.test
@@ -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.
#
-# SCCS: @(#) macscrollbar.test 1.3 97/06/24 13:48:34
+# RCS: @(#) $Id: macscrollbar.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
# Only run this test on the Macintosh
if {$tcl_platform(platform) != "macintosh"} return
diff --git a/tests/main.test b/tests/main.test
index 49365c3..e7ed056 100644
--- a/tests/main.test
+++ b/tests/main.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) main.test 1.2 97/09/10 17:49:20
+# RCS: @(#) $Id: main.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/menu.test b/tests/menu.test
index 3f54a8d..a4399b5 100644
--- a/tests/menu.test
+++ b/tests/menu.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) menu.test 1.43 97/10/28 13:51:13
+# RCS: @(#) $Id: menu.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {[lsearch [image types] test] < 0} {
puts "This application hasn't been compiled with the \"test\" image"
diff --git a/tests/menuDraw.test b/tests/menuDraw.test
index 291d2a2..b142f98 100644
--- a/tests/menuDraw.test
+++ b/tests/menuDraw.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) menuDraw.test 1.11 97/06/24 13:50:34
+# RCS: @(#) $Id: menuDraw.test,v 1.2 1998/09/14 18:23:48 stanton Exp $
if {[lsearch [image types] test] < 0} {
puts "This application hasn't been compiled with the \"test\" image"
diff --git a/tests/menubut.test b/tests/menubut.test
index 8a5c14a..9bdf04c 100644
--- a/tests/menubut.test
+++ b/tests/menubut.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) menubut.test 1.26 97/07/31 10:08:50
+# RCS: @(#) $Id: menubut.test,v 1.2 1998/09/14 18:23:49 stanton 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,
diff --git a/tests/msgbox.test b/tests/msgbox.test
index c23ddaf..0511c87 100644
--- a/tests/msgbox.test
+++ b/tests/msgbox.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) msgbox.test 1.7 97/07/31 10:05:25
+# RCS: @(#) $Id: msgbox.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
#
if {[string compare test [info procs test]] == 1} {
diff --git a/tests/oldpack.test b/tests/oldpack.test
index a63eaef..984e4fe 100644
--- a/tests/oldpack.test
+++ b/tests/oldpack.test
@@ -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.
#
-# SCCS: @(#) oldpack.test 1.10 97/06/24 13:32:16
+# RCS: @(#) $Id: oldpack.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/option.test b/tests/option.test
index aad9197..3acc8f8 100644
--- a/tests/option.test
+++ b/tests/option.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) option.test 1.20 97/08/07 15:54:37
+# RCS: @(#) $Id: option.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/pack.test b/tests/pack.test
index 3443d74..0084de4 100644
--- a/tests/pack.test
+++ b/tests/pack.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) pack.test 1.27 97/07/01 18:06:56
+# RCS: @(#) $Id: pack.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/place.test b/tests/place.test
index 06540e3..aaa2537 100644
--- a/tests/place.test
+++ b/tests/place.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) place.test 1.6 96/02/16 10:56:01
+# RCS: @(#) $Id: place.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/raise.test b/tests/raise.test
index af13746..5c40341 100644
--- a/tests/raise.test
+++ b/tests/raise.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) raise.test 1.8 96/02/16 10:55:18
+# RCS: @(#) $Id: raise.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
if {[info commands testmakeexist] == {}} {
puts "This application hasn't been compiled with the \"testmakeexist\""
diff --git a/tests/safe.test b/tests/safe.test
index 3eaf504..90873f0 100644
--- a/tests/safe.test
+++ b/tests/safe.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) safe.test 1.15 97/08/13 16:05:17
+# RCS: @(#) $Id: safe.test,v 1.3 1998/09/14 18:23:49 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/scale.test b/tests/scale.test
index 405a529..ddef4cf 100644
--- a/tests/scale.test
+++ b/tests/scale.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) scale.test 1.28 97/07/31 10:20:43
+# RCS: @(#) $Id: scale.test,v 1.2 1998/09/14 18:23:49 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/scrollbar.test b/tests/scrollbar.test
index 9242acb..7790b05 100644
--- a/tests/scrollbar.test
+++ b/tests/scrollbar.test
@@ -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.
#
-# SCCS: @(#) scrollbar.test 1.33 97/08/13 17:37:19
+# RCS: @(#) $Id: scrollbar.test,v 1.2 1998/09/14 18:23:50 stanton Exp $
if {[info procs test] != "test"} {
source defs
diff --git a/tests/select.test b/tests/select.test
index 82db030..d449f7c 100644
--- a/tests/select.test
+++ b/tests/select.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) select.test 1.17 96/12/09 17:25:48
+# RCS: @(#) $Id: select.test,v 1.2 1998/09/14 18:23:50 stanton Exp $
#
# Note: Multiple display selection handling will only be tested if the
diff --git a/tests/send.test b/tests/send.test
index 7addb73..2f6e7d1 100644
--- a/tests/send.test
+++ b/tests/send.test
@@ -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.
#
-# SCCS: @(#) send.test 1.26 96/12/09 17:26:42
+# RCS: @(#) $Id: send.test,v 1.2 1998/09/14 18:23:50 stanton Exp $
if {$tcl_platform(platform) == "macintosh"} {
puts "send is not available on the Mac - skipping tests"
diff --git a/tests/text.test b/tests/text.test
index 3bd5a09..62d5839 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) text.test 1.46 97/10/13 15:18:31
+# RCS: @(#) $Id: text.test,v 1.2 1998/09/14 18:23:50 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/textBTree.test b/tests/textBTree.test
index 0ca5eb2..d59a9b8 100644
--- a/tests/textBTree.test
+++ b/tests/textBTree.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) textBTree.test 1.8 96/03/21 15:51:12
+# RCS: @(#) $Id: textBTree.test,v 1.2 1998/09/14 18:23:50 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/textDisp.test b/tests/textDisp.test
index c14f785..9741fdc 100644
--- a/tests/textDisp.test
+++ b/tests/textDisp.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) textDisp.test 1.55 97/07/24 15:15:43
+# RCS: @(#) $Id: textDisp.test,v 1.2 1998/09/14 18:23:50 stanton Exp $
if {[string compare test [info procs test]] == 1} {
source defs
diff --git a/tests/textImage.test b/tests/textImage.test
index 80d083c..e639097 100644
--- a/tests/textImage.test
+++ b/tests/textImage.test
@@ -1,4 +1,4 @@
-# SCCS: @(#) textImage.test 1.8 97/07/01 18:11:54
+# RCS: @(#) $Id: textImage.test,v 1.2 1998/09/14 18:23:51 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source ../tests/defs}
diff --git a/tests/textIndex.test b/tests/textIndex.test
index df30951..1744834 100644
--- a/tests/textIndex.test
+++ b/tests/textIndex.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) textIndex.test 1.9 96/06/24 16:46:55
+# RCS: @(#) $Id: textIndex.test,v 1.2 1998/09/14 18:23:51 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/textMark.test b/tests/textMark.test
index 39a0961..6bc2589 100644
--- a/tests/textMark.test
+++ b/tests/textMark.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) textMark.test 1.8 97/10/20 11:13:00
+# RCS: @(#) $Id: textMark.test,v 1.2 1998/09/14 18:23:51 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/textTag.test b/tests/textTag.test
index ae0d33a..79901cf 100644
--- a/tests/textTag.test
+++ b/tests/textTag.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) textTag.test 1.30 97/11/06 16:57:02
+# RCS: @(#) $Id: textTag.test,v 1.2 1998/09/14 18:23:52 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/textWind.test b/tests/textWind.test
index c639dab..a62663d 100644
--- a/tests/textWind.test
+++ b/tests/textWind.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) textWind.test 1.25 97/07/01 18:16:38
+# RCS: @(#) $Id: textWind.test,v 1.2 1998/09/14 18:23:52 stanton Exp $
if {[string compare test [info procs test]] == 1} then \
{source defs}
diff --git a/tests/tk.test b/tests/tk.test
index 94cec66..89a853b 100644
--- a/tests/tk.test
+++ b/tests/tk.test
@@ -6,7 +6,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) tk.test 1.3 97/05/20 15:17:44
+# RCS: @(#) $Id: tk.test,v 1.2 1998/09/14 18:23:52 stanton Exp $
if {[info commands test] == ""} {
source defs
diff --git a/tests/unixButton.test b/tests/unixButton.test
index a4c67d5..6788655 100644
--- a/tests/unixButton.test
+++ b/tests/unixButton.test
@@ -9,7 +9,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# SCCS: @(#) unixButton.test 1.6 97/07/01 18:11:30
+# RCS: @(#) $Id: unixButton.test,v 1.2 1998/09/14 18:23:52 stanton Exp $
if {$tcl_platform(platform)!="unix"} {
return
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test