1 files changed, 1 insertions, 23 deletions
diff --git a/tests/thread.test b/tests/thread.test
index 216d498..02bfc71 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: thread.test,v 1.11 2004/05/19 20:15:32 dkf Exp $
+# RCS: @(#) $Id: thread.test,v 1.12 2004/06/18 14:44:28 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -38,15 +38,12 @@ if {[testConstraint testthread]} {
 test thread-1.1 {Tcl_ThreadObjCmd: no args} {testthread} {
     list [catch {testthread} msg] $msg
 } {1 {wrong # args: should be "testthread option ?args?"}}
-
 test thread-1.2 {Tcl_ThreadObjCmd: bad option} {testthread} {
     list [catch {testthread foo} msg] $msg
 } {1 {bad option "foo": must be create, exit, id, join, names, send, wait, or errorproc}}
-
 test thread-1.3 {Tcl_ThreadObjCmd: initial thread list} {testthread} {
     list [threadReap] [llength [testthread names]]
 } {1 1}
-
 test thread-1.4 {Tcl_ThreadObjCmd: thread create } {testthread} {
     threadReap
     set serverthread [testthread create]
@@ -55,7 +52,6 @@ test thread-1.4 {Tcl_ThreadObjCmd: thread create } {testthread} {
     threadReap
     set numthreads
 } {2}
-
 test thread-1.5 {Tcl_ThreadObjCmd: thread create one shot} {testthread} {
     threadReap
     testthread create {set x 5}
@@ -71,7 +67,6 @@ test thread-1.5 {Tcl_ThreadObjCmd: thread create one shot} {testthread} {
     threadReap
     set l
 } {1}
-
 test thread-1.6 {Tcl_ThreadObjCmd: thread exit} {testthread} {
     threadReap
     testthread create {testthread exit}
@@ -81,35 +76,28 @@ test thread-1.6 {Tcl_ThreadObjCmd: thread exit} {testthread} {
     threadReap
     set result
 } {1}
-
 test thread-1.7 {Tcl_ThreadObjCmd: thread id args} {testthread} {
     set x [catch {testthread id x} msg]
     list $x $msg
 } {1 {wrong # args: should be "testthread id"}}
-
 test thread-1.8 {Tcl_ThreadObjCmd: thread id} {testthread} {
     string compare [testthread id] $::tcltest::mainThread
 } {0}
-
 test thread-1.9 {Tcl_ThreadObjCmd: thread names args} {testthread} {
     set x [catch {testthread names x} msg]
     list $x $msg
 } {1 {wrong # args: should be "testthread names"}}
-
 test thread-1.10 {Tcl_ThreadObjCmd: thread id} {testthread} {
     string compare [testthread names] $::tcltest::mainThread
 } {0}
-
 test thread-1.11 {Tcl_ThreadObjCmd: send args} {testthread} {
     set x [catch {testthread send} msg]
     list $x $msg
 } {1 {wrong # args: should be "testthread send ?-async? id script"}}
-
 test thread-1.12 {Tcl_ThreadObjCmd: send nonint} {testthread} {
     set x [catch {testthread send abc command} msg]
     list $x $msg
 } {1 {expected integer but got "abc"}}
-
 test thread-1.13 {Tcl_ThreadObjCmd: send args} {testthread} {
     threadReap
     set serverthread [testthread create]
@@ -117,13 +105,11 @@ test thread-1.13 {Tcl_ThreadObjCmd: send args} {testthread} {
     threadReap
     set five
 } 5
-
 test thread-1.14 {Tcl_ThreadObjCmd: send bad id} {testthread} {
     set tid [expr $::tcltest::mainThread + 10]
     set x [catch {testthread send $tid {set x 5}} msg]
     list $x $msg
 } {1 {invalid thread id}}
-
 test thread-1.15 {Tcl_ThreadObjCmd: wait} {testthread} {
     threadReap
     set serverthread [testthread create {set z 5 ; testthread wait}]
@@ -131,12 +117,10 @@ test thread-1.15 {Tcl_ThreadObjCmd: wait} {testthread} {
     threadReap
     set five
 } 5
-
 test thread-1.16 {Tcl_ThreadObjCmd: errorproc args} {testthread} {
     set x [catch {testthread errorproc foo bar} msg]
     list $x $msg
 } {1 {wrong # args: should be "testthread errorproc proc"}}
-
 test thread-1.17 {Tcl_ThreadObjCmd: errorproc change} {testthread} {
     testthread errorproc foo
     testthread errorproc ThreadError
@@ -181,7 +165,6 @@ test thread-4.1 {TclThreadSend to self} {testthread} {
     }
     set x
 } {4}
-
 test thread-4.2 {TclThreadSend -async} {testthread} {
     threadReap
     set len [llength [testthread names]]
@@ -196,7 +179,6 @@ test thread-4.2 {TclThreadSend -async} {testthread} {
     threadReap
     list $len [llength [testthread names]] $two
 } {1 1 2}
-
 test thread-4.3 {TclThreadSend preserve errorInfo} {testthread} {
     threadReap
     set len [llength [testthread names]]
@@ -209,7 +191,6 @@ test thread-4.3 {TclThreadSend preserve errorInfo} {testthread} {
 "set undef"
     invoked from within
 "testthread send $serverthread {set undef}"}}
-
 test thread-4.4 {TclThreadSend preserve code} {testthread} {
     threadReap
     set len [llength [testthread names]]
@@ -218,7 +199,6 @@ test thread-4.4 {TclThreadSend preserve code} {testthread} {
     threadReap
     list $len $x $msg $errorInfo
 } {1 3 {} {}}
-
 test thread-4.5 {TclThreadSend preserve errorCode} {testthread} {
     threadReap
     set ::tcltest::mainThread [testthread names]
@@ -237,7 +217,6 @@ test thread-5.0 {Joining threads} {testthread} {
     threadReap
     set res
 } {0}
-
 test thread-5.1 {Joining threads after the fact} {testthread} {
     threadReap
     set serverthread [testthread create -joinable]
@@ -247,7 +226,6 @@ test thread-5.1 {Joining threads after the fact} {testthread} {
     threadReap
     set res
 } {0}
-
 test thread-5.2 {Try to join a detached thread} {testthread} {
     threadReap
     set serverthread [testthread create]