@ -217,6 +217,12 @@
)
(deftest dump-01-nil
(testing "Test 01 dump nil"
(is (nil? (dump '[[POPREF 2] [PUSHFI 2] MUL [PUSHFI 1] ADD NEG])))
(deftest dump-02
(testing "Test 02 dump"
(let [
@ -227,3 +233,9 @@
(deftest dump-02-nil
(testing "Test 02 dump nil"
(is (nil? (dump '[HLT])))