Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-31 19:57:43 +01:00
Code Issues Projects Releases Packages Wiki Activity

add failing standard testsuite test to unit tests

Browse source 
Temporarily disabled
This commit is contained in:
Remko Tronçon 2022-04-17 16:06:20 +02:00
parent 739556cec0
commit 31bf2734b8
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/web/tests/suite.js
View file

@ -803,6 +803,23 @@ function loadTests() {
expect(stack[8]).to.eql(7); expect(stack[8]).to.eql(7);
expect(stack[9]).to.eql(5); expect(stack[9]).to.eql(5);
}); });
it.skip("should work with multiple whiles + else", () => {
run(
`: FOO BEGIN DUP 2 > WHILE DUP 5 < WHILE DUP 1+ REPEAT 123 ELSE 345 THEN 7 ;`
);
run("1 FOO 5");
expect(stack[0]).to.eql(1);
expect(stack[1]).to.eql(2);
expect(stack[2]).to.eql(2);
expect(stack[3]).to.eql(4);
expect(stack[4]).to.eql(4);
expect(stack[5]).to.eql(8);
expect(stack[6]).to.eql(8);
expect(stack[7]).to.eql(16);
expect(stack[8]).to.eql(7);
expect(stack[9]).to.eql(5);
});
}); });
describe("BEGIN / UNTIL", () => { describe("BEGIN / UNTIL", () => {