From ac76aa626c39b095fce618658c7e79d7ea274b4d Mon Sep 17 00:00:00 2001 From: CrossNox Date: Tue, 29 Nov 2022 07:06:53 -0300 Subject: [PATCH] agregar test agregar ptocoma --- test/rustint/core_test.clj | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/test/rustint/core_test.clj b/test/rustint/core_test.clj index 029b6e6..3971157 100644 --- a/test/rustint/core_test.clj +++ b/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 "}") ) + )) + ) +)