From c09ed1fe7fb7b2cf744f47d658ba0c693d23f204 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sat, 8 Mar 2003 21:42:44 +0000
Subject:         * doc/tcltest.n:  Added missing "-body" to example.  Thanks
 to         Helmut Giese.  [Bug 700011]

---
 ChangeLog     | 5 +++++
 doc/tcltest.n | 6 +++---
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 3cbb339..cd546cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-03-08  Don Porter  <dgp@users.sourceforge.net>
+
+	* doc/tcltest.n:  Added missing "-body" to example.  Thanks to
+	Helmut Giese.  [Bug 700011]
+
 2003-03-07  Mo DeJong  <mdejong@users.sourceforge.net>
 
 	* tests/io.test:
diff --git a/doc/tcltest.n b/doc/tcltest.n
index c395823..2b66931 100644
--- a/doc/tcltest.n
+++ b/doc/tcltest.n
@@ -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: tcltest.n,v 1.38 2003/01/24 16:33:35 dgp Exp $
+'\" RCS: @(#) $Id: tcltest.n,v 1.39 2003/03/08 21:42:47 dgp Exp $
 '\" 
 .so man.macros
 .TH "tcltest" n 2.2 tcltest "Tcl Bundled Packages"
@@ -976,10 +976,10 @@ namespace eval ::example::test {
     testConstraint X [expr {...}]
     variable SETUP {#common setup code}
     variable CLEANUP {#common cleanup code}
-    test example-1 {} -setup $SETUP {
+    test example-1 {} -setup $SETUP -body {
 	# First test
     } -cleanup $CLEANUP -result {...}
-    test example-2 {} -constraints X -setup $SETUP {
+    test example-2 {} -constraints X -setup $SETUP -body {
 	# Second test; constrained
     } -cleanup $CLEANUP -result {...}
     test example-3 {} {
-- 
cgit v0.12