pollen/tests/test-template.rkt

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