Fourth test batch

test/results/closure access upvalue.ans

@@ -0,0 +1,5 @@
+--# run #--
+--- return ---
+"dramatic explosion"
+--# saved #--
+{}

test/results/closure define nested.ans

@@ -0,0 +1,11 @@
+--# run #--
+--- text ---
+| {}"" {}"42" {}"" |
+--- error ---
+no variable "y" defined in closure
+	↳ from test/tests/closure define nested.ans:12:4 in call: f . "y"
+	↳ from test/tests/closure define nested.ans:12:1 in text interpolation: | {f . "y"} |
+	↳ from test/tests/closure define nested.ans:12:1 in translatable: | {f . "y"} |
+	↳ from ? in block: :f = ($() _)…
+--# saved #--
+{}

test/results/closure define.ans

@@ -0,0 +1,5 @@
+--# run #--
+--- return ---
+"ok"
+--# saved #--
+{}

test/results/index identifier.ans

@@ -0,0 +1,11 @@
+--# run #--
+--- text ---
+| {}"" {}"42" {}"" |
+--- text ---
+| {}"" {}"42" {}"" |
+--- text ---
+| {}"" {}"42" {}"" |
+--- return ---
+()
+--# saved #--
+{}

test/tests/closure access upvalue.ans

@@ -0,0 +1,7 @@
+:f = ()
+_
+	:action = "dramatic explosion"
+	f = $
+		1 + 1
+
+f.action

test/tests/closure define nested.ans

@@ -0,0 +1,12 @@
+:f = $
+	| kk
+	:y = $
+		()
+	y.:z = 12
+	| ko
+
+f.:x = 42
+
+|{f.x}
+
+|{f.y}

test/tests/closure define.ans

@@ -0,0 +1,5 @@
+:f = $
+	()
+f.:x = "ok"
+
+f.x

test/tests/index identifier.ans

@@ -0,0 +1,9 @@
+:f = $()()
+f.:x = 42
+
+|{f.x}
+
+|{(f).x}
+
+:z = "x"
+|{(f).(z)}