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