summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/security.test17
-rw-r--r--tests/timer.test14
-rw-r--r--tests/unknown.test14
-rw-r--r--tests/while-old.test14
4 files changed, 6 insertions, 53 deletions
diff --git a/tests/security.test b/tests/security.test
index 79baeac..2549a4a 100644
--- a/tests/security.test
+++ b/tests/security.test
@@ -10,7 +10,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: security.test,v 1.5 2000/04/10 17:19:04 ericm Exp $
+# RCS: @(#) $Id: security.test,v 1.6 2004/05/19 13:02:10 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -20,7 +20,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
# If this proc becomes invoked, then there is a bug
proc BUG {args} {
- set ::BUG 1
+ set ::BUG 1
}
# Check and Clear the bug flag (to do before each test)
@@ -33,7 +33,7 @@ proc CB {} {
}
-test sec-1.1 {tcl_endOfPreviousWord} {
+test security-1.1 {tcl_endOfPreviousWord} {
catch {tcl_startOfPreviousWord x {[BUG]}}
CB
} 0
@@ -41,14 +41,3 @@ test sec-1.1 {tcl_endOfPreviousWord} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/timer.test b/tests/timer.test
index 2b9c9c5..2eab350 100644
--- a/tests/timer.test
+++ b/tests/timer.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: timer.test,v 1.7 2000/04/10 17:19:05 ericm Exp $
+# RCS: @(#) $Id: timer.test,v 1.8 2004/05/19 13:03:37 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -541,15 +541,3 @@ test timer-9.1 {AfterCleanupProc procedure} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/unknown.test b/tests/unknown.test
index 5573b81..e4e66bf 100644
--- a/tests/unknown.test
+++ b/tests/unknown.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.
#
-# RCS: @(#) $Id: unknown.test,v 1.6 2000/04/10 17:19:05 ericm Exp $
+# RCS: @(#) $Id: unknown.test,v 1.7 2004/05/19 13:05:37 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -65,15 +65,3 @@ catch {rename unknown {}}
catch {rename unknown.old unknown}
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/tests/while-old.test b/tests/while-old.test
index 1ea7641..a62bcb1 100644
--- a/tests/while-old.test
+++ b/tests/while-old.test
@@ -13,7 +13,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: while-old.test,v 1.6 2000/04/10 17:19:06 ericm Exp $
+# RCS: @(#) $Id: while-old.test,v 1.7 2004/05/19 13:06:15 dkf Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -119,15 +119,3 @@ test while-old-5.2 {while return result} {
# cleanup
::tcltest::cleanupTests
return
-
-
-
-
-
-
-
-
-
-
-
-