diff --git a/test/rustint/core_test.clj b/test/rustint/core_test.clj index f844d19..b673e0d 100644 --- a/test/rustint/core_test.clj +++ b/test/rustint/core_test.clj @@ -825,3 +825,30 @@ )) ) ) + +(deftest test-fixup-01 + (testing "Test 01 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] + 8 + [[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] + 8 + [[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]]] + ] + )) + ) +)