diff --git a/test-all.rkt b/test-all.rkt index e861d9a..fc1fd6e 100644 --- a/test-all.rkt +++ b/test-all.rkt @@ -4,6 +4,6 @@ "test-simulator.rkt" "test-compiler.rkt" "test-assemble.rkt" - #; test-browser-evaluate - #; test-package + "test-browser-evaluate.rkt" + "test-package.rkt" ) \ No newline at end of file diff --git a/test-compiler.rkt b/test-compiler.rkt index 337d758..cc57c3f 100644 --- a/test-compiler.rkt +++ b/test-compiler.rkt @@ -459,6 +459,13 @@ (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)) ;(compile (parse '(+ 3 4)) 'val 'next) \ No newline at end of file