From 69fbdff8e8ba69034111038ce01184ef5472728a Mon Sep 17 00:00:00 2001 From: Random Hacker Date: Sun, 11 Mar 2012 03:03:50 +0100 Subject: remove db debuggingfiles --- ebus-racket/debug_db/test.rkt | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 ebus-racket/debug_db/test.rkt (limited to 'ebus-racket/debug_db/test.rkt') 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) - -- cgit v1.2.1