rpn/test/030-branch.md

678 lines
6.7 KiB
Markdown
Raw Normal View History

2022-02-12 19:11:22 +01:00
### BRANCH
`default del`
## if then else end (1)
`1 if then 'ok' end`
-> stack should be 'ok'
`del`
## if then else end (2)
`1 if 'before' then 'ok' end`
-> stack should be 'before', 'ok'
`del`
## if then else end (3)
`0 if then 'ok' end`
-> stack size should be 0
`del`
## if then else end (4)
`0 if then 'ok' end`
-> stack size should be 0
`del`
## if then else end (5)
`1 if then 'ok' else 'KO' end`
-> stack should be 'ok'
`del`
## if then else end (6)
`1 if then 'ok' 'dokey' else 'KO' end`
-> stack should be 'ok', 'dokey'
`del`
## if then else end (7)
`0 if then 'ok' else 'KO' end`
-> stack should be 'KO'
`del`
## if then else end - error case (1)
`if then end`
-> error should be 2
`del`
## if then else end - error case (2)
`0 if then`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (3)
`0 if end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (4)
`0 if end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (5)
`then`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (6)
`1 if`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (7)
`else`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (8)
`end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## if then else end - error case (9)
`"1" if then end`
-> error should be 3
`del`
## ift (1)
`1 'ok' ift`
-> stack should be 'ok'
`del`
## ift (2)
`0 'ok' ift`
-> stack size should be 0
`del`
## ift (3)
`'ok' ift`
-> error should be 2
-> stack size should be 1
`del`
## ift (4)
`ift`
-> error should be 2
-> stack size should be 0
`del`
## ifte (1)
`1 'ok' 'nok' ifte`
-> stack should be 'ok'
`del`
## ifte (2)
`0 'ok' 'nok' ifte`
-> stack should be 'nok'
`del`
## ifte (3)
`'ok' 'nok' ifte`
-> error should be 2
-> stack size should be 2
`del`
## ifte (4)
`'nok' ifte`
-> error should be 2
-> stack size should be 1
`del`
## ifte (5)
`ifte`
-> error should be 2
-> stack size should be 0
`del`
## start next (1)
`1 2 start 0 next`
-> stack should be 0, 0
`del`
## start next (2)
`2 1 start 0 next`
-> stack size should be 0
`del`
## start next (3)
`-2 -1 start 0 next`
-> stack should be 0, 0
`del`
## start next (4)
`-1 -2 start 0 next`
-> stack size should be 0
`del`
## start next (5)
`1 1 start 0 next`
-> stack should be 0
`del`
2022-02-16 16:03:26 +01:00
## start next - cloning objects (1)
`1 2 start 'ok' next`
-> stack should be 'ok', 'ok'
`del`
## start next - cloning objects (2)
`1 2 start ok next`
-> stack should be 'ok', 'ok'
`del`
## start next - cloning objects (3)
`1 2 start "ok" next`
-> stack should be "ok", "ok"
`del`
## start next - cloning objects (4)
`1 2 start (1,2) next`
-> stack should be (1,2), (1,2)
`del`
## start next - cloning objects (5)
`1 2 start «ok» next`
-> stack should be «ok», «ok»
`del`
2022-02-12 19:11:22 +01:00
## start next - error case (1)
`1 start next`
2022-02-16 16:03:26 +01:00
-> error should be 2
2022-02-12 19:11:22 +01:00
`del`
## start next - error case (2)
`start next`
2022-02-16 16:03:26 +01:00
-> error should be 2
2022-02-12 19:11:22 +01:00
`del`
## start next - error case (3)
`start`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## start next - error case (4)
`next`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## start next - error case (5)
`"1" 2 start next`
2022-02-16 16:03:26 +01:00
-> error should be 3
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## start next - error case (6)
2022-02-12 19:11:22 +01:00
`1 "2" start next`
2022-02-16 16:03:26 +01:00
-> error should be 3
2022-02-12 19:11:22 +01:00
`del`
## for next (1)
`23 27 for i i next`
-> stack should be 23, 24, 25, 26, 27
`del`
## for next (2)
`1 1 for i i next`
-> stack should be 1
`del`
## for next (3)
`27 23 for i i next`
-> stack size should be 0
`del`
## for next (4)
`-2 -1 for i i next`
-> stack should be -2, -1
`del`
## for next (5)
`-1 -2 for i i next`
-> stack size should be 0
`del`
2022-02-16 16:03:26 +01:00
## for next - loop variable overwrite
`123 'i' sto 1 2 for i i next`
-> stack should be 1, 2
`del`
2022-02-12 19:11:22 +01:00
## for next - error case (1)
`1 for i i next`
-> error should be 2
`del`
## for next - error case (2)
`for i i next`
-> error should be 2
`del`
## for next - error case (3)
`"1" 2 for i i next`
-> error should be 3
`del`
## for next - error case (4)
`1 "2" for i i next`
-> error should be 3
`del`
## for next - error case (5)
`1 2 for i i`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## for next - error case (6)
`for`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## for step (1)
`23 27 for i i 1 step`
-> stack should be 23, 24, 25, 26, 27
`del`
## for step (2)
`0 1 for i i 0.25 step`
-> stack should be 0, 0.25, 0.5, 0.75, 1
`del`
## for step (3)
`-1 0 for i i 0.25 step`
-> stack should be -1, -0.75, -0.5, -0.25, -0
`del`
## for step (4)
`0 -1 for i i 0.25 step`
-> stack size should be 0
`del`
## for step (5)
`0 -1 for i i -0.25 step`
-> stack size should be 0
`del`
## for step (6) - check boundary integration
`1 2 for i i 0.2 step`
-> stack should be 1, 1.2, 1.4, 1.6, 1.8, 2
`del`
## for step (7) - check boundary integration
`1 2 for i i 0.5 step`
-> stack should be 1, 1.5, 2
`del`
## for step - error case (1)
`0 1 for i i "0.5" step`
-> error should be 3
`del`
## for step - error case (2)
`step`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until (1)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`do 'ok' until 1 end`
2022-02-12 19:11:22 +01:00
-> stack should be 'ok'
`del`
2022-02-16 16:03:26 +01:00
## do..until (2)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`do until 1 end`
2022-02-12 19:11:22 +01:00
-> stack size should be 0
`del`
2022-02-16 16:03:26 +01:00
## do..until (3)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`3 do 1 - 'ok' swap dup until 0 == end drop`
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
-> stack should be 'ok', 'ok', 'ok'
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until (4)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`1 'a' sto do a 1 + 'a' sto until a 3 > end a`
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
-> stack should be 4
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (1)
2022-02-12 19:11:22 +01:00
`do`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (2)
2022-02-12 19:11:22 +01:00
`do 8 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (3)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`until`
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (4)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`do 3 until`
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (5)
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
`until 1 end`
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (6)
2022-02-12 19:11:22 +01:00
`do 3 repeat 8 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
2022-02-16 16:03:26 +01:00
## do..until error case (7)
2022-02-12 19:11:22 +01:00
`do 3 until 8 until 9 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat (1)
`while 0 repeat ok end`
-> stack size should be 0
`del`
## while..repeat (2)
`2 while dup 0.1 > repeat dup 2 / end`
-> stack should be 2, 1, 0.5, 0.25, 0.125, 0.0625
`del`
## while..repeat (3)
2022-02-16 16:03:26 +01:00
`0 'a' sto while a 3 < repeat a 1 + 'a' sto 100 0 a for b b + next end`
2022-02-12 19:11:22 +01:00
2022-02-16 16:03:26 +01:00
-> stack should be 101, 103, 106
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (1)
`while`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (2)
`while 3 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (3)
`repeat`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (4)
`while 1 repeat`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (5)
`repeat 1 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (6)
`while 3 repeat 8 repeat 9 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`
## while..repeat error case (7)
`while 3 until 8 end`
2022-02-16 16:03:26 +01:00
-> error should be 12
2022-02-12 19:11:22 +01:00
`del`