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

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.

Browse Source
This commit is contained in:
Danny Yoo 2011-07-22 12:01:09 -04:00
parent 32dd7388c4
commit db6b46dade
2 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test-all.rkt
View File

@ -6,12 +6,7 @@
"test-compiler.rkt" "test-compiler.rkt"
"test-compiler-2.rkt" "test-compiler-2.rkt"
"test-assemble.rkt" "test-assemble.rkt"
"test-browser-evaluate.rkt" ;; currently breaking in 5.1.2 "test-browser-evaluate.rkt"
#; "test-package.rkt" ;; currently breaking in 5.1.2 "test-package.rkt"
"test-get-dependencies.rkt" "test-get-dependencies.rkt"
"run-more-tests.rkt") "run-more-tests.rkt")
;; This test takes a bit too much time.
#;"test-conform.rkt"

5
tests/test-package.rkt
View File

@ -20,13 +20,14 @@
1 1
(* (factorial (- n 1)) (* (factorial (- n 1))
n)))) n))))
(test '(begin (test '(let ()
(define (factorial n) (define (factorial n)
(fact-iter n 1)) (fact-iter n 1))
(define (fact-iter n acc) (define (fact-iter n acc)
(if (= n 0) (if (= n 0)
acc acc
(fact-iter (- n 1) (* acc n)))))) (fact-iter (- n 1) (* acc n))))
'ok))
(test '(define (gauss n) (test '(define (gauss n)
(if (= n 0) (if (= n 0)