diff options
Diffstat (limited to 'tests/imgPPM.test')
| -rw-r--r-- | tests/imgPPM.test | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/tests/imgPPM.test b/tests/imgPPM.test index 456427f..b5955df 100644 --- a/tests/imgPPM.test +++ b/tests/imgPPM.test @@ -21,7 +21,7 @@ proc put {file data} { puts -nonewline $f $data close $f } - + test imgPPM-1.1 {FileReadPPM procedure} -body { put test.ppm "P6\n0 256\n255\nabcdef" image create photo p1 -file test.ppm @@ -39,9 +39,9 @@ test imgPPM-1.4 {FileReadPPM procedure} -body { image create photo p1 -file test.ppm } -returnCodes error -result {PPM image file "test.ppm" has dimension(s) <= 0} test imgPPM-1.5 {FileReadPPM procedure} -body { - put test.ppm "P6\n10 20\n256\nabcdef" + put test.ppm "P6\n10 20\n100000\nabcdef" image create photo p1 -file test.ppm -} -returnCodes error -result {PPM image file "test.ppm" has bad maximum intensity value 256} +} -returnCodes error -result {PPM image file "test.ppm" has bad maximum intensity value 100000} test imgPPM-1.6 {FileReadPPM procedure} -body { put test.ppm "P6\n10 20\n0\nabcdef" image create photo p1 -file test.ppm @@ -161,7 +161,7 @@ test imgPPM-4.1 {StringReadPPM procedure, data too short [Bug 1822391]} -body { } -cleanup { image delete I } -returnCodes error -result {truncated PPM data} - + imageFinish # cleanup @@ -169,3 +169,6 @@ catch {file delete test.ppm} cleanupTests return +# Local Variables: +# mode: tcl +# End: |