diff options
Diffstat (limited to 'test.fs')
| -rw-r--r-- | test.fs | 63 |
1 files changed, 63 insertions, 0 deletions
@@ -359,6 +359,8 @@ t{ gt8 -> 0 }t t{ : gt9 gt8 literal ; -> }t t{ gt9 0= -> <false> }t +testing flow control + t{ : gi1 if 123 then ; -> }t t{ : gi2 if 123 else 234 then ; -> }t t{ 0 gi1 -> }t @@ -414,4 +416,65 @@ t{ 4 RN1 execute -> 0 1 2 3 4 }t \ t{ 25 RN2 execute -> 33 22 11 0 }t hex +t{ : gd1 do i loop ; -> }t +t{ 4 1 gd1 -> 1 2 3 }t +t{ 2 -1 gd1 -> -1 0 1 }t +t{ mid-uint+1 mid-uint gd1 -> mid-uint }t + +\ todo +loop tests +\ should make -loop first and deal with negatives + +t{ : gd5 123 swap 0 do + i 4 > if drop 234 leave then + loop ; -> }t +t{ 1 gd5 -> 123 }t +t{ 5 gd5 -> 123 }t +t{ 6 gd5 -> 234 }t + +\ todo unloop tests + +testing define words + +t{ : nop : postpone ; ; -> }t +t{ nop nop1 nop nop2 -> }t +t{ nop1 -> }t +t{ nop2 -> }t +t{ : gdx 123 ; : gdx gdx 234 ; -> }t +t{ gdx -> 123 234 }t + +t{ variable v1 -> }t +t{ 123 v1 ! -> }t +t{ v1 @ -> 123 }t + +t{ : does1 does> @ 1 + ; -> }t +t{ : does2 does> @ 2 + ; -> }t +t{ create cr1 -> }t +t{ cr1 -> here }t +t{ 1 , -> }t +t{ cr1 @ -> 1 }t +t{ does1 -> }t +t{ cr1 -> 2 }t +t{ does2 -> }t +t{ cr1 -> 3 }t + +testing evaluate + +: ge1 s" 123" ; immediate +: ge2 s" 123 1+" ; immediate +: ge3 s" : ge4 345 ;" ; +: ge5 evaluate ; immediate +t{ ge1 evaluate -> 123 }t ( test evaluate in interp. state ) +t{ ge2 evaluate -> 124 }t +t{ ge3 evaluate -> }t +t{ ge4 -> 345 }t + +t{ : ge6 ge1 ge5 ; -> }t ( test evaluate in compile state ) +t{ ge6 -> 123 }t +t{ : ge7 ge2 ge5 ; -> }t +t{ ge7 -> 124 }t + +: gs4 source >in ! drop ; +t{ gs4 123 456 + -> }t + decimal |