haxala1r/mash
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added extra test cases for parsing quotes and symbols, also change symbols to always be uppercase
All checks were successful
ci/woodpecker/push/workflow Pipeline was successful
Details

Browse Source
This commit is contained in:
haxala1r
2025-10-03 22:57:28 +03:00
committed by Emin Arslan
parent 01246cc0e1
commit 75eb879993
2 changed files with 24 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/parse.cpp
View File

@@ -1,6 +1,8 @@
#include <cctype>
#include <exception>
#include <lex.hpp>
#include <algorithm>
#include <parse.hpp>
#include <iostream>
@@ -31,6 +33,7 @@ String Parser::make_string(string s) {
}
Symbol Parser::make_symbol(string s) {
transform(s.begin(), s.end(), s.begin(), ::toupper);
return Symbol {s};
}

22
src/tests/test.cpp
View File

@@ -32,7 +32,7 @@ TEST_CASE("Parser parses correctly", "[Parser]") {
SECTION("hello world") {
Parser p (Lexer("(print \"hello world\")"));
auto dq = get<List>(*p.next()).list;
REQUIRE(get<Symbol>(pop_and_front(dq)).value == "print");
REQUIRE(get<Symbol>(pop_and_front(dq)).value == "PRINT");
REQUIRE(get<String>(pop_and_front(dq)).value == "hello world");
}
SECTION("doubles") {
@@ -63,5 +63,25 @@ TEST_CASE("Parser parses correctly", "[Parser]") {
REQUIRE(get<Integer>(pop_and_front(l22)).value == 2);
REQUIRE(get<Integer>(pop_and_front(l23)).value == 3);
}
SECTION("Nested quotes") {
Parser p(Lexer("((('a 'b 'c 'd)))"));
auto l0 = get<List>(*p.next()).list;
auto l1 = get<List>(pop_and_front(l0)).list;
auto l2 = get<List>(pop_and_front(l1)).list;
auto l20 = get<List>(pop_and_front(l2)).list;
auto l21 = get<List>(pop_and_front(l2)).list;
auto l22 = get<List>(pop_and_front(l2)).list;
auto l23 = get<List>(pop_and_front(l2)).list;
REQUIRE(get<Symbol>(pop_and_front(l20)).value == "QUOTE");
REQUIRE(get<Symbol>(pop_and_front(l20)).value == "A");
REQUIRE(get<Symbol>(pop_and_front(l21)).value == "QUOTE");
REQUIRE(get<Symbol>(pop_and_front(l21)).value == "B");
REQUIRE(get<Symbol>(pop_and_front(l22)).value == "QUOTE");
REQUIRE(get<Symbol>(pop_and_front(l22)).value == "C");
REQUIRE(get<Symbol>(pop_and_front(l23)).value == "QUOTE");
REQUIRE(get<Symbol>(pop_and_front(l23)).value == "D");
}
}