17 lines
529 B
Racket
17 lines
529 B
Racket
#lang racket
|
|
|
|
(require rackunit rackunit/text-ui unstable/web "helpers.rkt")
|
|
|
|
(run-tests
|
|
(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))))
|
|
(test-suite "css/c"
|
|
(test-ok "CSS" (with/c css/c '((foo (a b) (c d)) (bar (w x) (y z)))))
|
|
(test-bad "not CSS" (with/c css/c '(a b c d))))
|
|
(test-suite "write-css")
|
|
(test-suite "write-xexpr")
|
|
(test-suite "create-stylesheet")
|
|
(test-suite "create-webpage")))
|