roland/xo-umbrella2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

xo-XXX -> .xo-XXX (prep subrepo)

Browse source
This commit is contained in:
Roland Conybeare 2026-06-06 22:00:54 -04:00
commit cf0bd4d975
2105 changed files with 0 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

73
xo-reader/utest/reader.test.cpp
View file

@ -1,73 +0,0 @@
/* @file reader.test.cpp */
#include "xo/reader/reader.hpp"
#include <catch2/catch.hpp>
namespace xo {
using xo::scm::reader;
using xo::scm::GlobalSymtab;
namespace ut {
namespace {
struct test_case {
const char * text_;
};
std::vector<test_case> s_testcase_v = {
{"def foo : f64 = 3.14159265;"},
{"def foo : f64 = (3.14159265);"},
{"def foo = 2.0 * 3.141569265;"},
{"def foo = lambda (x : f64) 3.1415965;"},
{"def foo = lambda (x : f64, y : f64) 3.1415965;"},
{"def foo = lambda (x : f64) x;"},
{"def foo = lambda (x : f64) { def y = x * x; y; };"},
{"add(1,2);"},
};
}
TEST_CASE("reader", "[reader]") {
constexpr bool c_debug_flag = true;
scope log(XO_DEBUG(c_debug_flag), xtag("utest", "reader"));
for (std::size_t i_tc = 0; i_tc < s_testcase_v.size(); ++i_tc) {
const test_case & tc = s_testcase_v[i_tc];
rp<GlobalSymtab> toplevel_symtab = GlobalSymtab::make_empty();
reader rdr(toplevel_symtab, c_debug_flag);
scope log(XO_ENTER2(always, c_debug_flag, "reader.testcase"),
xtag("i_tc", i_tc));
rdr.begin_translation_unit();
try {
auto input
= reader::span_type::from_cstr(tc.text_);
auto rr
= rdr.read_expr(input, true /*eof*/);
REQUIRE(rr.expr_.get());
log && log(xtag("expr", rr.expr_));
#ifdef OBSOLETE // input not consumed until next line presented
input = input.after_prefix(rr.rem_);
log && log(xtag("post.input", input));
#endif
//REQUIRE(input.empty());
} catch (std::exception & ex) {
log && log(ex.what());
INFO(ex.what());
REQUIRE(false);
}
}
}
} /*namespace ut*/
} /*namespace xo*/
/* end reader.test.cpp */