#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)