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

fix plai tests

Browse Source
This commit is contained in:
Robby Findler 2013-03-07 16:02:24 -06:00
parent b9406e6a75
commit 308a65e6ca
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/tests/plai/gc2/good-mutators/by-val.rkt
View File

@ -5,7 +5,8 @@
(define global-val 'global) (define global-val 'global)
(define (mut-arg arg) (define (mut-arg arg)
(set! arg 'mutated)) (set! arg 'mutated)
0)
(mut-arg global-val) (mut-arg global-val)

7
collects/tests/plai/gc2/set-restriction-test.rkt
View File

@ -1,11 +1,13 @@
#lang racket #lang racket
(require racket/runtime-path)
(define-syntax (test stx) (define-syntax (test stx)
(syntax-case stx () (syntax-case stx ()
[(_ exp reg) [(_ exp reg)
(with-syntax ([line (syntax-line stx)]) (with-syntax ([line (syntax-line stx)])
#'(test/proc line 'exp reg))])) #'(test/proc line 'exp reg))]))
(define-runtime-path here ".")
(define ns (make-base-namespace)) (define ns (make-base-namespace))
(define tests 0) (define tests 0)
(define failed 0) (define failed 0)
@ -18,7 +20,8 @@
(let ([m (exn-message x)]) (let ([m (exn-message x)])
(regexp-match? reg m)))) (regexp-match? reg m))))
exn-message)) exn-message))
(parameterize ([current-namespace ns]) (parameterize ([current-namespace ns]
[current-directory here])
(expand (expand
`(,#'module m plai/gc2/mutator `(,#'module m plai/gc2/mutator
(allocator-setup "good-collectors/trivial-collector.rkt" 200) (allocator-setup "good-collectors/trivial-collector.rkt" 200)