Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-27 09:59:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove redundant strings

Browse source
This commit is contained in:
Remko Tronçon 2022-05-29 20:20:32 +02:00
parent 8f4c7b0999
commit 9284bc81d0
2 changed files with 193 additions and 195 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

376
src/waforth.wat
View file

File diff suppressed because it is too large Load diff

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

@ -973,21 +973,21 @@ function loadTests() {
it("should find a word", () => {
loadString("DUP");
run("FIND");
expect(stackValues()[0]).to.eql(132236); // FIXME: Make test more robust against dict changes
expect(stackValues()[0]).to.eql(132216); // FIXME: Make test more robust against dict changes
expect(stackValues()[1]).to.eql(-1);
});
it("should find a short word", () => {
loadString("!");
run("FIND");
expect(stackValues()[0]).to.eql(131240); // FIXME: Make test more robust against dict changes
expect(stackValues()[0]).to.eql(131220); // FIXME: Make test more robust against dict changes
expect(stackValues()[1]).to.eql(-1);
});
it("should find an immediate word", () => {
loadString("+LOOP");
run("FIND");
expect(stackValues()[0]).to.eql(131376); // FIXME: Make test more robust against dict changes
expect(stackValues()[0]).to.eql(131356); // FIXME: Make test more robust against dict changes
expect(stackValues()[1]).to.eql(1);
});
@ -1483,19 +1483,19 @@ function loadTests() {
it("should work", () => {
run(': FOO 0 0 S" 123AB" >NUMBER ;');
run("FOO");
expect(stackValues()).to.eql([123, 0, 133459, 2]); // FIXME: Make test more robust against dictionary changes
expect(stackValues()).to.eql([123, 0, 133439, 2]); // FIXME: Make test more robust against dictionary changes
});
it("should work with init", () => {
run(': FOO 1 0 S" 1" >NUMBER ;');
run("FOO");
expect(stackValues()).to.eql([11, 0, 133457, 0]); // FIXME: Make test more robust against dictionary changes
expect(stackValues()).to.eql([11, 0, 133437, 0]); // FIXME: Make test more robust against dictionary changes
});
it("should not parse sign", () => {
run(': FOO 0 0 S" -" >NUMBER ;');
run("FOO");
expect(stackValues()).to.eql([0, 0, 133456, 1]); // FIXME: Make test more robust against dictionary changes
expect(stackValues()).to.eql([0, 0, 133436, 1]); // FIXME: Make test more robust against dictionary changes
});
});