From ab9712f173e86119a51b6842550cf4e7643037a2 Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Fri, 24 May 2019 21:55:35 +0000
Subject: Tweak test image-7.1.

---
 tests/image.test | 3 +++
 1 file changed, 3 insertions(+)

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
-- 
cgit v0.12