diff --git a/src/tests.sh b/src/tests.sh index eab3e6e..fd0ff11 100755 --- a/src/tests.sh +++ b/src/tests.sh @@ -193,6 +193,7 @@ endBlock title "Forbble" check "BasicForbbleOp" "(loadfile 'examples/forbble.pbl') (feval (10 10 * .)) ''" "100" check "FibForbble" "(loadfile 'examples/forbble.pbl') (feval (1 1 _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f _f .)) ''" "28657" +check "ForbbleDefine" "(loadfile 'examples/forbble.pbl') (feval ( : \"cubed\" dup dup * * $ )) (feval (4 cubed .)) ''" "64" endBlock # title "Environment"