From 912c9918d9a5afbfb023b650bed6e2754f030d5e Mon Sep 17 00:00:00 2001
From: nea <nea@nea.moe>
Date: Thu, 10 Aug 2023 18:30:49 +0200
Subject: Add more tests

---
 res/builtins.lisp | 10 ++++++++++
 res/stdtest.lisp  |  6 ++++++
 2 files changed, 16 insertions(+)

(limited to 'res')

diff --git a/res/builtins.lisp b/res/builtins.lisp
index e355c2f..1564e62 100644
--- a/res/builtins.lisp
+++ b/res/builtins.lisp
@@ -20,3 +20,13 @@
 (def false :false)
 (export true false)
 
+(comment "boolean operations. all of those are strict")
+(defun | (l r) (if l true r))
+(defun & (l r) (if l r false))
+(defun not (v) (if v false true))
+(defun ^ (l r) (if l (not r) r))
+(export | & not ^)
+
+(comment "comparisons")
+(defun gt (l r) (lt r l))
+(export gt)
diff --git a/res/stdtest.lisp b/res/stdtest.lisp
index 8de5164..bf230b3 100644
--- a/res/stdtest.lisp
+++ b/res/stdtest.lisp
@@ -14,3 +14,9 @@
 (defun test.assert (cond message) (if cond noop (ntest.fail message)))
 (export test.assert)
 
+(comment "Assert that two arguments are equal. Returns a closure")
+(defun test.assert-eq (actual expected)
+  (test.assert
+      (= actual expected)
+      (tostring "Expected" expected "got" actual)))
+(export test.assert-eq)
-- 
cgit