diff --git a/test/rustint/core_test.clj b/test/rustint/core_test.clj index 7104399..c8c4ed8 100644 --- a/test/rustint/core_test.clj +++ b/test/rustint/core_test.clj @@ -731,3 +731,32 @@ ) ) ) + +(deftest test-restaurar-contexto-anterior-01 + (testing "Test 01 restaurar-contexto-anterior" + (is (= + (restaurar-contexto-anterior + [ + 'EOF + () + ['fn 'main (symbol "(") (symbol ")") (symbol "{") 'let 'x (symbol ":") 'i64 (symbol "=") 10 (symbol ";") 'let 'y (symbol ":") 'i64 (symbol "=") 20 (symbol ";") 'println! (symbol "(") "{}" (symbol ",") 'x '+ 'y (symbol ")") (symbol "}")] + 8 + [[0 1] [['main ['fn [() ()]] 2] ['x ['var-inmut 'i64] 0] ['y ['var-inmut 'i64] 1]]] + 2 + [['CAL 2] 'HLT ['PUSHFI 10] ['POP 0] ['PUSHFI 20] ['POP 1] ['PUSHFI "{}"] ['PUSHFM 0] ['PUSHFM 1] 'ADD ['PUSHFI 2] 'OUT 'NL] + [[2 ['i64 nil] ['i64 nil]]] + ] + ) + [ + 'EOF + () + ['fn 'main (symbol "(") (symbol ")") (symbol "{") 'let 'x (symbol ":") 'i64 (symbol "=") 10 (symbol ";") 'let 'y (symbol ":") 'i64 (symbol "=") 20 (symbol ";") 'println! (symbol "(") "{}" (symbol ",") 'x '+ 'y (symbol ")") (symbol "}")] + 8 + [[0 1] [['main ['fn [() ()]] 2] ['x ['var-inmut 'i64] 0] ['y ['var-inmut 'i64] 1]]] + 2 + [['CAL 2] 'HLT ['PUSHFI 10] ['POP 0] ['PUSHFI 20] ['POP 1] ['PUSHFI "{}"] ['PUSHFM 0] ['PUSHFM 1] 'ADD ['PUSHFI 2] 'OUT 'NL] + [[2 ['i64 nil] ['i64 nil]]] + ] + )) + ) +)