From 0fe2cc70abacc7c9e7aa2602836c8226bb1a1dc3 Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 7 Apr 2025 23:58:29 -0400 Subject: Add label processing, mnemonic and label lookup maps --- t/parse.lisp | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 t/parse.lisp (limited to 't/parse.lisp') 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))))) -- cgit v1.2.3