test/test-web.ss
#lang scheme

(require "checks.ss"
         "../web.ss")

(provide test-web)

(define test-web
  (test-suite "web.ss"
    (test-suite "css?"
      (test-true "CSS" (css? '((foo (a b) (c d)) (bar (w x) (y z)))))
      (test-false "not CSS" (css? '(a b c d))))))