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

re-enabled test-rowser-evaluate and test-package in the test suite.

Browse Source
This commit is contained in:
Danny Yoo 2011-03-10 16:35:53 -05:00
parent dfbb278e4b
commit 78021ea4b9
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test-all.rkt
View File

@ -4,6 +4,6 @@
"test-simulator.rkt" "test-simulator.rkt"
"test-compiler.rkt" "test-compiler.rkt"
"test-assemble.rkt" "test-assemble.rkt"
#; test-browser-evaluate "test-browser-evaluate.rkt"
#; test-package "test-package.rkt"
) )

7
test-compiler.rkt
View File

@ -459,6 +459,13 @@
(void)) (void))
(test (begin (define (sum-integers a b)
(if (> a b)
0
(+ a (sum-integers (+ a 1) b))))
(sum-integers 1 100))
(* 50 101))
;(simulate (compile (parse '42) 'val 'next)) ;(simulate (compile (parse '42) 'val 'next))
;(compile (parse '(+ 3 4)) 'val 'next) ;(compile (parse '(+ 3 4)) 'val 'next)