summaryrefslogtreecommitdiffstats
path: root/tests/imgPhoto.test
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2017-01-11 10:51:15 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2017-01-11 10:51:15 (GMT)
commit225f01858954fb5bc8b0f1304167d52e7249d22d (patch)
tree68dc8a4d9a6b01fe2552e0189e05f9455cdf9887 /tests/imgPhoto.test
parent5947e3261525f012e16d814aca14fa42a498a5ce (diff)
downloadtk-225f01858954fb5bc8b0f1304167d52e7249d22d.zip
tk-225f01858954fb5bc8b0f1304167d52e7249d22d.tar.gz
tk-225f01858954fb5bc8b0f1304167d52e7249d22d.tar.bz2
Alternative proposed solution for [d4fb4e80d220e46e588f310291fd7a4205e8cd67|d4fb4e80d2], with test-case.bug_d4fb4e80d2_alt
Diffstat (limited to 'tests/imgPhoto.test')
-rw-r--r--tests/imgPhoto.test10
1 files changed, 10 insertions, 0 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test
index db23fea..e93dab4 100644
--- a/tests/imgPhoto.test
+++ b/tests/imgPhoto.test
@@ -804,6 +804,16 @@ test imgPhoto-4.74 {ImgPhotoCmd procedure: put option error handling} -setup {
} -cleanup {
image delete photo1
} -returnCodes 1 -result {wrong # args: should be "photo1 put data ?-option value ...?"}
+test imgPhoto-4.75 {<photo> read command: filename starting with '-'} -constraints {
+ hasTeapotPhoto
+} -body {
+ file copy -force $teapotPhotoFile -teapotPhotoFile
+ image create photo photo1
+ photo1 read -teapotPhotoFile
+} -cleanup {
+ image delete photo1
+ file delete ./-teapotPhotoFile
+} -result {}
test imgPhoto-5.1 {ImgPhotoGet/Free procedures, shared instances} -constraints {
hasTeapotPhoto