1 files changed, 30 insertions, 15 deletions
diff --git a/tests/canvPs.test b/tests/canvPs.test
index f2df447..c7ba958 100644
--- a/tests/canvPs.test
+++ b/tests/canvPs.test
@@ -6,10 +6,13 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 
-package require tcltest 2.1
+package require tcltest 2.2
+namespace import ::tcltest::*
 eval tcltest::configure $argv
 tcltest::loadTestedCommands
+imageInit
 
+# canvas used in 1.* and 2.* test cases
 canvas .c -width 400 -height 300 -bd 2 -relief sunken
 .c create rectangle 20 20 80 80 -fill red
 pack .c
@@ -43,6 +46,7 @@ test canvPs-1.2 {test writing to a file, idempotency} -constraints {
     removeFile bar.ps
 } -result ok
 
+
 test canvPs-2.1 {test writing to a channel} -constraints {
     unixOrPc
 } -setup {
@@ -75,7 +79,7 @@ test canvPs-2.2 {test writing to channel, idempotency} -constraints {
     close $c2
     set status ok
     if {[file size $bar] != [file size $foo]} {
-	set status broken
+	    set status broken
     }
     set status
 } -cleanup {
@@ -97,7 +101,7 @@ test canvPs-2.3 {test writing to channel and file, same output} -constraints {
     .c postscript -file $bar
     set status ok
     if {[file size $foo] != [file size $bar]} {
-	set status broken
+	    set status broken
     }
     set status
 } -cleanup {
@@ -119,21 +123,22 @@ test canvPs-2.4 {test writing to channel and file, same output} -constraints {
     .c postscript -file $bar
     set status ok
     if {[file size $foo] != [file size $bar]} {
-	set status broken
+	    set status broken
     }
     set status
 } -cleanup {
     removeFile foo.ps
     removeFile bar.ps
 } -result ok
+destroy .c
+
 
-test canvPs-3.1 {test ps generation with an embedded window} -setup {
+test canvPs-3.1 {test ps generation with an embedded window} -constraints {
+    notAqua
+} -setup {
     set bar [makeFile {} bar.ps]
     file delete $bar
-} -constraints {
-    notAqua
 } -body {
-    destroy .c
     pack [canvas .c -width 200 -height 200 -background white]
     .c create rect 20 20 150 150 -tags rect0 -dash . -width 2
     .c create arc 0 50 200 200 -tags arc0 \
@@ -150,13 +155,14 @@ test canvPs-3.1 {test ps generation with an embedded window} -setup {
     .c postscript -file $bar
     file exists $bar
 } -cleanup {
+    destroy .c
+    imageCleanup
     removeFile bar.ps
-} -result 1
+} -result {1}
 test canvPs-3.2 {test ps generation with an embedded window not mapped} -setup {
     set bar [makeFile {} bar.ps]
     file delete $bar
 } -body {
-    destroy .c
     pack [canvas .c -width 200 -height 200 -background white]
     entry .c.e -background pink -foreground blue -width 14
     .c.e insert 0 "we gonna be postscripted"
@@ -164,18 +170,27 @@ test canvPs-3.2 {test ps generation with an embedded window not mapped} -setup {
     .c postscript -file $bar
     file exists $bar
 } -cleanup {
+    destroy .c
     removeFile bar.ps
-} -result 1
+} -result {1}
 
-test canvPs-4.1 {test ps generation with single-point uncolored poly, bug 734498} {} {
-    destroy .c
+
+test canvPs-4.1 {test ps generation with single-point uncolored poly, bug 734498} -body {
     pack [canvas .c]
     .c create poly 10 20 10 20
-    catch {.c postscript}
-} 0
+    .c postscript
+} -cleanup {
+    destroy .c
+} -returnCodes ok -match glob -result *
+
 
 # cleanup
 unset -nocomplain foo bar
+imageFinish
 deleteWindows
 cleanupTests
 return
+
+# Local variables:
+# mode: tcl
+# End: