diff --git a/test/rustint/core_test.clj b/test/rustint/core_test.clj index b673e0d..f57c36a 100644 --- a/test/rustint/core_test.clj +++ b/test/rustint/core_test.clj @@ -852,3 +852,28 @@ )) ) ) + +(deftest test-fixup-02 + (testing "Test 02 fixup" + (is (= + (fixup [ + (symbol "{") + (list 'x '= 20 (symbol ";") (symbol "}") (symbol ";") 'println! (symbol "(") "{}" (symbol ",") 'x (symbol ")") (symbol "}")) + ['fn 'main (symbol "(") (symbol ")") (symbol "{") 'let 'x (symbol ":") 'i64 (symbol ";") 'if false (symbol "{") 'x '= 10 (symbol ";") (symbol "}") 'else] + :sin-errores + [[0 1 2] [['main ['fn [() ()]] 2] ['x ['var-inmut 'i64] 0]]] + 1 + [['CAL 2] 'HLT ['PUSHFI false] ['JC 5] ['JMP '?] ['PUSHFI 10] ['POP 0] ['JMP '?]] + [[2 ['i64 nil]]] + ] 4) + [ + (symbol "{") + (list 'x '= 20 (symbol ";") (symbol "}") (symbol ";") 'println! (symbol "(") "{}" (symbol ",") 'x (symbol ")") (symbol "}")) + ['fn 'main (symbol "(") (symbol ")") (symbol "{") 'let 'x (symbol ":") 'i64 (symbol ";") 'if false (symbol "{") 'x '= 10 (symbol ";") (symbol "}") 'else] + :sin-errores + [[0 1 2] [['main ['fn [() ()]] 2] ['x ['var-inmut 'i64] 0]]] + 1 [['CAL 2] 'HLT ['PUSHFI false] ['JC 5] ['JMP 8] ['PUSHFI 10] ['POP 0] ['JMP '?]] [[2 ['i64 nil]]]] + + )) + ) +)