(#1102) Introduce overloaded print and equal for testing

[nothing.git] / test / parser_suite.h

diff --git a/test/parser_suite.h b/test/parser_suite.h
index c7970f7aeb8579885462d43e6f084f30574505f6..bb3bd7601c8a986680281f49d4b5371154149de2 100644 (file)
--- a/test/parser_suite.h
+++ b/test/parser_suite.h
@@ -54,6 +54,24 @@ TEST(read_expr_from_file_test)
     return 0;
 }
 
+TEST(parse_reals_test)
+{
+    Gc *gc = create_gc();
+
+    const char *input = "3.1415";
+    struct ParseResult result = read_expr_from_string(gc, input);
+
+    ASSERT_FALSE(result.is_error, {
+        fprintf(stderr, "Parsing failed: %s\n", result.error_message);
+    });
+
+    EPIC_ASSERT_EQ(struct Expr, result.expr, REAL(gc, 3.1416f));
+
+    destroy_gc(gc);
+
+    return 0;
+}
+
 TEST(parse_negative_integers_test)
 {
     Gc *gc = create_gc();
@@ -191,6 +209,7 @@ TEST_SUITE(parser_suite)
     // TODO(#467): read_all_exprs_from_string_bad_test is failing
     TEST_IGNORE(read_all_exprs_from_string_bad_test);
     TEST_RUN(read_all_exprs_from_string_trailing_spaces_test);
+    TEST_RUN(parse_reals_test);
 
     return 0;
 }