|
|
|
@ -211,7 +211,18 @@ |
|
|
|
(let [ |
|
|
|
(let [ |
|
|
|
printed (with-out-str (dump '[[POPREF 2] [PUSHFI 2] MUL [PUSHFI 1] ADD NEG])) |
|
|
|
printed (with-out-str (dump '[[POPREF 2] [PUSHFI 2] MUL [PUSHFI 1] ADD NEG])) |
|
|
|
] |
|
|
|
] |
|
|
|
(is (= printed "\n0 [POPREF 2]\n1 [PUSHFI 2]\n2 MUL\n3 [PUSHFI 1]\n4 ADD\n5 NEG\nnil" |
|
|
|
(is (= printed "0 [POPREF 2]\n1 [PUSHFI 2]\n2 MUL\n3 [PUSHFI 1]\n4 ADD\n5 NEG\nnil" |
|
|
|
|
|
|
|
)) |
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(deftest dump-02 |
|
|
|
|
|
|
|
(testing "Test 02 dump" |
|
|
|
|
|
|
|
(let [ |
|
|
|
|
|
|
|
printed (with-out-str (dump '[HLT])) |
|
|
|
|
|
|
|
] |
|
|
|
|
|
|
|
(is (= printed "0 HLT\nnil" |
|
|
|
)) |
|
|
|
)) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
) |
|
|
|
|