#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)