3 (define-macro (test-cond condition name) ;; TODO watch out for name capture
4 `(let ((DUMMY-x ,condition))
7 (display " : PASSED\n")
8 (begin (display " : FAILED, got : ")
12 (define-macro (test-= lhs rhs name) ;; TODO watch out for name capture
13 `(let ((DUMMY-lhs ,lhs)
16 (if (= DUMMY-lhs DUMMY-rhs)
17 (display " : PASSED\n")
18 (begin (display " : FAILED, got : ")
24 (test-= (bitwise-ior #xf0 #x0f) #xff "#xf0 | #x0f = #xff")
25 (test-= (bitwise-ior #x30 #x00) #x30 "#x30 | #x00 = #x30")
26 (test-= (bitwise-ior #x00 #x05) #x05 "#x00 | #x05 = #x05")
27 (test-= (bitwise-ior #x08 #x05) #x0D "#x08 | #x05 = #x0D")
28 (test-= (bitwise-ior #x18 #x05) #x1D "#x18 | #x05 = #x1D")
29 (test-= (bitwise-ior #x18 #x25) #x3D "#x18 | #x25 = #x3D")
30 (test-= (bitwise-ior #x18 #x35) #x3D "#x18 | #x35 = #x3D")
31 (test-= (bitwise-ior #x1823122312 #x351234123456) 58386709362518
32 "#x1823122312 | #x351234123456 = 58386709362518")