Update to tcltest2

1 files changed, 30 insertions, 26 deletions

diff --git a/tests/visual_bb.test b/tests/visual_bb.test
index a465d64..729a3fe 100644
--- a/tests/visual_bb.test
+++ b/tests/visual_bb.test
@@ -6,12 +6,14 @@
 # at the window to make sure it appears as expected.  Individual tests
 # are kept in separate ".tcl" files in this directory.
 #
-# RCS: @(#) $Id: visual_bb.test,v 1.8 2003/04/01 21:07:00 dgp Exp $
+# RCS: @(#) $Id: visual_bb.test,v 1.9 2008/08/30 21:52:26 aniap Exp $
 
-package require tcltest 2.1
-eval tcltest::configure $argv
+package require tcltest 2.2
+namespace import ::tcltest::*
+tcltest::configure {*}$argv
 tcltest::loadTestedCommands
 
+
 set auto_path ". $auto_path"
 wm title . "Visual Tests for Tk"
 
@@ -23,8 +25,8 @@ proc runTest {file} {
     global testNum
 
     test "2.$testNum" "testing $file" {userInteraction} {
-	uplevel \#0 source [file join [testsDirectory] $file]
-	concat ""
+    uplevel \#0 source [file join [testsDirectory] $file]
+    concat ""
     } {}
     incr testNum
 }
@@ -40,7 +42,9 @@ proc end {} {
     set ::EndOfVisualTests 1
 }
 
-test 1.1 "running visual tests" {userInteraction} {
+# ----------------------------------------------------------------------
+
+test 1.1 {running visual tests} -constraints userInteraction -body {
     #-------------------------------------------------------
     # The code below create the main window, consisting of a
     # menu bar and a message explaining the basic operation
@@ -49,8 +53,8 @@ test 1.1 "running visual tests" {userInteraction} {
 
     frame .menu -relief raised -borderwidth 1
     message .msg -font {Times 18} -relief raised -width 4i \
-	    -borderwidth 1 -text "This application provides a collection of visual tests for the Tk toolkit.  Each menu entry invokes a test, which displays information on the screen.  You can then verify visually that the information is being displayed in the correct way.  The tests under the \"Postscript\" menu exercise the Postscript-generation capabilities of canvas widgets."
-    
+        -borderwidth 1 -text "This application provides a collection of visual tests for the Tk toolkit.  Each menu entry invokes a test, which displays information on the screen.  You can then verify visually that the information is being displayed in the correct way.  The tests under the \"Postscript\" menu exercise the Postscript-generation capabilities of canvas widgets."
+   
     pack .menu -side top -fill x
     pack .msg -side bottom -expand yes -fill both
 
@@ -62,40 +66,40 @@ test 1.1 "running visual tests" {userInteraction} {
     menubutton .menu.file -text "File" -menu .menu.file.m
     menu .menu.file.m
     .menu.file.m add command -label "Quit" -command end
-    
+   
     menubutton .menu.group1 -text "Group 1" -menu .menu.group1.m
     menu .menu.group1.m
     .menu.group1.m add command -label "Canvas arcs" -command {runTest arc.tcl}
     .menu.group1.m add command -label "Beveled borders in text widgets" \
-	    -command {runTest bevel.tcl}
+        -command {runTest bevel.tcl}
     .menu.group1.m add command -label "Colormap management" \
-	    -command {runTest cmap.tcl}
+        -command {runTest cmap.tcl}
     .menu.group1.m add command -label "Label/button geometry" \
-	    -command {runTest butGeom.tcl}
+        -command {runTest butGeom.tcl}
     .menu.group1.m add command -label "Label/button colors" \
-	    -command {runTest butGeom2.tcl}
-    
+        -command {runTest butGeom2.tcl}
+   
     menubutton .menu.ps -text "Canvas Postscript" -menu .menu.ps.m
     menu .menu.ps.m
     .menu.ps.m add command -label "Rectangles and other graphics" \
-	    -command {runTest canvPsGrph.tcl}
+        -command {runTest canvPsGrph.tcl}
     .menu.ps.m add command -label "Text" \
-	    -command {runTest canvPsText.tcl}
+        -command {runTest canvPsText.tcl}
     .menu.ps.m add command -label "Bitmaps" \
-	    -command {runTest canvPsBmap.tcl}
+        -command {runTest canvPsBmap.tcl}
     .menu.ps.m add command -label "Images" \
-	    -command {runTest canvPsImg.tcl}
+        -command {runTest canvPsImg.tcl}
     .menu.ps.m add command -label "Arcs" \
-	    -command {runTest canvPsArc.tcl}
-    
+        -command {runTest canvPsArc.tcl}
+   
     pack .menu.file .menu.group1 .menu.ps -side left -padx 1m
-    
+   
     # Set up for keyboard-based menu traversal
-    
+   
     bind . <Any-FocusIn> {
-	if {("%d" == "NotifyVirtual") && ("%m" == "NotifyNormal")} {
-	    focus .menu
-	}
+    if {("%d" == "NotifyVirtual") && ("%m" == "NotifyNormal")} {
+        focus .menu
+    }
     }
     tk_menuBar .menu .menu.file .menu.group1 .menu.ps
 
@@ -105,7 +109,7 @@ test 1.1 "running visual tests" {userInteraction} {
     bind Canvas <1> {%W delete [%W find closest %x %y]}
 
     concat ""
-} {}
+} -result {}
 
 if {![testConstraint userInteraction]} {
     cleanupTests