From df508744ec2975cec0ba05e8a4358c1c41265c4c Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 10 Apr 2025 03:53:43 -0400 Subject: Add untested (but works on the single input file) code emission --- t/util.lisp | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 't/util.lisp') diff --git a/t/util.lisp b/t/util.lisp index c2dafab..e15e142 100644 --- a/t/util.lisp +++ b/t/util.lisp @@ -16,13 +16,17 @@ (is (util:asm-extension? "quux.asm"))) (test format-as-binary-unsigned-no-pad - (is (string= (util:format-as-binary 0 0) - "0"))) + (is (string= "0" + (util:format-as-binary 0 0)))) (test format-as-binary-unsigned-no-pad-fourty-two - (is (string= (util:format-as-binary 42 0) - "101010"))) + (is (string= "101010" + (util:format-as-binary 42 6)))) (test format-as-binary-unsigned-pad-fourty-two - (is (string= (util:format-as-binary 42 10) - "0000101010"))) + (is (string= "0000101010" + (util:format-as-binary 42 10)))) + +(test format-as-binary-overflow + (is (string= "10" + (util:format-as-binary 10 2)))) -- cgit v1.2.3