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

Fix benchmarks to not use collection-path.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2013-10-26 16:45:32 -04:00 committed by Vincent St-Amour
parent f2ddc66333
commit 10a3140ff1
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/racket-pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/run.rkt
View File

@ -95,16 +95,14 @@
(dynamic-require "fasta.rkt" #f))))) (dynamic-require "fasta.rkt" #f)))))
f)) f))
(define-runtime-path sumcol-input "sumcol-input.txt")
(define/kw (mk-sumcol-input n #:optional moments?) (define/kw (mk-sumcol-input n #:optional moments?)
(let ([f (build-path (find-system-path 'temp-dir) (string-append (if moments? "moments-" "sumcol-") (let ([f (build-path (find-system-path 'temp-dir) (string-append (if moments? "moments-" "sumcol-")
(number->string n)))]) (number->string n)))])
(unless (file-exists? f) (unless (file-exists? f)
(printf "Building ~a ~a input: ~a\n" (if moments? "moments" "sumcol") n f) (printf "Building ~a ~a input: ~a\n" (if moments? "moments" "sumcol") n f)
(let ([c (with-input-from-file (build-path (collection-path "tests") (let ([c (with-input-from-file sumcol-input
"racket"
"benchmarks"
"shootout"
"sumcol-input.txt")
(lambda () (lambda ()
(if moments? (if moments?
(apply string-append ; like sumcol, but with floats (apply string-append ; like sumcol, but with floats