You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
13 lines
429 B
Racket
13 lines
429 B
Racket
8 years ago
|
#lang racket/base
|
||
|
|
(require sugar/test
|
||
|
|
"template/base.rkt"
|
||
|
|
"template/html.rkt")
|
||
|
|
(provide (all-from-out "template/base.rkt"
|
||
|
|
"template/html.rkt"))
|
||
|
|
|
||
|
|
(module-test-external
|
||
|
|
(check-equal? (select* 'key '#hash((key . "value"))) '("value"))
|
||
|
|
(check-equal? (select 'key '#hash((key . "value"))) "value")
|
||
|
|
|
||
|
|
(define tx '(root (p "hello")))
|
||
|
|
(check-equal? (->html tx) "<root><p>hello</p></root>"))
|