diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-08-27 16:37:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-08-27 16:37:16 (GMT) |
| commit | 84312d94e8e1790a599eeda25889d393e3f7833e (patch) | |
| tree | 167473d59757b1a01c72591ee507445d46ee400d /tests | |
| parent | 694caa7a5537abfdd3bb2d00d23d2ec1a96fdfb3 (diff) | |
| download | tk-84312d94e8e1790a599eeda25889d393e3f7833e.zip tk-84312d94e8e1790a599eeda25889d393e3f7833e.tar.gz tk-84312d94e8e1790a599eeda25889d393e3f7833e.tar.bz2 | |
typo
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/imgPhoto.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index fffb1bc..e8d024a 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -10,7 +10,7 @@ # # Author: Paul Mackerras (paulus@cs.anu.edu.au) # -# RCS: @(#) $Id: imgPhoto.test,v 1.32 2008/08/26 13:58:32 dkf Exp $ +# RCS: @(#) $Id: imgPhoto.test,v 1.33 2008/08/27 16:37:16 dgp Exp $ package require tcltest 2.2 namespace import ::tcltest::* @@ -696,7 +696,7 @@ test imgPhoto-4.66 {ImgPhotoCmd procedure: transparency get option} -setup { photo1 put white -to 0 0 3 3 photo1 blank checkImgTrans photo1 -v -result {0,0 0,1 0,2 1,0 1,1 1,2 2,0 2,1 2,2} +} -result {0,0 0,1 0,2 1,0 1,1 1,2 2,0 2,1 2,2} test imgPhoto-4.67 {ImgPhotoCmd procedure: transparency set option} -setup { image create photo photo1 proc checkImgTransLoopSetReset {img width height} { |