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

rename make-mutants because these aren't mutants in the usual sense of the testing literature

Browse Source
This commit is contained in:
Robby Findler 2014-03-19 11:43:30 -05:00
parent bc9729358a
commit 4a3e80d22b
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/make-mutants.rkt → pkgs/redex-pkgs/redex-examples/redex/examples/benchmark/apply-diffs.rkt
View File

@ -24,7 +24,7 @@
(define (get-directories names) (define (get-directories names)
(map get-directory names)) (map get-directory names))
(define (make-mutants directory) (define (apply-diffs directory)
(cond (cond
[directory [directory
(define files (define files
@ -39,7 +39,7 @@
(copy-file base name #t) (copy-file base name #t)
(system* (find-executable-path "patch") name (path->string f)))] (system* (find-executable-path "patch") name (path->string f)))]
[else [else
(map make-mutants (get-directories directories))])) (for-each apply-diffs (get-directories directories))]))
(define (get-base-stem files) (define (get-base-stem files)
(car (filter-map (λ (f) (regexp-match #rx"^(.*)-base\\.rkt$" (path->string f))) files))) (car (filter-map (λ (f) (regexp-match #rx"^(.*)-base\\.rkt$" (path->string f))) files)))
@ -50,7 +50,7 @@
(begin (begin
(when dir (when dir
(unless (member dir directories) (unless (member dir directories)
(raise-user-error 'make-mutants.rkt (raise-user-error 'apply-diffs.rkt
"expected one of the following directories: ~s" "expected one of the following directories: ~s, got ~a"
directories))) dir directories)))
(void (make-mutants dir))))) (apply-diffs dir))))