mirror of
https://github.com/mgcaret/of816.git
synced 2024-09-27 12:58:15 +00:00
13 lines
277 B
Forth
13 lines
277 B
Forth
|
testing 5.3.7.6 Start and end
|
||
|
|
||
|
hex
|
||
|
|
||
|
\ ferror token validated in 5.3.3.x, now let's test
|
||
|
t{ ' ferror catch >r clear r> 0= -> false }t
|
||
|
|
||
|
\ Fcode: version1 true end0
|
||
|
: test-fcode " "(fd 08 00 a4 00 00 00 0a a4 00)" ;
|
||
|
|
||
|
\ covers: $byte-exec
|
||
|
t{ test-fcode drop 1 byte-load -> true }t
|