1
0
mirror of https://github.com/mgcaret/of816.git synced 2024-12-29 17:31:57 +00:00
of816/test/7.5.1.fs

9 lines
157 B
Forth
Raw Normal View History

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"