ok2
7d9937d0d8
Optimizing Forth 2012 compiler targeting WebAssembly with IR-based compilation pipeline, multi-typed stack inference, subroutine threading, and JIT/consolidation modes. Rust kernel with ~35 primitives and Forth standard library for core/core-ext word sets.
92 lines
2.6 KiB
Rust
92 lines
2.6 KiB
Rust
//! Forth 2012 compliance tests using Gerry Jackson's test suite.
|
|
//!
|
|
//! Each test function loads the corresponding test file from the
|
|
//! forth2012-test-suite submodule and runs it through WAFER.
|
|
//! Tests are initially `#[ignore]` and enabled as word sets are implemented.
|
|
|
|
/// Path to the test suite source directory.
|
|
/// The submodule lives at the workspace root: tests/forth2012-test-suite/
|
|
const _TEST_SUITE_DIR: &str = concat!(
|
|
env!("CARGO_MANIFEST_DIR"),
|
|
"/../../tests/forth2012-test-suite/src"
|
|
);
|
|
|
|
// TODO: Test harness that boots WAFER, loads tester.fr, and runs test files.
|
|
// For now, these are placeholder tests that document the compliance targets.
|
|
|
|
#[test]
|
|
#[ignore = "Step 10: Core word set not yet implemented"]
|
|
fn compliance_core() {
|
|
// Will load: tester.fr, then core.fr
|
|
// Must pass with 0 failures
|
|
todo!("Boot WAFER, load tester.fr + core.fr, assert 0 failures");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 10: Core word set not yet implemented"]
|
|
fn compliance_core_plus() {
|
|
// Will load: tester.fr, then coreplustest.fth
|
|
todo!("Boot WAFER, load tester.fr + coreplustest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Core extensions not yet implemented"]
|
|
fn compliance_core_ext() {
|
|
// Will load: tester.fr, utilities.fth, then coreexttest.fth
|
|
todo!("Boot WAFER, load coreexttest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Double-number word set not yet implemented"]
|
|
fn compliance_double() {
|
|
todo!("Boot WAFER, load doubletest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Exception word set not yet implemented"]
|
|
fn compliance_exception() {
|
|
todo!("Boot WAFER, load exceptiontest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Facility word set not yet implemented"]
|
|
fn compliance_facility() {
|
|
todo!("Boot WAFER, load facilitytest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: File-access word set not yet implemented"]
|
|
fn compliance_file() {
|
|
todo!("Boot WAFER, load filetest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Locals word set not yet implemented"]
|
|
fn compliance_locals() {
|
|
todo!("Boot WAFER, load localstest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Memory-allocation word set not yet implemented"]
|
|
fn compliance_memory() {
|
|
todo!("Boot WAFER, load memorytest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Search-order word set not yet implemented"]
|
|
fn compliance_search_order() {
|
|
todo!("Boot WAFER, load searchordertest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: String word set not yet implemented"]
|
|
fn compliance_string() {
|
|
todo!("Boot WAFER, load stringtest.fth");
|
|
}
|
|
|
|
#[test]
|
|
#[ignore = "Step 13: Programming-tools word set not yet implemented"]
|
|
fn compliance_tools() {
|
|
todo!("Boot WAFER, load toolstest.fth");
|
|
}
|