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.
43 lines
1.8 KiB
Racket
43 lines
1.8 KiB
Racket
#lang racket/base
|
|
(require rackunit)
|
|
(require "../template.rkt")
|
|
|
|
(define tx '(root (p "hello")))
|
|
|
|
(check-equal? (->html tx) "<root><p>hello</p></root>")
|
|
(check-equal? (->html #:tag 'brennan tx) "<brennan><p>hello</p></brennan>")
|
|
(check-equal? (->html #:attrs '((id "dale")) tx) "<root id=\"dale\"><p>hello</p></root>")
|
|
(check-equal? (->html #:splice #t tx) "<p>hello</p>")
|
|
(check-equal? (->html #:tag 'brennan #:attrs '((id "dale")) tx) "<brennan id=\"dale\"><p>hello</p></brennan>")
|
|
(check-equal? (->html #:tag 'brennan #:attrs '((id "dale")) #:splice #t tx) "<p>hello</p>")
|
|
|
|
(define x "hello")
|
|
|
|
(check-equal? (->html x) "hello")
|
|
(check-equal? (->html #:tag 'brennan x) "<brennan>hello</brennan>")
|
|
(check-exn exn:fail? (λ() (->html #:attrs '((id "dale")) x) "hello")) ;; won't work without tag
|
|
(check-equal? (->html #:splice #t x) "hello")
|
|
(check-equal? (->html #:tag 'brennan #:attrs '((id "dale")) x) "<brennan id=\"dale\">hello</brennan>")
|
|
(check-equal? (->html #:tag 'brennan #:attrs '((id "dale")) #:splice #t x) "hello")
|
|
|
|
|
|
(check-equal? (select 'key '#hash((key . "value"))) "value")
|
|
(check-false (select 'absent-key '#hash((key . "value"))))
|
|
|
|
(let ([metas '#hash((key . "value"))])
|
|
(check-equal? (select 'key metas) "value")
|
|
(check-false (select 'absent-key metas))
|
|
(check-equal? (select-from-metas 'key metas) "value")
|
|
(check-false (select-from-metas 'absent-key metas)))
|
|
|
|
(check-equal? (select 'key '(root (key "value"))) "value")
|
|
(check-false (select 'absent-key '(root (key "value"))))
|
|
(check-equal? (select-from-doc 'key '(root (key "value"))) '("value"))
|
|
(check-false (select-from-doc 'absent-key '(root (key "value"))))
|
|
|
|
(let ([doc '(root (key "value"))])
|
|
(check-equal? (select 'key doc) "value")
|
|
(check-false (select 'absent-key doc))
|
|
(check-equal? (select-from-doc 'key doc) '("value"))
|
|
(check-false (select-from-doc 'absent-key doc)))
|