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

Port registry and changing benchmarks to not conflict on ports

Browse Source
This commit is contained in:
Jay McCarthy 2010-06-29 13:38:36 -06:00
parent 2e5c04f083
commit df30cda523
4 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/meta/drdr/README-PORTS Normal file
View File

@ -0,0 +1,11 @@
Please register which TCP ports your tests are using in this file so others don't accidentally conflict.
6000 - DrDr X11 server
....
6100 - DrDr X11 server
8887 - tests/racket/benchmarks/shootout/echo
8888 - tests/racket/benchmarks/shootout/typed/echo (non-optimized)
8889 - tests/racket/benchmarks/shootout/typed/echo (optimized)
9000 - DrDr Web server
9001 - tests/net
9999 - tests/web-server

2
collects/tests/racket/benchmarks/shootout/echo.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/tcp) (require racket/tcp)
(define PORT 8888) (define PORT 8887)
(define DATA "Hello there sailor\n") (define DATA "Hello there sailor\n")
(define n 10) (define n 10)

2
collects/tests/racket/benchmarks/shootout/typed/echo.rktl
View File

@ -1,6 +1,6 @@
(require racket/tcp) (require racket/tcp)
(define PORT 8888) (define PORT (+ 8888 (if OPTIMIZED? 1 0)))
(define DATA "Hello there sailor\n") (define DATA "Hello there sailor\n")
(: n Integer) (: n Integer)
(define n 10) (define n 10)

4
collects/tests/racket/benchmarks/shootout/typed/wrapper.rkt
View File

@ -15,4 +15,6 @@
name)))] name)))]
[option (if opt? (list #'#:optimize) '())] [option (if opt? (list #'#:optimize) '())]
[fname (format "~a.rktl" base-name)]) [fname (format "~a.rktl" base-name)])
#`(ts:#%module-begin #,@option (include/reader #,fname r:read-syntax)))) #`(ts:#%module-begin #,@option
(define OPTIMIZED? #,opt?)
(include/reader #,fname r:read-syntax))))