~vdupras/collapseos

ref: ac3629b817115b1af75096856ee9499cfbbd3392 collapseos/tests/harness.fs -rw-r--r-- 260 bytes
ac3629b8Virgil Dupras Make BLK@* and BLK!* into ialiases 1 year, 11 months ago
                                                                                
1
2
3
4
5
6
7
8
9
( 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 = # ;