diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 08:01:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-14 08:01:46 (GMT) |
| commit | 626d7152122d3acfc5eafe232d0b81a4cbda5141 (patch) | |
| tree | 628e1af0d28a7b8f23c0f637ce7f01c7e8b948ed /tests/imgPhoto.test | |
| parent | e9dc305d78edf450789ae4494b6c44d7a2e0b65a (diff) | |
| parent | 19013242170fcb53f480c10a5ca48578456d2f1b (diff) | |
| download | tk-626d7152122d3acfc5eafe232d0b81a4cbda5141.zip tk-626d7152122d3acfc5eafe232d0b81a4cbda5141.tar.gz tk-626d7152122d3acfc5eafe232d0b81a4cbda5141.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'tests/imgPhoto.test')
| -rw-r--r-- | tests/imgPhoto.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/imgPhoto.test b/tests/imgPhoto.test index ba7966a..c4b4755 100644 --- a/tests/imgPhoto.test +++ b/tests/imgPhoto.test @@ -1495,7 +1495,7 @@ test imgPhoto-9.1 {ImgPhotoCmdDeletedProc procedure} -constraints { } -body { image create photo photo2 -file $teapotPhotoFile rename photo2 {} - list [expr {photo2 in [imageNames]}] [catch {photo2 foo} msg] $msg + list [expr {"photo2" in [imageNames]}] [catch {photo2 foo} msg] $msg } -result {0 1 {invalid command name "photo2"}} test imgPhoto-10.1 {Tk_ImgPhotoPutBlock procedure} -setup { |