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

fix test for module cache

Browse Source 
The test didn't retain a relevant namespace, so the test could fail
due to GC timing.
This commit is contained in:
Matthew Flatt 2015-07-25 20:38:12 -06:00
parent 8430daa628
commit 6fd8f4bf08
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/racket-test-core/tests/racket/module.rktl
View File

@ -1329,7 +1329,7 @@ case of module-leve bindings; it doesn't cover local bindings.
(delete-file zo-path)) (delete-file zo-path))
;; Check that module-code caching works ;; Check that module-code caching works
(let () (let ([saved-namespace #f])
(define dir (find-system-path 'temp-dir)) (define dir (find-system-path 'temp-dir))
(define tmx (build-path dir "tmx2.rkt")) (define tmx (build-path dir "tmx2.rkt"))
(define e (compile '(module tmx2 racket/kernel (define e (compile '(module tmx2 racket/kernel
@ -1366,7 +1366,10 @@ case of module-leve bindings; it doesn't cover local bindings.
(test 2 add1 (test 2 add1
(parameterize ([current-namespace (make-base-namespace)]) (parameterize ([current-namespace (make-base-namespace)])
(dynamic-require tmx 'x))) (dynamic-require tmx 'x)))
(delete-file zo-path)) (delete-file zo-path)
;; Need to retain the namespace until here
(set! saved-namespace first-namespace))
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Check that `provide` doesn't run enclosed expanders until within a ;; Check that `provide` doesn't run enclosed expanders until within a