From 2f1df92c215394610c54817c32a77becddf0c719 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 28 Apr 2024 21:15:56 -0700 Subject: [PATCH] Added arithmetic tests --- examples/tests.modal | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/examples/tests.modal b/examples/tests.modal index 36a12d9..845aa12 100644 --- a/examples/tests.modal +++ b/examples/tests.modal @@ -125,6 +125,13 @@ nap tap (inline 1) test (undefine-me) = (undefine-me) (undefinition 3) test +?(?-) (Arithmetic) + +?((?: ?0 ?1 ?2) (?:)) + 1 2 3 = 6 (Arithmetic 1) test +?((?0 ?: ?1) (?:)) 16 - 8 = 8 (Arithmetic 2) test +?((?0 ?1 ?:) (?:)) 12 10 * = 120 (Arithmetic 3) test + ?(?-) (Late Test Primitives) -<> (?x = ?y ?n test) (?(?: ?:) (#fail ?n found: ?x expect: ?y\n)) \ No newline at end of file +<> (?x = ?y ?n test) (?(?: ?:) (#fail ?n found: ?x expect: ?y\n)) +