From e50d44464db7eb8e1c20755c862466ac8f7419b0 Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 9 Apr 2025 23:45:16 -0400 Subject: Properly maintain a hashmap of labels, lots of minor code cleanups --- t/parse.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 't') diff --git a/t/parse.lisp b/t/parse.lisp index a9de6db..b32263a 100644 --- a/t/parse.lisp +++ b/t/parse.lisp @@ -15,15 +15,15 @@ (test esrap-register-binary-ten (is (equal (list 'parse::rr 10) - (esrap:parse 'parse::register "$0b1010")))) + (esrap:parse 'parse::register "$0B1010")))) (test esrap-register-octal-ten (is (equal (list 'parse::rr 10) - (esrap:parse 'parse::register "$0o12")))) + (esrap:parse 'parse::register "$0O12")))) (test esrap-register-hex-ten (is (equal (list 'parse::rr 10) - (esrap:parse 'parse::register "$0xa")))) + (esrap:parse 'parse::register "$0XA")))) (test esrap-r-type-1 (is (equal '(parse::r "ADD" (parse::rr 5) (parse::rr 8) (parse::rr 1)) @@ -51,12 +51,12 @@ (test esrap-j-type-1 (is (equal '(parse::j "JMP" (parse::rr 3) (parse::imm 3)) - (esrap:parse 'parse:instr "JMP 3($3)")))) + (esrap:parse 'parse:instr "JMP 3($3)")))) (test esrap-j-type-2 (is (equal '(parse::j "JRL" (parse::rr 0) (parse::l "FOO")) - (esrap:parse 'parse:instr "JRL FOO")))) + (esrap:parse 'parse:instr "JRL FOO")))) (test esrap-j-type-3 (is (equal '(parse::j "PUSH" (parse::rr 1) (parse::imm 0)) - (esrap:parse 'parse:instr "PUSH $1")))) + (esrap:parse 'parse:instr "PUSH $1")))) -- cgit v1.2.3