collapseos/tests/harness.fs

( Forth testing harness
  "#" means "assert". We stop at first failure, indicating
  the failure through IO on port 1 )

: fail SPC> ." failed" NL> 1 1 PC! BYE ;

: # IF SPC> ." pass" NL> ELSE fail THEN ;

: #eq 2DUP SWAP . SPC> '=' EMIT SPC> . '?' EMIT = # ;
tests: add Forth tests Modest first step 2020-03-20 06:43:48 +11:00			`( Forth testing harness`
			`"#" means "assert". We stop at first failure, indicating`
			`the failure through IO on port 1 )`

Add BS, CR, LF, SPC ASCII consts Previously, these words would be ascii emitters, but seldom used except for the SPC emitter. However, I would often end up hardcoding these constants. With useless emitters removed and ASCII constants added, we have a more usable system. Also, fix broken test harness. 2021-01-03 02:19:42 +11:00			`: fail SPC> ." failed" NL> 1 1 PC! BYE ;`
tests: add Forth tests Modest first step 2020-03-20 06:43:48 +11:00
Add BS, CR, LF, SPC ASCII consts Previously, these words would be ascii emitters, but seldom used except for the SPC emitter. However, I would often end up hardcoding these constants. With useless emitters removed and ASCII constants added, we have a more usable system. Also, fix broken test harness. 2021-01-03 02:19:42 +11:00			`: # IF SPC> ." pass" NL> ELSE fail THEN ;`
tests: add Forth tests Modest first step 2020-03-20 06:43:48 +11:00
Add BS, CR, LF, SPC ASCII consts Previously, these words would be ascii emitters, but seldom used except for the SPC emitter. However, I would often end up hardcoding these constants. With useless emitters removed and ASCII constants added, we have a more usable system. Also, fix broken test harness. 2021-01-03 02:19:42 +11:00			`: #eq 2DUP SWAP . SPC> '=' EMIT SPC> . '?' EMIT = # ;`