add test tipo de retorno

test/rustint/core_test.clj

@@ -623,7 +623,40 @@
   )
 )
 
- (deftest test-cargar-const-en-tabla-01
+(deftest test-buscar-tipo-de-retorno-04
+  (testing "Test 04 buscar-tipo-de-retorno"
+    (is (=
+      (buscar-tipo-de-retorno [
+          nil,
+          nil,
+          nil,
+          nil,
+          [
+            nil,
+            [
+              ['io ['lib '()] 0]
+              ['Write ['lib '()] 0]
+              ['process ['lib '()] 0]
+              ['dividir ['fn ['(['x (symbol ":") 'i64] ['y (symbol ":") 'i64] ['q (symbol ":") '& 'mut 'i64] ['r (symbol ":") '& 'mut 'i64]) '()]] 2]
+              ['mostrar_salida ['fn ['(['cociente (symbol ":") 'i64] ['resto (symbol ":") 'i64]) '()]] 92]
+              ['main ['fn ['() '()]] 105]
+              ['renglon ['var-mut 'String] 0]
+              ['x ['var-inmut 'i64] 1]
+              ['y ['var-inmut 'i64] 2]
+              ['q ['var-mut 'i64] 3]
+              ['r ['var-mut 'i64] 4]
+            ]
+          ],
+          nil,
+          nil,
+          nil
+        ] 2)
+      '()
+    ))
+  )
+)
+
+(deftest test-cargar-const-en-tabla-01
   (testing "Test 01 cargar-const-en-tabla"
     (is (=
           (cargar-const-en-tabla [