* tests/canvPs.test: Cleaned up the matching of [makeFile] and

        * tests/choosedir.test: [removeFile] commands as indicated by the
        * tests/filebox.test:   results of a -debug 1 run of the test suite.
        * tests/imgPPM.test:    Tk test suite is now -debug 1 clean.  This
        * tests/imgPhoto.test:  completes fixing [1078648].
        * tests/listbox.test:
        * tests/main.test:

1 files changed, 6 insertions, 5 deletions

diff --git a/tests/imgPPM.test b/tests/imgPPM.test
index 1e043bd..53aa4c7 100644
--- a/tests/imgPPM.test
+++ b/tests/imgPPM.test
@@ -6,7 +6,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: imgPPM.test,v 1.7 2004/05/23 17:34:48 dkf Exp $
+# RCS: @(#) $Id: imgPPM.test,v 1.8 2004/12/08 03:03:06 dgp Exp $
 
 package require tcltest 2.1
 eval tcltest::configure $argv
@@ -14,6 +14,8 @@ tcltest::loadTestedCommands
 
 eval image delete [image names]
 
+# Note that we do not use [tcltest::makeFile] because it is
+# only suitable for text files
 proc put {file data} {
     set f [open $file w]
     fconfigure $f -translation lf
@@ -68,8 +70,8 @@ test imgPPM-2.1 {FileWritePPM procedure} {
 } {1 {couldn't open "not_a_dir/bar/baz/gorp": no such file or directory} {posix enoent {no such file or directory}}}
 test imgPPM-2.2 {FileWritePPM procedure} {
     catch {unset data}
-    p1 write -format ppm test2.ppm
-    set fd [open test2.ppm]
+    p1 write -format ppm test.ppm
+    set fd [open test.ppm]
     set data [read $fd]
     close $fd
     set data
@@ -144,10 +146,9 @@ test imgPPM-3.13 {ReadPPMFileHeader procedure, file ends too soon} {
     list [catch {image create photo p1 -file test.ppm} msg] $msg
 } {1 {couldn't recognize data in image file "test.ppm"}}
 
-removeFile test.ppm
-removeFile test2.ppm
 eval image delete [image names]
 
 # cleanup
+catch {file delete test.ppm}
 cleanupTests
 return