remove db debuggingfiles

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