From 78021ea4b99b28c79c63edb60b460cb355db3aef Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Thu, 10 Mar 2011 16:35:53 -0500
Subject: [PATCH] re-enabled test-rowser-evaluate and test-package in the test
 suite.

---
 test-all.rkt      | 4 ++--
 test-compiler.rkt | 7 +++++++
 2 files changed, 9 insertions(+), 2 deletions(-)

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