diff options
Diffstat (limited to 'ebus-racket/debug_db/test.rkt')
| -rw-r--r-- | ebus-racket/debug_db/test.rkt | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/ebus-racket/debug_db/test.rkt b/ebus-racket/debug_db/test.rkt deleted file mode 100644 index 1c6a8fa..0000000 --- a/ebus-racket/debug_db/test.rkt +++ /dev/null @@ -1,32 +0,0 @@ -#lang racket/base - -(define (benchmark func name) - (define output-file (open-output-file (string-append "benchmark_" name ".log"))) - (define (log counter) - (let ([message (format "name=~a time=~a counter=~a current-memory-use=~a~n" - name (current-milliseconds) - counter (current-memory-use))]) - (display message) - (display message output-file))) - (let loop ([counter 1]) - (let ([x (func)]) - (when (= 0 (modulo counter 500)) - (log counter)) - (when (<= counter 125000) - (loop (+ counter 1)))))) - - - -;;(require (prefix-in db: db)) (define name "db-5.2.1") -;;(require (prefix-in db: (file "~/github.com_plt_racket/collects/db/main.rkt"))) (define name "db-git-09bed0d") -(require (prefix-in db: (planet ryanc/db:1:4))) (define name "ryanc_db_1_4") - -(define pgc - (db:postgresql-connect - #:user "ebus" #:database "ebus" #:password "ebus" #:server "10.2.2.26")) - -(define (pgc-test) - (db:query-value pgc "SELECT 1")) - -(benchmark pgc-test name) - |