diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-11-03 11:29:18 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-11-03 11:29:18 (GMT) |
| commit | 3205d71a865a9a055c5fc810f39104aad5f91673 (patch) | |
| tree | 5bc9f53c958fb33d023951ce1fc6188a62990f8e /tests | |
| parent | f46c814d2d9a8f709c8adeb6fdf1da896d80dbee (diff) | |
| download | tk-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')
| -rw-r--r-- | tests/imgPPM.test | 12 |
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: |