agregar test agregar ptocoma

test/rustint/core_test.clj

@@ -957,3 +957,14 @@
     ))
   )
 )
+
+(deftest test-agregar-ptocoma-02
+  (testing "Test main 02 agregar-ptocoma"
+    (is (=
+      (agregar-ptocoma
+        (list 'fn 'main (symbol "(") (symbol ")") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") 'print! (symbol "(") "y: " (symbol ")") (symbol ";") (symbol "}") )
+      )
+        (list 'fn 'main (symbol "(") (symbol ")") 'if 'x '< '0 (symbol "{") 'x '= '- 'x (symbol ";") 'x_cambio '= 'true (symbol ";") (symbol "}") (symbol ";") 'print! (symbol "(") "y: " (symbol ")") (symbol ";") (symbol "}") )
+    ))
+  )
+)