From aafc31a89b188a589cc256a1f62bb80b2f053a2b Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Sat, 23 Jan 2016 19:00:19 +0000
Subject: Remove cross-test disruption.

---
 tests/font.test | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/font.test b/tests/font.test
index 9ed24dc..2defb29 100644
--- a/tests/font.test
+++ b/tests/font.test
@@ -1162,6 +1162,7 @@ test font-33.1 {Tk_TextWidth procedure} {
 
 test font-34.1 {ConfigAttributesObj procedure: arguments} {
     # (Tcl_GetIndexFromObj() != TCL_OK)
+    set x {}
     setup
     list [catch {font create xyz -xyz} msg] $msg
 } {1 {bad option "-xyz": must be -family, -size, -weight, -slant, -underline, or -overstrike}}
-- 
cgit v0.12