This is an old revision of the document!

Star Forth Test Suite

Current version: 1.0

Version	Pass/Fail	Test	Expected Results
1.0 260313	PASS	signed > `-3 0 > .`	`0`
1.0 260313	PASS	: ; `: TEST 42 . ;`	`42`
1.0 260313	PASS	IF/THEN `: SIGN DUP 0 > IF 43 EMIT THEN . ;` `5 SIGN` `-3 SIGN` 0 SIGN	`+5` `-3` `0`
1.0 260313	PASS	DO/LOOP/I `: TENS 10 0 DO I . LOOP ;` `TENS`	`0 1 2 3 4 5 6 7 8 9`
1.0 260313	PASS	BEGIN/UNTIL `: COUNT3 3 BEGIN DUP . 1 - DUP 0 = UNTIL DROP ;` `COUNT3`	`3 2 1`
1.0 260313	PASS	BEGIN/WHILE `: COUNTDOWN BEGIN DUP WHILE DUP . 1 - REPEAT DROP ;` `5 COUNTDOWN` `0 COUNTDOWN`	`5 4 3 2 1` `0`
1.0 260313	PASS	`HERE .`	`$030800`
1.0 260313	PASS	`HEX $030800 @ .`	`0`
1.0 260313	PASS	`$030800 C@ .`	`0`
1.0 260313	PASS	`42 HERE ! HERE @ .`	`42`
1.0 260313	PASS	`: GREET .“ Hello, World!” CR ;` `GREET`	`Hello, world!`
1.0 260313	PASS	`: FIZZBUZZ 21 1 DO I 15 MOD 0 = IF .“ FizzBuzz” ELSE I 3 MOD 0 = IF .“ Fizz” ELSE I 5 MOD 0 = IF .“ Buzz” ELSE I . THEN THEN THEN CR LOOP ;`	not shown (but it works)
1.0 260313	PASS	`: SIMPLE 500000 0 DO LOOP ;` `SIMPLE`	~6 seconds (170,000 w/s)