From c265215bc6f8a49d47f5bfa29962601302c0c2df Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Fri, 4 Aug 2023 00:30:58 -0400
Subject: Add tests to tokenizer

---
 tnslc/simple.tnsl | 52 +++++++++++++++++++++++++++-------------------------
 1 file changed, 27 insertions(+), 25 deletions(-)

(limited to 'tnslc/simple.tnsl')

diff --git a/tnslc/simple.tnsl b/tnslc/simple.tnsl
index c0c1821..90ee758 100644
--- a/tnslc/simple.tnsl
+++ b/tnslc/simple.tnsl
@@ -1,34 +1,36 @@
-# testing file to try to reproduce bugs as best as possible
+# No longer simple
+:include "c_wrap.tnsl"
 
-# 8x4 bytes
-struct AddressError {
-    uint a, b, c, d
+enum LOL [int] {
+    A = 1,
+    B = 2,
+    C = 4
 }
 
-/; method AddressError
-    /; if_check [bool]
-        /; if (self.a < 0 && self.b !< self.d / 4)
-            return true
-        ;; else if (self.c == 0)
-            return false
-        ;/
-        return self.d != 1
-    ;/
+struct Lolbert {
+    int a, b, c,
+
+    ~uint8 stuff
+}
+
+/; lolbert1 (~Lolbert l, uint8 check) [bool]
+    return l`.a == check
 ;/
 
-/; main (int argc, ~~uint argv) [int]
-    # On windows, the first two arguments are passed in RCX and RDX, so we need to
-    # update their positions here or else tnsl will have garbage values in r8 and r9
-    asm "mov r8, rcx"
-    asm "mov r9, rdx"
 
-    AddressError ae
-    ae.a = ae.b = ae.c = ae.d = 0
+/; main [int]
+    Lolbert lol
+    lol.a = 1
+    lol.b = 4
+    lol.c = 3
+    lol.stuff = _alloc(2)
+    lol.stuff{0} = 2
+    lol.stuff{1} = 1
 
-    /; if (ae.if_check())
-        return 1
+    /; if (lolbert1(~lol, lol.stuff{1}) && lolbert1(~lol, lol.stuff{0}))
+        _delete(lol.stuff)
+        return lol.a + lol.b
     ;/
-    
+    _delete(lol.stuff)
     return 0
-;/
-
+;/
\ No newline at end of file
-- 
cgit v1.2.3