Add label processing, mnemonic and label lookup maps

1 files changed, 20 insertions, 0 deletions

diff --git a/t/parse.lisp b/t/parse.lisp
new file mode 100644
index 0000000..2ab3e76
--- /dev/null
+++ b/t/parse.lisp
@@ -0,0 +1,20 @@
+(in-package #:rva-tests)
+
+(def-suite parse-tests
+  :description "Test functions exported from the parser."
+  :in all-tests)
+
+(in-suite parse-tests)
+
+(test extract-label-is-a-label
+      (is (not (parse:extract-label '("LOOP" lex::colon)))))
+
+(test extract-label-not-a-label-one
+      (let ((lst '("NICE" "TRY")))
+	(is (equal lst
+		   (parse:extract-label lst)))))
+
+(test extract-label-not-a-label-two
+      (let ((lst '("LOOP" lex::colon lex::colon)))
+	(is (equal lst
+		   (parse:extract-label lst)))))