diff options
| author | bd <bdunahu@operationnull.com> | 2025-04-09 23:45:16 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-04-09 23:45:16 -0400 |
| commit | e50d44464db7eb8e1c20755c862466ac8f7419b0 (patch) | |
| tree | 495e62cb00fbb67f418c50cb96074fb638126877 /t | |
| parent | ce80845b5cb5b473327e4e561342490576d83a90 (diff) | |
Properly maintain a hashmap of labels, lots of minor code cleanups
Diffstat (limited to 't')
| -rw-r--r-- | t/parse.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
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")))) |