summaryrefslogtreecommitdiffstats
path: root/tests/imgPPM.test
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2013-11-03 11:29:18 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2013-11-03 11:29:18 (GMT)
commit3205d71a865a9a055c5fc810f39104aad5f91673 (patch)
tree5bc9f53c958fb33d023951ce1fc6188a62990f8e /tests/imgPPM.test
parentf46c814d2d9a8f709c8adeb6fdf1da896d80dbee (diff)
downloadtk-3205d71a865a9a055c5fc810f39104aad5f91673.zip
tk-3205d71a865a9a055c5fc810f39104aad5f91673.tar.gz
tk-3205d71a865a9a055c5fc810f39104aad5f91673.tar.bz2
[1632447]: Allow the PPM maxval to go up to 65535, to conform with a format
definition change from around 2000 (even if that's a rare format).
Diffstat (limited to 'tests/imgPPM.test')
-rw-r--r--tests/imgPPM.test12
1 files changed, 8 insertions, 4 deletions
diff --git a/tests/imgPPM.test b/tests/imgPPM.test
index a9e9dc0..926dbec 100644
--- a/tests/imgPPM.test
+++ b/tests/imgPPM.test
@@ -20,7 +20,7 @@ proc put {file data} {
puts -nonewline $f $data
close $f
}
-
+
test imgPPM-1.1 {FileReadPPM procedure} {
put test.ppm "P6\n0 256\n255\nabcdef"
list [catch {image create photo p1 -file test.ppm} msg] $msg
@@ -38,9 +38,9 @@ test imgPPM-1.4 {FileReadPPM procedure} {
list [catch {image create photo p1 -file test.ppm} msg] $msg
} {1 {PPM image file "test.ppm" has dimension(s) <= 0}}
test imgPPM-1.5 {FileReadPPM procedure} {
- put test.ppm "P6\n10 20\n256\nabcdef"
+ put test.ppm "P6\n10 20\n100000\nabcdef"
list [catch {image create photo p1 -file test.ppm} msg] $msg
-} {1 {PPM image file "test.ppm" has bad maximum intensity value 256}}
+} {1 {PPM image file "test.ppm" has bad maximum intensity value 100000}}
test imgPPM-1.6 {FileReadPPM procedure} {
put test.ppm "P6\n10 20\n0\nabcdef"
list [catch {image create photo p1 -file test.ppm} msg] $msg
@@ -156,10 +156,14 @@ test imgPPM-4.1 {StringReadPPM procedure, data too short [Bug 1822391]} \
} \
-returnCodes error \
-result {truncated PPM data}
-
+
eval image delete [image names]
# cleanup
catch {file delete test.ppm}
cleanupTests
return
+
+# Local Variables:
+# mode: tcl
+# End: