format test

test/rustint/core_test.clj

@@ -547,9 +547,64 @@
           [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]]
           [[2 ['i64 nil] ['i64 nil]] [8]]
         ]
-                                2)
+        2
+      )
       'i64
       )
     )
   )
 )
+
+(deftest test-buscar-tipo-de-retorno-02
+  (testing "Test 02 buscar-tipo-de-retorno"
+    (is (=
+        (buscar-tipo-de-retorno [
+          (symbol ";")
+          (list 'println! (symbol "(") "La suma de 5 mas 7 es {}" (symbol ",") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")") (symbol ")") (symbol ";") (symbol "}"))
+          ['fn 'suma (symbol "(") 'x (symbol ":") 'i64 (symbol ",") 'y (symbol ":") 'i64 (symbol ")") (symbol "->") 'i64 (symbol "{") 'x '+ 'y (symbol "}") 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")")]
+          :sin-errores
+          [
+            [0 2]
+            [
+              ['suma ['fn [(list ['x (symbol ":") 'i64] ['y (symbol ":") 'i64]) 'i64]] 2]
+              ['main ['fn [() ()]] 8]
+            ]
+          ]
+          0
+          [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]]
+          [[2 ['i64 nil] ['i64 nil]] [8]]
+        ]
+        8
+      )
+      '()
+      )
+    )
+  )
+)
+
+(deftest test-buscar-tipo-de-retorno-03
+  (testing "Test 03 buscar-tipo-de-retorno"
+    (is (=
+      (buscar-tipo-de-retorno [
+        (symbol ";")
+        (list 'println! (symbol "(") "La suma de 5 mas 7 es {}" (symbol ",") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")") (symbol ")") (symbol ";") (symbol "}"))
+        ['fn 'suma (symbol "(") 'x (symbol ":") 'i64 (symbol ",") 'y (symbol ":") 'i64 (symbol ")") (symbol "->") 'i64 (symbol "{") 'x '+ 'y (symbol "}") 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'suma (symbol "(") 5 (symbol ",") 7 (symbol ")")]
+        :sin-errores
+        [
+          [0 2]
+          [
+            ['suma ['fn [(list ['x (symbol ":") 'i64] ['y (symbol ":") 'i64]) 'i64]] 2]
+            ['main ['fn [() ()]] 8]
+          ]
+        ]
+        0
+        [['CAL 8] 'HLT ['POPARG 1] ['POPARG 0] ['PUSHFM 0] ['PUSHFM 1] 'ADD 'RET ['PUSHFI 5] ['PUSHFI 7] ['CAL 2]]
+        [[2 ['i64 nil] ['i64 nil]] [8]]
+      ]
+      1
+    )
+      nil
+      )
+    )
+  )
+)