(module request mzscheme
  (provide make-test-request
           current-request)
  
  (require (lib "servlet.ss" "web-server")
           (lib "kw.ss")
           (lib "url.ss" "net"))
  
  (define current-request (make-parameter #f))
  
  (define/kw (make-test-request
              #:key
              (method       'get)
              (uri          (string->url "http://localhost/"))
              (headers      '())
              (bindings     '())
              (bindings/raw "")
              (host-ip      0)  ; todo: the correct number for local host?
              (client-ip    "127.0.0.1"))
    (make-request method uri headers bindings bindings/raw host-ip client-ip)))