diff --git a/src/web/tests/forth2012-test-suite/coreexttest.fth b/src/web/tests/forth2012-test-suite/coreexttest.fth index 3628fb6..2032fce 100644 --- a/src/web/tests/forth2012-test-suite/coreexttest.fth +++ b/src/web/tests/forth2012-test-suite/coreexttest.fth @@ -636,8 +636,8 @@ T{ CHAR " PARSE 4567 "DUP ROT ROT EVALUATE -> 5 4567 }T TESTING PARSE-NAME (Forth 2012) \ Adapted from the PARSE-NAME RfD tests -\ T{ PARSE-NAME abcd STR1 S= -> TRUE }T \ No leading spaces -\ T{ PARSE-NAME abcde STR2 S= -> TRUE }T \ Leading spaces +T{ PARSE-NAME abcd STR1 S= -> TRUE }T \ No leading spaces +T{ PARSE-NAME abcde STR2 S= -> TRUE }T \ Leading spaces \ Test empty parse area, new lines are necessary T{ PARSE-NAME diff --git a/src/web/tests/suite.js b/src/web/tests/suite.js index 6883f37..812a04a 100644 --- a/src/web/tests/suite.js +++ b/src/web/tests/suite.js @@ -1,7 +1,7 @@ import WAForth from "../waforth"; import sieve from "../../examples/sieve.f"; import forth2012TestSuiteTester from "./forth2012-test-suite/tester.fr"; -// import forth2012TestSuiteUtilities from "./forth2012-test-suite/utilities.fth"; +import forth2012TestSuiteUtilities from "./forth2012-test-suite/utilities.fth"; import forth2012CoreTestSuite from "./forth2012-test-suite/core.fr"; import forth2012CorePlusTestSuite from "./forth2012-test-suite/coreplustest.fth"; // import forth2012ErrorReport from "./forth2012-test-suite/errorreport.fth"; @@ -1639,7 +1639,7 @@ function loadTests() { it("should run core ext tests", () => { run(forth2012CoreTestSuite); run(forth2012CorePlusTestSuite); - // run(forth2012TestSuiteUtilities); + run(forth2012TestSuiteUtilities); // run(forth2012ErrorReport); run(forth2012CoreExtTestSuite); expect(output).to.include(`Output from .(