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

2011-03-10 16:35:53 -05:00 · 2011-03-10 16:35:53 -05:00 · 78021ea4b9
commit 78021ea4b9
parent dfbb278e4b
2 changed files with 9 additions and 2 deletions
--- 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"
         )
--- 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)