1 files changed, 50 insertions, 0 deletions
diff --git a/tests/env.test b/tests/env.test
index ce7c01e..bf3d9a1 100644
--- a/tests/env.test
+++ b/tests/env.test
@@ -411,6 +411,56 @@ test env-7.3 {
     }}
 } -cleanup cleanup1 -result 1
 
+test env-7.4 {
+    get env variable through upvar
+} -setup setup1 -body {
+    apply {{} {
+	set ::env(test7_4) origvalue
+	upvar #0 env(test7_4) var
+	return $var
+    }}
+} -cleanup cleanup1 -result origvalue
+
+test env-7.5 {
+    set env variable through upvar
+} -setup setup1 -body {
+    apply {{} {
+	set ::env(test7_5) origvalue
+	upvar #0 env(test7_5) var
+	set var newvalue
+	return $::env(test7_5)
+    }}
+} -cleanup cleanup1 -result newvalue
+
+test env-7.6 {
+    unset env variable through upvar
+} -setup setup1 -body {
+    apply {{} {
+	set ::env(test7_6) origvalue
+	upvar #0 env(test7_6) var
+	unset var
+	return [array get env test7_6]
+    }}
+} -cleanup cleanup1 -result {}
+
+test env-7.7 {
+    create new (unset) env variable through upvar
+} -setup setup1 -body {
+    apply {{} {
+	unset -nocomplain ::env(test7_7)
+	upvar #0 env(test7_7) var
+	interp create interp1
+	set var newvalue
+	set result [interp1 eval {info exists ::env(test7_7)}]
+	if {$result} {
+	    lappend result [interp1 eval {set ::env(test7_7)}]
+	}
+	interp delete interp1
+	return $result
+    }}
+} -cleanup cleanup1 -result {1 newvalue}
+
+
 test env-8.0 {
     memory usage - valgrind does not report reachable memory
 } -body {