mirror of
https://github.com/RetroPortingToolKit/psxrecomp
synced 2026-10-28 10:59:16 -04:00
Matthew Stanley
7c40d33db3
Phase 1a (boot slice): 30 instructions at 0xBFC00000, compiles clean. Phase 1b (instruction coverage): 54 opcodes implemented in strict_translator, 44,629 walker-reachable instructions covered, 0 missing. Phase 1c (function discovery): 76 functions from 2 seeds, 2,988 instructions, 199 call edges, 27 indirect jumps. All validated through StrictTranslator. Phase 1d (indirect control flow): 27 sites classified — 21 A0/B0/C0 dispatch stubs, 4 computed calls, 2 computed tail calls. Ghidra cross-referenced with 0 disagreements. Phase 1e (relocation): ROM-to-RAM copy at FUN_bfc00420 proven with both Ghidra (static) and DuckStation (runtime). 69 address aliases, 68/69 function entries match byte-for-byte in RAM. Normalization rule documented. Includes PRINCIPLES.md and DEBUG.md adapted from recomp-template. Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
246 lines
11 KiB
C++
246 lines
11 KiB
C++
#include <toml/parser.hpp>
|
||
|
||
#include "unit_test.hpp"
|
||
#include "test_parse_aux.hpp"
|
||
|
||
using namespace toml;
|
||
using namespace detail;
|
||
|
||
BOOST_AUTO_TEST_CASE(test_string)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"The quick brown fox jumps over the lazy dog\"",
|
||
string("The quick brown fox jumps over the lazy dog", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\'The quick brown fox jumps over the lazy dog\'",
|
||
string("The quick brown fox jumps over the lazy dog", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"The quick brown fox \\\njumps over the lazy dog\"\"\"",
|
||
string("The quick brown fox jumps over the lazy dog", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'''The quick brown fox \njumps over the lazy dog'''",
|
||
string("The quick brown fox \njumps over the lazy dog", string_t::literal));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_string_value)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"The quick brown fox jumps over the lazy dog\"",
|
||
toml::value("The quick brown fox jumps over the lazy dog", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\'The quick brown fox jumps over the lazy dog\'",
|
||
toml::value("The quick brown fox jumps over the lazy dog", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"The quick brown fox \\\njumps over the lazy dog\"\"\"",
|
||
toml::value("The quick brown fox jumps over the lazy dog", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'''The quick brown fox \njumps over the lazy dog'''",
|
||
toml::value("The quick brown fox \njumps over the lazy dog", string_t::literal));
|
||
}
|
||
|
||
|
||
BOOST_AUTO_TEST_CASE(test_basic_string)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"GitHub Cofounder & CEO\\nLikes tater tots and beer.\"",
|
||
string("GitHub Cofounder & CEO\nLikes tater tots and beer.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"192.168.1.1\"",
|
||
string("192.168.1.1", string_t::basic));
|
||
|
||
#if defined(_MSC_VER) || defined(__INTEL_COMPILER)
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\xE4\xB8\xAD\xE5\x9B\xBD\"",
|
||
string("\xE4\xB8\xAD\xE5\x9B\xBD", string_t::basic));
|
||
#else
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"中国\"",
|
||
string("中国", string_t::basic));
|
||
#endif
|
||
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"You'll hate me after this - #\"",
|
||
string("You'll hate me after this - #", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\" And when \\\"'s are in the along with # \\\"\"",
|
||
string(" And when \"'s are in the along with # \"", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"Here are fifteen apostrophes: '''''''''''''''\"",
|
||
string("Here are fifteen apostrophes: '''''''''''''''", string_t::basic));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_basic_string_value)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"GitHub Cofounder & CEO\\nLikes tater tots and beer.\"",
|
||
value("GitHub Cofounder & CEO\nLikes tater tots and beer.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"192.168.1.1\"",
|
||
value("192.168.1.1", string_t::basic));
|
||
#if defined(_MSC_VER) || defined(__INTEL_COMPILER)
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\xE4\xB8\xAD\xE5\x9B\xBD\"",
|
||
value("\xE4\xB8\xAD\xE5\x9B\xBD", string_t::basic));
|
||
#else
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"中国\"",
|
||
value("中国", string_t::basic));
|
||
#endif
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"You'll hate me after this - #\"",
|
||
value("You'll hate me after this - #", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\" And when \\\"'s are in the along with # \\\"\"",
|
||
value(" And when \"'s are in the along with # \"", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"Here are fifteen apostrophes: '''''''''''''''\"",
|
||
value("Here are fifteen apostrophes: '''''''''''''''", string_t::basic));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_ml_basic_string)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"\nThe quick brown \\\n\n fox jumps over \\\n the lazy dog.\"\"\"",
|
||
string("The quick brown fox jumps over the lazy dog.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"\\\n The quick brown \\\n\n fox jumps over \\\n the lazy dog.\\\n \"\"\"",
|
||
string("The quick brown fox jumps over the lazy dog.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"Here are two quotation marks: \"\". Simple enough.\"\"\"",
|
||
string("Here are two quotation marks: \"\". Simple enough.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"Here are three quotation marks: \"\"\\\".\"\"\"",
|
||
string("Here are three quotation marks: \"\"\".", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"Here are fifteen quotation marks: \"\"\\\"\"\"\\\"\"\"\\\"\"\"\\\"\"\"\\\".\"\"\"",
|
||
string("Here are fifteen quotation marks: \"\"\"\"\"\"\"\"\"\"\"\"\"\"\".", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\"\"\"This,\" she said, \"is just a pointless statement.\"\"\"\"",
|
||
string("\"This,\" she said, \"is just a pointless statement.\"", string_t::basic));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_ml_basic_string_value)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"\nThe quick brown \\\n\n fox jumps over \\\n the lazy dog.\"\"\"",
|
||
value("The quick brown fox jumps over the lazy dog.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"\\\n The quick brown \\\n\n fox jumps over \\\n the lazy dog.\\\n \"\"\"",
|
||
value("The quick brown fox jumps over the lazy dog.", string_t::basic));
|
||
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"Here are two quotation marks: \"\". Simple enough.\"\"\"",
|
||
value("Here are two quotation marks: \"\". Simple enough.", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"Here are three quotation marks: \"\"\\\".\"\"\"",
|
||
value("Here are three quotation marks: \"\"\".", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"Here are fifteen quotation marks: \"\"\\\"\"\"\\\"\"\"\\\"\"\"\\\"\"\"\\\".\"\"\"",
|
||
value("Here are fifteen quotation marks: \"\"\"\"\"\"\"\"\"\"\"\"\"\"\".", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"\"\"\"\"This,\" she said, \"is just a pointless statement.\"\"\"\"",
|
||
value("\"This,\" she said, \"is just a pointless statement.\"", string_t::basic));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_literal_string)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'C:\\Users\\nodejs\\templates'",
|
||
string("C:\\Users\\nodejs\\templates", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'\\\\ServerX\\admin$\\system32\\'",
|
||
string("\\\\ServerX\\admin$\\system32\\", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'Tom \"Dubs\" Preston-Werner'",
|
||
string("Tom \"Dubs\" Preston-Werner", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'<\\i\\c*\\s*>'",
|
||
string("<\\i\\c*\\s*>", string_t::literal));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_literal_string_value)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'C:\\Users\\nodejs\\templates'",
|
||
value("C:\\Users\\nodejs\\templates", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'\\\\ServerX\\admin$\\system32\\'",
|
||
value("\\\\ServerX\\admin$\\system32\\", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'Tom \"Dubs\" Preston-Werner'",
|
||
value("Tom \"Dubs\" Preston-Werner", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'<\\i\\c*\\s*>'",
|
||
value("<\\i\\c*\\s*>", string_t::literal));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_ml_literal_string)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'''I [dw]on't need \\d{2} apples'''",
|
||
string("I [dw]on't need \\d{2} apples", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'''\nThe first newline is\ntrimmed in raw strings.\n All other whitespace\n is preserved.\n'''",
|
||
string("The first newline is\ntrimmed in raw strings.\n All other whitespace\n is preserved.\n", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"''''That's still pointless', she said.'''",
|
||
string("'That's still pointless', she said.", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"'''Here are fifteen quotation marks: \"\"\"\"\"\"\"\"\"\"\"\"\"\"\".'''",
|
||
string("Here are fifteen quotation marks: \"\"\"\"\"\"\"\"\"\"\"\"\"\"\".", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"''''This,' she said, 'is just a pointless statement.''''",
|
||
string("'This,' she said, 'is just a pointless statement.'", string_t::literal));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_ml_literal_string_value)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'''I [dw]on't need \\d{2} apples'''",
|
||
value("I [dw]on't need \\d{2} apples", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'''\nThe first newline is\ntrimmed in raw strings.\n All other whitespace\n is preserved.\n'''",
|
||
value("The first newline is\ntrimmed in raw strings.\n All other whitespace\n is preserved.\n", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"''''That's still pointless', she said.'''",
|
||
value("'That's still pointless', she said.", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"'''Here are fifteen quotation marks: \"\"\"\"\"\"\"\"\"\"\"\"\"\"\".'''",
|
||
value("Here are fifteen quotation marks: \"\"\"\"\"\"\"\"\"\"\"\"\"\"\".", string_t::literal));
|
||
TOML11_TEST_PARSE_EQUAL_VALUE(parse_value<toml::value>,
|
||
"''''This,' she said, 'is just a pointless statement.''''",
|
||
value("'This,' she said, 'is just a pointless statement.'", string_t::literal));
|
||
}
|
||
|
||
BOOST_AUTO_TEST_CASE(test_simple_excape_sequences)
|
||
{
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
R"("\"\\\b\f\n\r\t")",
|
||
string("\"\\\b\f\n\r\t", string_t::basic));
|
||
#ifdef TOML11_USE_UNRELEASED_TOML_FEATURES
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
R"("\e")",
|
||
string("\x1b", string_t::basic));
|
||
#endif
|
||
}
|
||
|
||
|
||
BOOST_AUTO_TEST_CASE(test_unicode_escape_sequence)
|
||
{
|
||
#if defined(_MSC_VER) || defined(__INTEL_COMPILER)
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\\u03B1\\u03B2\\u03B3\"",
|
||
string("\xCE\xB1\xCE\xB2\xCE\xB3", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\\U0001D7AA\"",
|
||
string("\xF0\x9D\x9E\xAA", string_t::basic));
|
||
#else
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\\u03B1\\u03B2\\u03B3\"",
|
||
string("αβγ", string_t::basic));
|
||
TOML11_TEST_PARSE_EQUAL(parse_string,
|
||
"\"\\U0001D7AA\"",
|
||
string("𝞪", string_t::basic));
|
||
#endif
|
||
}
|