diff options
author | fvogel <fvogelnew1@free.fr> | 2024-06-11 03:34:15 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2024-06-11 03:34:15 (GMT) |
commit | c9fe293db7a52a34954db92d2bdc5454d4de3897 (patch) | |
tree | 39c9342e0c9b887fedff449c1ac24969e0352c94 /tests/imgListFormat.test | |
parent | 530397e0787965a065721a983cfea4da07446f1b (diff) | |
parent | 15dc2cfa976b10c2dcd29e446a331a7d7f04b790 (diff) | |
download | tk-c9fe293db7a52a34954db92d2bdc5454d4de3897.zip tk-c9fe293db7a52a34954db92d2bdc5454d4de3897.tar.gz tk-c9fe293db7a52a34954db92d2bdc5454d4de3897.tar.bz2 |
Fix [1576528fff]: image read file with -from option. (and resolve merge conflicts)
Diffstat (limited to 'tests/imgListFormat.test')
-rw-r--r-- | tests/imgListFormat.test | 32 |
1 files changed, 7 insertions, 25 deletions
diff --git a/tests/imgListFormat.test b/tests/imgListFormat.test index 4877645..3c6da21 100644 --- a/tests/imgListFormat.test +++ b/tests/imgListFormat.test @@ -14,12 +14,8 @@ tcltest::loadTestedCommands imageInit -# find the teapot.ppm file for use in these tests set teapotPhotoFile [file join [file dirname [info script]] teapot.ppm] -testConstraint hasTeapotPhoto [file exists $teapotPhotoFile] -# let's see if we have the semi-transparent one as well set transpTeapotPhotoFile [file join [file dirname [info script]] teapotTransparent.png] -testConstraint hasTranspTeapotPhoto [file exists $transpTeapotPhotoFile] # --------------------------------------------------------------------- @@ -175,9 +171,7 @@ test imgListFormat-4.3 {StringReadDef: erroneous non-option argument} -setup { } -body { photo1 put orange -format {default bogus} } -returnCodes error -result {bad format option "bogus": no options allowed} -test imgListFormat-4.4 {StringReadDef: normal use case} -constraints { - hasTeapotPhoto -} -setup { +test imgListFormat-4.4 {StringReadDef: normal use case} -setup { image create photo photo1 -file $teapotPhotoFile image create photo photo2 } -body { @@ -188,9 +182,7 @@ test imgListFormat-4.4 {StringReadDef: normal use case} -constraints { imageCleanup unset imgData } -result 1 -test imgListFormat-4.5 {StringReadDef: correct compositing rule} -constraints { - hasTranspTeapotPhoto -} -setup { +test imgListFormat-4.5 {StringReadDef: correct compositing rule} -setup { image create photo photo1 -file $transpTeapotPhotoFile image create photo photo2 } -body { @@ -241,9 +233,7 @@ test imgListFormat-5.5 {StirngWriteDef: size of data} -setup { unset imgData imageCleanup } -result {35 64} -test imgListFormat-5.6 {StringWriteDef: test some pixels #1} -constraints { - hasTeapotPhoto -} -setup { +test imgListFormat-5.6 {StringWriteDef: test some pixels #1} -setup { set result {} image create photo photo1 -file $teapotPhotoFile } -body { @@ -260,9 +250,7 @@ test imgListFormat-5.6 {StringWriteDef: test some pixels #1} -constraints { unset imgData imageCleanup } -result {{#135cc0} #135cc0 #a06d52 #e1c8ba #135cc0} -test imgListFormat-5.7 {StringWriteDef: test some pixels #2} -constraints { - hasTeapotPhoto -} -setup { +test imgListFormat-5.7 {StringWriteDef: test some pixels #2} -setup { set result {} image create photo photo1 -file $teapotPhotoFile } -body { @@ -279,9 +267,7 @@ test imgListFormat-5.7 {StringWriteDef: test some pixels #2} -constraints { unset imgData imageCleanup } -result {{#135cc0ff} #135cc0ff #a06d52ff #e1c8baff #135cc0ff} -test imgListFormat-5.8 {StringWriteDef: test some pixels #3} -constraints { - hasTranspTeapotPhoto -} -setup { +test imgListFormat-5.8 {StringWriteDef: test some pixels #3} -setup { image create photo photo1 -file $transpTeapotPhotoFile } -body { set imgData [photo1 data -format {default -colorformat rgb}] @@ -295,9 +281,7 @@ test imgListFormat-5.8 {StringWriteDef: test some pixels #3} -constraints { unset imgData imageCleanup } -result {{#004eb9} #a14100 #ffca9f} -test imgListFormat-5.9 {StringWriteDef: test some pixels #4} -constraints { - hasTranspTeapotPhoto -} -setup { +test imgListFormat-5.9 {StringWriteDef: test some pixels #4} -setup { image create photo photo1 -file $transpTeapotPhotoFile } -body { set imgData [photo1 data -format {default -colorformat rgba}] @@ -310,9 +294,7 @@ test imgListFormat-5.9 {StringWriteDef: test some pixels #4} -constraints { unset imgData imageCleanup } -result {{#004eb9e1} #a14100aa #ffca9faf} -test imgListFormat-5.10 {StringWriteDef: test some pixels #5} -constraints { - hasTranspTeapotPhoto -} -setup { +test imgListFormat-5.10 {StringWriteDef: test some pixels #5} -setup { image create photo photo1 -file $transpTeapotPhotoFile } -body { set imgData [photo1 data -format {default -colorformat list}] |