suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

another test added

Browse Source
This commit is contained in:
Danny Yoo 2011-09-09 17:08:55 -04:00
parent 37272e135b
commit 2777b193ff
3 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
tests/more-tests/weird-cc.expected Normal file
View File

@ -0,0 +1 @@
11213

5
tests/more-tests/weird-cc.rkt Normal file
View File

@ -0,0 +1,5 @@
#lang planet dyoo/whalesong
(define program (lambda () (let ((y (call/cc (lambda (c) c)))) (display 1) (call/cc (lambda (c) (y c))) (display 2) (call/cc (lambda (c) (y c))) (display 3))))
(program)
(newline)

1
tests/run-more-tests.rkt
View File

@ -27,3 +27,4 @@
(test "more-tests/conform.rkt")
(test "more-tests/earley.rkt")
(test "more-tests/view.rkt")
(test "more-tests/weird-cc.rkt")