From b22d858c37ec605ad571a92461f36460f62af93f Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Wed, 5 May 2021 21:40:37 +0200
Subject: Dict -> Struct.

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

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

diff --git a/data/unit-testing/allocate_and_free.fate b/data/unit-testing/allocate_and_free.fate
index cf05414..8998236 100644
--- a/data/unit-testing/allocate_and_free.fate
+++ b/data/unit-testing/allocate_and_free.fate
@@ -1,8 +1,10 @@
 (fate_version 1)
 
 (local (ptr int) p0)
+(local (list (ptr int)) lp0)
 
 (allocate! p0)
+
 (set! (at p0) 72)
 
 (assert! (= (at p0) 72)
@@ -11,6 +13,15 @@
 
 (free! (at p0))
 
+(add! (default (ptr int)) lp0)
+(add! (default (ptr int)) lp0)
+(add! (default (ptr int)) lp0)
+(add! (default (ptr int)) lp0)
+
+(allocate! lp0.0)
+(allocate! (at (access_pointer 1 lp0)))
+(allocate! (access_pointer 1 lp0)))
+
 [COMPLETED]
 
 (end!)
-- 
cgit v1.2.3-70-g09d2