From 1cefec4d67ac4dbf58aab14fac51e3671688a5f6 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sat, 7 Nov 2020 23:59:01 +0100
Subject: More unit testing...

---
 data/unit-testing/field_access.fate | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'data/unit-testing/field_access.fate')

diff --git a/data/unit-testing/field_access.fate b/data/unit-testing/field_access.fate
index eba657a..4f977f8 100644
--- a/data/unit-testing/field_access.fate
+++ b/data/unit-testing/field_access.fate
@@ -85,6 +85,16 @@
    ts0_1.i = (var ts0_1.i)
 )
 
+(assert
+   (=
+      (field ts0_1 i)
+      (get_field (set_fields ts1_0 (i 420)) i)
+      (get_field (field (field ts2_0 ts1) ts0) i)
+      420
+   )
+   [FAILED] (var test_name) Test 2.
+)
+
 [COMPLETED] (var test_name)
 
 (end)
-- 
cgit v1.2.3-70-g09d2