mirror of https://github.com/hsoft/collapseos.git
10 lines
247 B
Forth
10 lines
247 B
Forth
|
( Forth testing harness
|
||
|
|
"#" means "assert". We stop at first failure, indicating
|
||
|
|
the failure through IO on port 1 )
|
||
|
|
|
||
|
|
: fail SPC ." failed" LF 1 1 PC! BYE ;
|
||
|
|
|
||
|
|
: # SKIP? fail SPC ." pass" LF ;
|
||
|
|
|
||
|
|
: #eq 2DUP SWAP . SPC '=' EMIT SPC . '?' EMIT = # ;
|