From 32e60ee1bab18f9b5441eeb97eadcf604af608ef Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Thu, 25 Jun 1998 16:12:10 +0000
Subject: *** empty log message ***

---
 tests/compile.test | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/tests/compile.test b/tests/compile.test
index 4720d35..0c94332 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -69,6 +69,16 @@ test compile-2.4 {TclCompileDollarVar: global scalar name with ::s} {
     list [p] $::a(1) [expr {[lsearch -exact [info globals] a] != 0}]
 } {1 1 1}
 
+test compile-3.2 {TclCompileCatchCmd: non-local variables} {
+    set ::foo 1
+    proc catch-test {} {
+	catch {set x 3} ::foo
+    }
+    catch-test
+    set ::foo
+} 3
+
+
 test compile-1.16 {TclCompileForCmd: command substituted test expression} {
     set i 0
     set j 0
-- 
cgit v0.12