mirror of
https://github.com/mgcaret/of816.git
synced 2024-12-29 17:31:57 +00:00
9 lines
157 B
Forth
9 lines
157 B
Forth
|
testing 7.5.1 Automatic stack display
|
||
|
|
||
|
t{ showstack -> }t \ expect:"{ 0 : } OK"
|
||
|
5 \ expect:"{ 1 : 5 } OK"
|
||
|
drop
|
||
|
t{ noshowstack -> }t
|
||
|
t{ -> }t \ expect " OK"
|
||
|
|