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

Fixing pr11136 and adding tests and fixing old tests re extension change

Browse Source
This commit is contained in:
Jay McCarthy 2010-08-28 08:29:57 -06:00
parent 3d5843aa81
commit 33d7eb40e3
5 changed files with 24 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/meta/props
View File

@ -1477,6 +1477,7 @@ path/s is either such a string or a list of them.
"collects/tests/plai/gc/bad-mutators/mutator3.rkt" drdr:command-line #f "collects/tests/plai/gc/bad-mutators/mutator3.rkt" drdr:command-line #f
"collects/tests/plai/gc/bad-mutators/mutator5.rkt" drdr:command-line #f "collects/tests/plai/gc/bad-mutators/mutator5.rkt" drdr:command-line #f
"collects/tests/plai/gc/bad-mutators/void-app.rkt" drdr:command-line #f "collects/tests/plai/gc/bad-mutators/void-app.rkt" drdr:command-line #f
"collects/tests/plai/gc/run-test.rkt" drdr:command-line (racket "-qt" * "--" "-g")
"collects/tests/plai/test-random-mutator.rkt" responsible (jay robby) "collects/tests/plai/test-random-mutator.rkt" responsible (jay robby)
"collects/tests/plai/web.rkt" drdr:command-line (mzc "-k" *) "collects/tests/plai/web.rkt" drdr:command-line (mzc "-k" *)
"collects/tests/planet" responsible (robby jay) "collects/tests/planet" responsible (robby jay)

6
collects/plai/mutator.rkt
View File

@ -6,16 +6,18 @@
plai/private/gc-core plai/private/gc-core
scheme/gui/dynamic scheme/gui/dynamic
(only-in plai/test-harness (only-in plai/test-harness
generic-test test halt-on-errors print-only-errors) plai-error generic-test test halt-on-errors print-only-errors)
(for-syntax scheme) (for-syntax scheme)
(for-syntax plai/private/gc-transformer) (for-syntax plai/private/gc-transformer)
scheme/stxparam scheme/stxparam
(for-syntax scheme/stxparam-exptime)) (for-syntax scheme/stxparam-exptime))
(provide else require provide (provide else require provide #%top
test/location=? test/location=?
test/value=? test/value=?
(rename-out (rename-out
[plai-error error]
[mutator-and and] [mutator-and and]
[mutator-or or] [mutator-or or]
[mutator-cond cond] [mutator-cond cond]

3
collects/tests/plai/gc/other-mutators/error.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang plai/mutator
(allocator-setup "../good-collectors/good-collector.ss" 400)
(error 'error "plai/mutator has error")

3
collects/tests/plai/gc/other-mutators/top.rkt Normal file
View File

@ -0,0 +1,3 @@
#lang plai/mutator
(allocator-setup "../good-collectors/good-collector.ss" 400)
frozzle

16
collects/tests/plai/gc/run-test.rkt
View File

@ -11,6 +11,7 @@
(directory-list pth))))) (directory-list pth)))))
(define (test-mutator m) (define (test-mutator m)
(printf "Running ~a\n" m)
(parameterize ([current-namespace (make-base-empty-namespace)]) (parameterize ([current-namespace (make-base-empty-namespace)])
(dynamic-require m #f))) (dynamic-require m #f)))
@ -21,10 +22,19 @@
(test (test
(if (run-good?) (if (run-good?)
(for ([m (in-directory (build-path here "good-mutators") #rx"ss$")]) (for ([m (in-directory (build-path here "good-mutators") #rx"rkt$")])
(test (test
(test-mutator m))) (test-mutator m)))
(void)) (void))
(for ([m (in-directory (build-path here "bad-mutators") #rx"ss$")]) (for ([m (in-directory (build-path here "bad-mutators") #rx"rkt$")])
(test (test
(test-mutator m) =error> #rx""))) (test-mutator m) =error> #rx""))
(test-mutator (build-path here "other-mutators" "error.rkt"))
=error>
#rx"plai/mutator has error"
(test-mutator (build-path here "other-mutators" "top.rkt"))
=error>
#rx"unbound identifier in module in: frozzle"
)