add test for fixup

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]]]
+        ]
+    ))
+  )
+)