(module run-tests mzscheme
  
  (require (lib "sendurl.ss" "net")
           (lib "cut.ss" "srfi" "26"))
  
  (require (planet "instaweb.ss" ("schematics" "instaweb.plt" 2)))
  
  (require (file "test-servlet.ss")) ; required for mzc only
  
  ; Main program body ----------------------------

  (define (run-test-server)
    (begin0
        (thread (cut run-server
                     8765
                     "127.0.0.1"
                     (list #:htdocs-path  (list "htdocs")
                           #:servlet-path "test-servlet.ss")))
      (sleep 1)
      (send-url "http://localhost:8765")))

  (run-test-server)
  
  )