From 71dcf14194a52565764654ad3039af42c094e8e8 Mon Sep 17 00:00:00 2001
From: pooryorick <com.digitalsmarties@pooryorick.com>
Date: Wed, 28 Apr 2021 14:01:22 +0000
Subject: Add test for upvar a linked variable to itself.

---
 tests/upvar.test | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

diff --git a/tests/upvar.test b/tests/upvar.test
index 82079b1..c31eaa1 100644
--- a/tests/upvar.test
+++ b/tests/upvar.test
@@ -249,6 +249,33 @@ test upvar-6.3 {retargeting an upvar} {
     p1
 } {abcde 44}
 
+
+
+test upvar-6.4 {
+	retargeting a variable created by upvar to itself is allowed
+} -body {
+	catch {
+		unset x
+	}
+	catch {
+		unset y
+	}
+	set res {}
+    set x abcde
+	set res [catch {
+		upvar 0 x x
+	} cres copts]
+	lappend res [dict get $copts -errorcode]
+	upvar 0 x y
+	lappend res $y
+	upvar 0 y y
+	lappend res $y
+	return $res
+} -cleanup {
+	upvar 0 {} y
+} -result {1 {TCL UPVAR SELF} abcde abcde}
+
+
 test upvar-7.1 {upvar to same level} {
     set x 44
     set y 55
-- 
cgit v0.12