diff options
author | culler <culler> | 2019-05-24 21:55:35 (GMT) |
---|---|---|
committer | culler <culler> | 2019-05-24 21:55:35 (GMT) |
commit | ab9712f173e86119a51b6842550cf4e7643037a2 (patch) | |
tree | 24a7bd2b0b0b9164bf66637e597182976a641b5b /tests/image.test | |
parent | a10968edc0a018ca39a396c962c6ee9084fa62b0 (diff) | |
download | tk-ab9712f173e86119a51b6842550cf4e7643037a2.zip tk-ab9712f173e86119a51b6842550cf4e7643037a2.tar.gz tk-ab9712f173e86119a51b6842550cf4e7643037a2.tar.bz2 |
Tweak test image-7.1.
Diffstat (limited to 'tests/image.test')
-rw-r--r-- | tests/image.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/image.test b/tests/image.test index e60120c..861b086 100644 --- a/tests/image.test +++ b/tests/image.test @@ -71,6 +71,9 @@ test image-1.7 {Tk_ImageCmd procedure, "create" option} -constraints { vwait x } after cancel timer + if {[lindex $x end] eq "timeout"} { + return [lreplace $x end end] + } return $x } -cleanup { imageCleanup |