From 0a835a65d8d74b205d0beb14ac1467d539dac079 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=89tienne=20Reuh=20Fildadut?= <fildadut@reuh.eu>
Date: Sat, 30 Dec 2023 23:45:30 +0100
Subject: [PATCH] Fourth test batch

---
 test/results/closure access upvalue.ans |  5 +++++
 test/results/closure define nested.ans  | 11 +++++++++++
 test/results/closure define.ans         |  5 +++++
 test/results/index identifier.ans       | 11 +++++++++++
 test/tests/closure access upvalue.ans   |  7 +++++++
 test/tests/closure define nested.ans    | 12 ++++++++++++
 test/tests/closure define.ans           |  5 +++++
 test/tests/index identifier.ans         |  9 +++++++++
 8 files changed, 65 insertions(+)
 create mode 100644 test/results/closure access upvalue.ans
 create mode 100644 test/results/closure define nested.ans
 create mode 100644 test/results/closure define.ans
 create mode 100644 test/results/index identifier.ans
 create mode 100644 test/tests/closure access upvalue.ans
 create mode 100644 test/tests/closure define nested.ans
 create mode 100644 test/tests/closure define.ans
 create mode 100644 test/tests/index identifier.ans

diff --git a/test/results/closure access upvalue.ans b/test/results/closure access upvalue.ans
new file mode 100644
index 0000000..87f9553
--- /dev/null
+++ b/test/results/closure access upvalue.ans	
@@ -0,0 +1,5 @@
+--# run #--
+--- return ---
+"dramatic explosion"
+--# saved #--
+{}
\ No newline at end of file
diff --git a/test/results/closure define nested.ans b/test/results/closure define nested.ans
new file mode 100644
index 0000000..c108ce5
--- /dev/null
+++ b/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 #--
+{}
\ No newline at end of file
diff --git a/test/results/closure define.ans b/test/results/closure define.ans
new file mode 100644
index 0000000..b4e9fb8
--- /dev/null
+++ b/test/results/closure define.ans	
@@ -0,0 +1,5 @@
+--# run #--
+--- return ---
+"ok"
+--# saved #--
+{}
\ No newline at end of file
diff --git a/test/results/index identifier.ans b/test/results/index identifier.ans
new file mode 100644
index 0000000..329219e
--- /dev/null
+++ b/test/results/index identifier.ans	
@@ -0,0 +1,11 @@
+--# run #--
+--- text ---
+| {}"" {}"42" {}"" |
+--- text ---
+| {}"" {}"42" {}"" |
+--- text ---
+| {}"" {}"42" {}"" |
+--- return ---
+()
+--# saved #--
+{}
\ No newline at end of file
diff --git a/test/tests/closure access upvalue.ans b/test/tests/closure access upvalue.ans
new file mode 100644
index 0000000..406613c
--- /dev/null
+++ b/test/tests/closure access upvalue.ans	
@@ -0,0 +1,7 @@
+:f = ()
+_
+	:action = "dramatic explosion"
+	f = $
+		1 + 1
+
+f.action
\ No newline at end of file
diff --git a/test/tests/closure define nested.ans b/test/tests/closure define nested.ans
new file mode 100644
index 0000000..35770b1
--- /dev/null
+++ b/test/tests/closure define nested.ans	
@@ -0,0 +1,12 @@
+:f = $
+	| kk
+	:y = $
+		()
+	y.:z = 12
+	| ko
+
+f.:x = 42
+
+|{f.x}
+
+|{f.y}
diff --git a/test/tests/closure define.ans b/test/tests/closure define.ans
new file mode 100644
index 0000000..d67d652
--- /dev/null
+++ b/test/tests/closure define.ans	
@@ -0,0 +1,5 @@
+:f = $
+	()
+f.:x = "ok"
+
+f.x
\ No newline at end of file
diff --git a/test/tests/index identifier.ans b/test/tests/index identifier.ans
new file mode 100644
index 0000000..8a0fd25
--- /dev/null
+++ b/test/tests/index identifier.ans	
@@ -0,0 +1,9 @@
+:f = $()()
+f.:x = 42
+
+|{f.x}
+
+|{(f).x}
+
+:z = "x"
+|{(f).(z)}