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

Enable sieve tests

Browse source
This commit is contained in:
Remko Tronçon 2018-06-03 21:49:59 +02:00
parent 6ce0cf86bc
commit 537f2b2b98
1 changed files with 14 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
tests/index.js
View file

@ -1,6 +1,7 @@
import WAForth from "../src/shell/WAForth";
import { mocha } from "mocha";
import { expect } from "chai";
import sieve from "../src/shell/sieve";
mocha.setup("bdd");
describe("WAForth", () => {
@ -1227,29 +1228,20 @@ describe("WAForth", () => {
});
describe("system", () => {
it.skip("should run sieve", () => {
run(`
: prime? HERE + C@ 0= ;
: composite! HERE + 1 SWAP C! ;
beforeEach(() => {
core.loadPrelude();
});
: sieve
HERE OVER ERASE
2
BEGIN
2DUP DUP * >
WHILE
DUP prime? IF
2DUP DUP * DO
I composite!
DUP +LOOP
THEN
1+
REPEAT
DROP
." Primes: " 2 DO I prime? IF I . THEN LOOP
;`);
run("10 sieve");
expect(output).to.eql("");
it("should run sieve", () => {
run(sieve);
run("100 sieve");
expect(output.trim()).to.eql("97");
});
it("should run direct sieve", () => {
run(sieve);
run("100 sieve_direct");
expect(stack[0]).to.eql(97);
});
});
});