From 75bb5443437f86d10d3359a47bee4fa5b63fd54b Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Tue, 12 Sep 2017 21:37:58 -0700
Subject: Added in the tests.

---
 core.nom | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'core.nom')

diff --git a/core.nom b/core.nom
index 920a295..3b0cf32 100644
--- a/core.nom
+++ b/core.nom
@@ -115,7 +115,7 @@ rule "%a == %b":
 macro "%a != %b": concat ["not (",%a as lua expr," == ",%b as lua expr,")"]
 
 rule "say %str":
-    lua block ["print(", %str, ")"]
+    lua block ["print(utils.repr(", %str, "))"]
 
 rule "printf %str":
     lua block ".."
@@ -274,3 +274,17 @@ rule "error!":
 
 rule "error %msg":
     lua block "compiler:error(vars.msg)"
+
+macro block "test %code yields %expected":
+    let "generated" = (lua expr "utils.repr(compiler:stringify_tree(vars.code.value.value), true)")
+    let "expected" = (%expected as lua expr)
+    if (%generated != %expected):
+        say "Test failed!"
+        say "Expected:"
+        say %expected
+        say "But got:"
+        say %generated
+        error!
+    return ""
+
+
-- 
cgit v1.2.3