elf
/
LispInSmallPieces
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[bug] Unwind/Protect is not ready to be tested yet.

This commit is contained in:
Elf M. Sternberg 2015-07-31 09:40:51 -07:00
parent 32edb45f84
commit edf8cd2c3c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/test_chapter3g.coffee → pending/test_chapter3g.coffee
View File

@ -38,7 +38,7 @@ describe "Core interpreter #3: Try/Catch with Throw as a function", ->
expect(lisp read "(catch 'bar (funcall throw 'bar 11))").to.equal(11) expect(lisp read "(catch 'bar (funcall throw 'bar 11))").to.equal(11)
it "", -> it "", ->
expect(lisp read "(catch 'bar (* 2 (funcall throw 'bar 5)))").to.equal(5) expect(lisp read "(catch 'bar (* 2 (funcall throw 'bar 5)))").to.equal(5)
it "", ->in it "", ->
expect(lisp read "((lambda (f) (catch 'bar (* 2 (f 5))) ) (lambda (x) (funcall throw 'bar x))) ").to.equal(5) expect(lisp read "((lambda (f) (catch 'bar (* 2 (f 5))) ) (lambda (x) (funcall throw 'bar x))) ").to.equal(5)
it "", -> it "", ->
expect(lisp read "((lambda (f) (catch 'bar (* 2 (catch 'bar (* 3 (f 5))))) ) (lambda (x) (funcall throw 'bar x)))) ").to.equal(10) expect(lisp read "((lambda (f) (catch 'bar (* 2 (catch 'bar (* 3 (f 5))))) ) (lambda (x) (funcall throw 'bar x)))) ").to.equal(10)