summaryrefslogtreecommitdiffstats
path: root/tests/imgPhoto.test
diff options
context:
space:
mode:
authorfvogel <fvogelnew1@free.fr>2024-06-09 12:29:09 (GMT)
committerfvogel <fvogelnew1@free.fr>2024-06-09 12:29:09 (GMT)
commit349a69f9287ebf1e15f32de11cca27f67713ade7 (patch)
tree22941bb5b94f32b0712106c738691f4c54015336 /tests/imgPhoto.test
parent620f58a044a9b25a3b58df35d4eb16cbfb05b7ff (diff)
downloadtk-349a69f9287ebf1e15f32de11cca27f67713ade7.zip
tk-349a69f9287ebf1e15f32de11cca27f67713ade7.tar.gz
tk-349a69f9287ebf1e15f32de11cca27f67713ade7.tar.bz2
Remove constraints hasEarthPhoto and hasOusterPhoto, the image files used in the tests are distributed in the tests directory so these constraints are always satisfied.
Diffstat (limited to 'tests/imgPhoto.test')
-rw-r--r--tests/imgPhoto.test16
1 files changed, 12 insertions, 4 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index 78ddcd7..f6ed988 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -1425,35 +1425,43 @@ test imgPhoto-18.12 {Valid GIF (file)} -setup {
catch {image delete gif1}
} -result gif1
-test imgPhoto-19.1 {Read GIF file with -from option - Bug [1576528]} -constraints hasEarthPhoto -body {
+test imgPhoto-19.1 {Read GIF file with -from option - Bug [1576528]} -body {
+ set earthPhotoFile [file join [file dirname [info script]] earth.gif]
image create photo gif1
gif1 read $earthPhotoFile -from 152 62 185 97
lindex [lindex [gif1 data] 0] 0
} -cleanup {
catch {image delete gif1}
+ unset earthPhotoFile
} -result {#d8c8b8}
-test imgPhoto-19.2 {Read GIF file, copy with -from option} -constraints hasEarthPhoto -body {
+test imgPhoto-19.2 {Read GIF file, copy with -from option} -body {
+ set earthPhotoFile [file join [file dirname [info script]] earth.gif]
image create photo gif1 -file $earthPhotoFile
image create photo gif2
gif2 copy gif1 -from 152 62 185 97
lindex [lindex [gif2 data] 0] 0
} -cleanup {
catch {image delete gif1 ; image delete gif2}
+ unset earthPhotoFile
} -result {#d8c8b8}
-test imgPhoto-19.3 {Read PNG file with -from option - Bug [1576528]} -constraints hasOusterPhoto -body {
+test imgPhoto-19.3 {Read PNG file with -from option - Bug [1576528]} -body {
+ set ousterPhotoFile [file join [file dirname [info script]] ouster.png]
image create photo png1
png1 read $ousterPhotoFile -from 102 62 135 97
lindex [lindex [png1 data] 0] 0
} -cleanup {
catch {image delete png1}
+ unset ousterPhotoFile
} -result {#c97962}
-test imgPhoto-19.4 {Read PNG file, copy with -from option} -constraints hasOusterPhoto -body {
+test imgPhoto-19.4 {Read PNG file, copy with -from option} -body {
+ set ousterPhotoFile [file join [file dirname [info script]] ouster.png]
image create photo png1 -file $ousterPhotoFile
image create photo png2
png2 copy png1 -from 102 62 135 97
lindex [lindex [png2 data] 0] 0
} -cleanup {
catch {image delete png1 ; image delete png2}
+ unset ousterPhotoFile
} -result {#c97962}
catch {rename foreachPixel {}}