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

repair a test

Browse Source 
The test tried to detect separate evaluations by using the
result of `(current-inexact-milliseconds)`, but a clock's
resolution might not be high enough. Use `(gensym)`, instead.
This commit is contained in:
Matthew Flatt 2014-12-15 09:03:23 -07:00
parent ae3b59475a
commit 1b9911c50b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/racket-test-core/tests/racket/stx.rktl
View File

@ -1171,7 +1171,7 @@
(define-for-syntax ht (make-hash)) (define-for-syntax ht (make-hash))
(define-syntax (m stx) (define-syntax (m stx)
(or (hash-ref ht (syntax-local-lift-context) #f) (or (hash-ref ht (syntax-local-lift-context) #f)
(let ([id (syntax-local-lift-expression #`(quote #,(current-inexact-milliseconds)))]) (let ([id (syntax-local-lift-expression #`(quote #,(gensym)))])
(hash-set! ht (syntax-local-lift-context) id) (hash-set! ht (syntax-local-lift-context) id)
id)))) id))))
(dynamic-require ''example-that-uses-the-lift-context 0) (dynamic-require ''example-that-uses-the-lift-context 0)
@ -1187,7 +1187,7 @@
(dynamic-require ''extra-module 0) (dynamic-require ''extra-module 0)
(let ([ns (module->namespace ''extra-module)]) (let ([ns (module->namespace ''extra-module)])
(test (eval 'm ns) eval 'm ns) (test (eval 'm ns) eval 'm ns)
(test #f = (eval 'm) (eval 'm ns)))))]) (test #f eq? (eval 'm) (eval 'm ns)))))])
(go) (go)
(go) (go)
(go)) (go))