From bd5e2688af7a2c5484b64e23711d31ab5341a356 Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Wed, 19 May 2004 13:02:10 +0000
Subject: Fix whitespace

---
 tests/security.test  | 17 +++--------------
 tests/timer.test     | 14 +-------------
 tests/unknown.test   | 14 +-------------
 tests/while-old.test | 14 +-------------
 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
-
-
-
-
-
-
-
-
-
-
-
-
-- 
cgit v0.12