izaya
/
collapseos
Mirror von https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Aktivität
Mirror of CollapseOS
Du kannst nicht mehr als 25 Themen auswählen Themen müssen entweder mit einem Buchstaben oder einer Ziffer beginnen. Sie können Bindestriche („-“) enthalten und bis zu 35 Zeichen lang sein.
1469 Commits
4 Branches
13MB
Struktur: bc1cc591ce
Branches Tags
${ item.name }
Erstelle Branch ${ searchTerm }
von „bc1cc591ce“
${ noResults }
collapseos/tests/harness.fs

10 Zeilen
254B
Originalformat Blame Verlauf 

  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 = # ;