add test pto-coma

test/rustint/core_test.clj

@@ -968,3 +968,14 @@
     ))
   )
 )
+
+(deftest test-agregar-ptocoma-03
+  (testing "Test main 03 agregar-ptocoma"
+    (is (=
+      (agregar-ptocoma
+        (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") 'print! (symbol "(") "y:_" (symbol ")") (symbol ";") 'let 'mut 'prod (symbol ":") 'i64 '= '0 (symbol ";") 'while 'y '> '0 (symbol "{") 'if 'y '% '2 '!= '0 (symbol "{") 'prod '+ '= 'x (symbol ";") (symbol "}") (symbol "}") 'if 'x_cambio (symbol "{") 'prod '= '- 'prod (symbol ";") (symbol "}") (symbol "}"))
+      )
+      (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") (symbol ";") 'print! (symbol "(") "y:_" (symbol ")") (symbol ";") 'let 'mut 'prod (symbol ":") 'i64 '= '0 (symbol ";") 'while 'y '> '0 (symbol "{") 'if 'y '% '2 '!= '0 (symbol "{") 'prod '+ '= 'x (symbol ";") (symbol "}") (symbol "}") (symbol ";") 'if 'x_cambio (symbol "{") 'prod '= '- 'prod (symbol ";") (symbol "}") (symbol "}"))
+    ))
+  )
+)