Make CRLF handling in accept more robust.

2022-06-07 20:32:01 -07:00
parent 30707ee7d8
commit d97a6915a5
4 changed files with 19 additions and 6 deletions
--- a/common/testing.fs
+++ b/common/testing.fs
@ -46,6 +46,7 @@ variable expect-used   variable result-used
 : 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:\ ( "line" -- ) nl parse expect-type ;
 : out: ( "line" -- ) out:\ out:cr ;
 variable confirm-old-type