#lang scheme/base
  
(require "instaservlet.ss"
         "test-base.ss")
  
; 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!"
     (go! servlet))))

; Provide statements -----------------------------

(provide instaservlet-tests)