izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1676 Commits
4 Branches
13MB
Tree: 5ca99ad410
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5ca99ad410'
${ noResults }
collapseos/tests/harness.fs

10 lines
254B
Raw Blame History 

  1. ( Forth testing harness

  2.   "#" means "assert". We stop at first failure, indicating

  3.   the failure through IO on port 1 )

  4. 

  5. : fail SPC ." failed" LF 1 1 PC! BYE ;

  6. 

  7. : # IF SPC ." pass" LF ELSE fail THEN ;

  8. 

  9. : #eq 2DUP SWAP . SPC '=' EMIT SPC . '?' EMIT = # ;