From db6b46dade5b66a88a13a5d5912a1d16da1eeec7 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 22 Jul 2011 12:01:09 -0400
Subject: [PATCH] tests adjusted to dodge what appears to be a bug in zo-parse
 regarding splicing begin at a non-module toplevel.  This is something that
 we'll probably not hit in module contexts.  Hopefully.

---
 tests/test-all.rkt     | 9 ++-------
 tests/test-package.rkt | 5 +++--
 2 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/tests/test-all.rkt b/tests/test-all.rkt
index ea38517..cb7cfbd 100644
--- a/tests/test-all.rkt
+++ b/tests/test-all.rkt
@@ -6,12 +6,7 @@
          "test-compiler.rkt"
          "test-compiler-2.rkt"
          "test-assemble.rkt"
-         "test-browser-evaluate.rkt" ;; currently breaking in 5.1.2
-         #; "test-package.rkt"   ;; currently breaking in 5.1.2
-
+         "test-browser-evaluate.rkt" 
+         "test-package.rkt"
          "test-get-dependencies.rkt"
          "run-more-tests.rkt")
-
-
-;; This test takes a bit too much time.
-#;"test-conform.rkt"
diff --git a/tests/test-package.rkt b/tests/test-package.rkt
index d95a8e6..4ef0873 100644
--- a/tests/test-package.rkt
+++ b/tests/test-package.rkt
@@ -20,13 +20,14 @@
                1
                (* (factorial (- n 1))
                   n))))
-(test '(begin
+(test '(let ()
          (define (factorial n)
            (fact-iter n 1))
          (define (fact-iter n acc)
            (if (= n 0)
                acc
-               (fact-iter (- n 1) (* acc n))))))
+               (fact-iter (- n 1) (* acc n))))
+         'ok))
 
 (test '(define (gauss n)
          (if (= n 0)