Bump up roundtrip-gathering period to 10s; remove useless variables
This commit is contained in:
parent
cb6a481f25
commit
add1d81f29
|
@ -71,7 +71,7 @@
|
|||
|
||||
;; We exchange pings with the server for this many milliseconds before
|
||||
;; moving up to the next waypoint.
|
||||
(define ping-time 5000)
|
||||
(define ping-time 10000)
|
||||
|
||||
;; The ports representing a single connection.
|
||||
(struct c (in out) #:transparent)
|
||||
|
|
|
@ -70,7 +70,7 @@
|
|||
(values total-roundtrips (rate-at total-roundtrips) (- run-start-time boot-start-time))))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define t 10000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "internal-latency-prospect"))
|
||||
(define T (logbook-table E "internal-latency"
|
||||
#:column-spec '(number-of-echoers
|
||||
|
|
|
@ -71,7 +71,7 @@
|
|||
(values total-roundtrips (rate-at total-roundtrips) (- run-start-time boot-start-time))))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define t 10000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "internal-latency-symbols-not-fixnums"))
|
||||
(define T (logbook-table E "internal-latency"
|
||||
#:column-spec '(number-of-echoers
|
||||
|
|
|
@ -70,7 +70,7 @@
|
|||
(values total-roundtrips (rate-at total-roundtrips) (- run-start-time boot-start-time))))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define t 10000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "internal-latency"))
|
||||
(define T (logbook-table E "internal-latency"
|
||||
#:column-spec '(number-of-echoers
|
||||
|
|
|
@ -10,8 +10,7 @@
|
|||
|
||||
(struct presence (id) #:transparent)
|
||||
|
||||
(define (run #:peer-count [peer-count 100]
|
||||
#:run-time [run-time 10000])
|
||||
(define (run #:peer-count [peer-count 100])
|
||||
(define routing-update-count 0)
|
||||
|
||||
(define (peer id)
|
||||
|
@ -34,7 +33,6 @@
|
|||
(values routing-update-count delta))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "observe-all-minimart"))
|
||||
(define T (logbook-table E "presence-processing"
|
||||
#:column-spec '(number-of-peers
|
||||
|
@ -46,8 +44,8 @@
|
|||
run-duration-ms)))
|
||||
;; Warmup
|
||||
(let ()
|
||||
(run #:peer-count 1 #:run-time 1000)
|
||||
(run #:peer-count 10 #:run-time 1000)
|
||||
(run #:peer-count 1)
|
||||
(run #:peer-count 10)
|
||||
(void))
|
||||
;; Real run
|
||||
(for ((n
|
||||
|
@ -61,7 +59,7 @@
|
|||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
|
||||
(write-logbook-datum! T (list n
|
||||
(/ (/ run-duration-ms 1000.0) routing-update-count)
|
||||
(/ routing-update-count (/ run-duration-ms 1000.0))
|
||||
|
|
|
@ -10,8 +10,7 @@
|
|||
|
||||
(struct presence (id) #:transparent)
|
||||
|
||||
(define (run #:peer-count [peer-count 100]
|
||||
#:run-time [run-time 10000])
|
||||
(define (run #:peer-count [peer-count 100])
|
||||
(define routing-update-count 0)
|
||||
|
||||
(define (peer id)
|
||||
|
@ -34,7 +33,6 @@
|
|||
(values routing-update-count delta))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "observe-all-prospect"))
|
||||
(define T (logbook-table E "presence-processing"
|
||||
#:column-spec '(number-of-peers
|
||||
|
@ -46,8 +44,8 @@
|
|||
run-duration-ms)))
|
||||
;; Warmup
|
||||
(let ()
|
||||
(run #:peer-count 1 #:run-time 1000)
|
||||
(run #:peer-count 10 #:run-time 1000)
|
||||
(run #:peer-count 1)
|
||||
(run #:peer-count 10)
|
||||
(void))
|
||||
;; Real run
|
||||
(for ((n
|
||||
|
@ -61,7 +59,7 @@
|
|||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
|
||||
(write-logbook-datum! T (list n
|
||||
(/ (/ run-duration-ms 1000.0) routing-update-count)
|
||||
(/ routing-update-count (/ run-duration-ms 1000.0))
|
||||
|
|
|
@ -12,8 +12,7 @@
|
|||
|
||||
(define presence-proj (project-pubs (presence (?!))))
|
||||
|
||||
(define (run #:peer-count [peer-count 100]
|
||||
#:run-time [run-time 10000])
|
||||
(define (run #:peer-count [peer-count 100])
|
||||
(define routing-update-count 0)
|
||||
|
||||
(define (peer id)
|
||||
|
@ -38,7 +37,6 @@
|
|||
(values routing-update-count delta))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "sum-all-minimart"))
|
||||
(define T (logbook-table E "presence-processing"
|
||||
#:column-spec '(number-of-peers
|
||||
|
@ -50,8 +48,8 @@
|
|||
run-duration-ms)))
|
||||
;; Warmup
|
||||
(let ()
|
||||
(run #:peer-count 1 #:run-time 1000)
|
||||
(run #:peer-count 10 #:run-time 1000)
|
||||
(run #:peer-count 1)
|
||||
(run #:peer-count 10)
|
||||
(void))
|
||||
;; Real run
|
||||
(for ((n
|
||||
|
@ -65,7 +63,7 @@
|
|||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
|
||||
(write-logbook-datum! T (list n
|
||||
(/ (/ run-duration-ms 1000.0) routing-update-count)
|
||||
(/ routing-update-count (/ run-duration-ms 1000.0))
|
||||
|
|
|
@ -12,8 +12,7 @@
|
|||
|
||||
(define presence-proj (compile-projection (advertise (presence (?!)))))
|
||||
|
||||
(define (run #:peer-count [peer-count 100]
|
||||
#:run-time [run-time 10000])
|
||||
(define (run #:peer-count [peer-count 100])
|
||||
(define routing-update-count 0)
|
||||
|
||||
(define (peer id)
|
||||
|
@ -43,7 +42,6 @@
|
|||
(values routing-update-count delta))
|
||||
|
||||
(module+ main
|
||||
(define t 5000)
|
||||
(define E (standard-logbook-entry (default-logbook #:verbose? #t) "minimart" "sum-all-prospect"))
|
||||
(define T (logbook-table E "presence-processing"
|
||||
#:column-spec '(number-of-peers
|
||||
|
@ -55,8 +53,8 @@
|
|||
run-duration-ms)))
|
||||
;; Warmup
|
||||
(let ()
|
||||
(run #:peer-count 1 #:run-time 1000)
|
||||
(run #:peer-count 10 #:run-time 1000)
|
||||
(run #:peer-count 1)
|
||||
(run #:peer-count 10)
|
||||
(void))
|
||||
;; Real run
|
||||
(for ((n
|
||||
|
@ -70,7 +68,7 @@
|
|||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(collect-garbage)
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n #:run-time t))
|
||||
(define-values (routing-update-count run-duration-ms) (run #:peer-count n))
|
||||
(write-logbook-datum! T (list n
|
||||
(/ (/ run-duration-ms 1000.0) routing-update-count)
|
||||
(/ routing-update-count (/ run-duration-ms 1000.0))
|
||||
|
|
Loading…
Reference in New Issue