madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add test for blocks

Browse source
This commit is contained in:
madmaurice 2021-04-07 23:17:08 +02:00
parent a355528492
commit 2e784310fb
1 changed files with 42 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
t/block.t Normal file
View file

@ -0,0 +1,42 @@
(expect "block - return last value"
(equal 'top (block nil 'top)))
(expect "block - return"
(equal 'ok
(block nil
'test1
(return 'ok)
'fail)))
(expect "block - return-from"
(equal 'ok
(block banana
'a
'b
(return-from banana 'ok)
'c
'd)))
(expect "block - return-from inner block"
(equal 'ok
(block outer
'a
'b
(block inner
'c
(return-from inner 'fail)
'd)
'e
'ok)))
(expect "block - return-from outer block"
(equal 'ok
(block outer
'a
'b
(block inner
'c
(return-from outer 'ok)
'd)
'e
'fail)))