diff options
| author | bd <bdunahu@operationnull.com> | 2025-04-07 23:58:29 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-04-07 23:58:29 -0400 |
| commit | 0fe2cc70abacc7c9e7aa2602836c8226bb1a1dc3 (patch) | |
| tree | 6d0b35edad95195221e55c976d944d19c46e6a58 /t/util.lisp | |
| parent | 1ba3929b633b35a2131960b5344359478594626a (diff) | |
Add label processing, mnemonic and label lookup maps
Diffstat (limited to 't/util.lisp')
| -rw-r--r-- | t/util.lisp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/util.lisp b/t/util.lisp index ef59fbb..c2dafab 100644 --- a/t/util.lisp +++ b/t/util.lisp @@ -14,3 +14,15 @@ (test asm-extension?-returns-true-obvious-case (is (util:asm-extension? "quux.asm"))) + +(test format-as-binary-unsigned-no-pad + (is (string= (util:format-as-binary 0 0) + "0"))) + +(test format-as-binary-unsigned-no-pad-fourty-two + (is (string= (util:format-as-binary 42 0) + "101010"))) + +(test format-as-binary-unsigned-pad-fourty-two + (is (string= (util:format-as-binary 42 10) + "0000101010"))) |