#lang scheme/base
  
(require (file "instaservlet.ss")
         (file "test-base.ss"))
  
(provide instaservlet-tests)

; Helpers ----------------------------------------

(define (servlet request)
  '(html (head (title "It's working!"))
         (body (h1 "Instaservlet is in the house!"))))

; Tests ------------------------------------------

(define instaservlet-tests
  (test-suite "instaweb"

   (test-case "go!"
     ;; For a real test we need Delirium working again
     (go! servlet))

   ))