diff options
| author | hobbs <hobbs> | 1999-10-29 03:58:10 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-10-29 03:58:10 (GMT) |
| commit | 435a8fccf408b30d0d9e1db99b59ac3d7815c8d0 (patch) | |
| tree | 0dcef398d574f003161e3ec94352495efcfeab54 | |
| parent | 8e52a87a0be5a9969812bdd4c5439688cc5cc9fc (diff) | |
| download | tk-435a8fccf408b30d0d9e1db99b59ac3d7815c8d0.zip tk-435a8fccf408b30d0d9e1db99b59ac3d7815c8d0.tar.gz tk-435a8fccf408b30d0d9e1db99b59ac3d7815c8d0.tar.bz2 | |
* tests/imgPhoto.test: added Img patch (Nijtmans) with docs,
headers #def'd with USE_OLD_IMAGE. Upgrades image stuff to
Tcl_Obj API, adds alpha channel (images are now 32 bpp)
| -rw-r--r-- | tests/imgPhoto.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index a320833..73f949e 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -9,7 +9,7 @@ # # Author: Paul Mackerras (paulus@cs.anu.edu.au) # -# RCS: @(#) $Id: imgPhoto.test,v 1.5 1999/07/12 17:34:57 jenn Exp $ +# RCS: @(#) $Id: imgPhoto.test,v 1.6 1999/10/29 03:58:10 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -134,7 +134,7 @@ test imgPhoto-4.1 {ImgPhotoCmd procedure} { } {1 {wrong # args: should be "p1 option ?arg arg ...?"}} test imgPhoto-4.2 {ImgPhotoCmd procedure} { list [catch {p1 blah} err] $err -} {1 {bad option "blah": must be blank, cget, configure, copy, get, put, read, redither, or write}} +} {1 {bad option "blah": must be blank, cget, configure, copy, data, get, put, read, redither, or write}} test imgPhoto-4.3 {ImgPhotoCmd procedure: blank option} { p1 blank list [catch {p1 blank x} err] $err @@ -233,7 +233,7 @@ test imgPhoto-4.25 {ImgPhotoCmd procedure: get option} { } {1 {wrong # args: should be "p1 get x y"}} test imgPhoto-4.26 {ImgPhotoCmd procedure: put option} { list [catch {p1 put} err] $err -} {1 {wrong # args: should be "p1 put {{colors...}...} ?-to x1 y1 x2 y2?"}} +} {1 {wrong # args: should be "p1 put data ?options?"}} test imgPhoto-4.27 {ImgPhotoCmd procedure: put option} { list [catch {p1 put {{white} {white white}}} err] $err } {1 {all elements of color list must have the same number of elements}} @@ -246,7 +246,7 @@ test imgPhoto-4.29 {ImgPhotoCmd procedure: put option} { } {255 255 255} test imgPhoto-4.30 {ImgPhotoCmd procedure: read option} { list [catch {p1 read} err] $err -} {1 {wrong # args: should be "p1 read fileName ?-format format-name? ?-from x1 y1 x2 y2? ?-to x y? ?-shrink?"}} +} {1 {wrong # args: should be "p1 read fileName ?options?"}} test imgPhoto-4.31 {ImgPhotoCmd procedure: read option} { list [catch {p1 read $teapotPhotoFile -zoom 2} err] $err } {1 {unrecognized option "-zoom": must be -format, -from, -shrink, or -to}} @@ -273,7 +273,7 @@ test imgPhoto-4.37 {ImgPhotoCmd procedure: redither option} { } {1 {wrong # args: should be "p1 redither"}} test imgPhoto-4.38 {ImgPhotoCmd procedure: write option} { list [catch {p1 write} err] $err -} {1 {wrong # args: should be "p1 write fileName ?-format format-name??-from x1 y1 x2 y2?"}} +} {1 {wrong # args: should be "p1 write fileName ?options?"}} test imgPhoto-4.39 {ImgPhotoCmd procedure: write option} { list [catch {p1 write teapot.tmp -format bogus} err] $err } {1 {image file format "bogus" is unknown}} |