instaservlet-test.ss
#lang scheme/base
  
(require
 (planet "test.ss" ("schematics" "schemeunit.plt" 2)))

(require
 (file "instaservlet.ss"))
  
(provide instaservlet-tests)

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

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

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