From 37e48fb6ece2a3d6fae7dee9588c191fe040d054 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 8 Aug 2020 18:25:44 +0200
Subject: More tests and fixes; anon ref/set/list.

---
 data/tests/references.fate | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 data/tests/references.fate

(limited to 'data/tests/references.fate')

diff --git a/data/tests/references.fate b/data/tests/references.fate
new file mode 100644
index 0000000..cc30154
--- /dev/null
+++ b/data/tests/references.fate
@@ -0,0 +1,17 @@
+(fate_version 1)
+
+(require include/data_types.fate)
+
+(def_var (ptr int) alloc_i)
+
+(set alloc_i (new int))
+(set (at alloc_i) 2)
+
+(assert (= (at (var alloc_i)) 2) FAILED: set at A)
+
+(def_var (ptr (ptr int)) i_ptr_ptr)
+(set i_ptr_ptr (ptr alloc_i))
+(set (at (at i_ptr_ptr)) 4)
+(assert (= (at (var alloc_i)) 4) FAILED: set at B)
+
+(end)
-- 
cgit v1.2.3-70-g09d2