#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 "instaservlet"

   (test-case "go!"
     (thread (lambda ()
               (sleep 2)
               (printf "To see if Instaservlet is working, open your web browser and visit http://localhost:8765/~n")))
     (go! servlet))))

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

(provide instaservlet-tests)