alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bump version + refine crlf nil handling in accept more.

Browse Source
This commit is contained in:
Brad Nelson
2022-06-07 23:11:01 -07:00
parent d97a6915a5
commit c2d9615833
5 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
common/testing.fs
View File

@ -45,8 +45,8 @@ variable expect-used variable result-used
: result-type ( a n -- ) for aft dup c@ result-emit 1+ then next drop ;
: expected ( -- a n ) expect-buffer expect-used @ ;
: resulted ( -- a n ) result-buffer result-used @ ;
: out:cr nl expect-emit ;
: out:crlf 13 expect-emit nl expect-emit ;
: out:cr! 13 expect-emit ;
: out:cr 13 expect-emit nl expect-emit ;
: out:\ ( "line" -- ) nl parse expect-type ;
: out: ( "line" -- ) out:\ out:cr ;
variable confirm-old-type