add test main 01

test/rustint/core_test.clj

@@ -946,3 +946,14 @@
     ))
   )
 )
+
+(deftest test-agregar-ptocoma-main01
+  (testing "Test main 01 agregar-ptocoma"
+    (is (=
+      (agregar-ptocoma
+        (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'println! (symbol "(") "- Hola, mundo!" (symbol ")") (symbol ";") 'print! (symbol "(") "- My name is {}, James {}. '- Hello, {}{}{}!" (symbol ",") "Bond" (symbol ",") "Bond" (symbol ",") '- '2 '+ '2 (symbol ",") '0 (symbol ",") '3 '+ '2 '* '2 (symbol ")") (symbol ";") 'println! (symbol "(") (symbol ")") (symbol ";") 'println! (symbol "(") "- Hasta la vista, Baby! I'll be back..." (symbol ")") (symbol ";") 'println! (symbol "(") "{}" (symbol ",") 'if 'true (symbol "{") "- Lo dudo! Bye!" (symbol "}") 'else (symbol "{") "- Obviamente!" (symbol "}") (symbol ")") (symbol "}"))
+      )
+        (list 'fn 'main (symbol "(") (symbol ")") (symbol "{") 'println! (symbol "(") "- Hola, mundo!" (symbol ")") (symbol ";") 'print! (symbol "(") "- My name is {}, James {}. '- Hello, {}{}{}!" (symbol ",") "Bond" (symbol ",") "Bond" (symbol ",") '- '2 '+ '2 (symbol ",") '0 (symbol ",") '3 '+ '2 '* '2 (symbol ")") (symbol ";") 'println! (symbol "(") (symbol ")") (symbol ";") 'println! (symbol "(") "- Hasta la vista, Baby! I'll be back..." (symbol ")") (symbol ";") 'println! (symbol "(") "{}" (symbol ",") 'if 'true (symbol "{") "- Lo dudo! Bye!" (symbol "}") 'else (symbol "{") "- Obviamente!" (symbol "}") (symbol ")") (symbol "}"))
+    ))
+  )
+)