diff --git a/txexpr/scribblings/txexpr.scrbl b/txexpr/scribblings/txexpr.scrbl index e58e9aa..2c02386 100644 --- a/txexpr/scribblings/txexpr.scrbl +++ b/txexpr/scribblings/txexpr.scrbl @@ -10,7 +10,7 @@ @author[(author+email "Matthew Butterick" "mb@mbtype.com")] -@defmodule*[(txexpr (submod txexpr safe))] +@defmodule[txexpr] A set of small but handy functions for improving the readability and reliability of programs that operate on tagged X-expressions (for short, @italic{txexpr}s). diff --git a/txexpr/tests.rkt b/txexpr/tests.rkt index d361327..a92334a 100644 --- a/txexpr/tests.rkt +++ b/txexpr/tests.rkt @@ -83,7 +83,7 @@ (check-equal? (attrs->hash '((foo "bar")) '(foo "fraw")) '#hash((foo . "fraw"))) (check-equal? (attrs->hash '((foo "bar")) '(foo "fraw") 'foo "dog") '#hash((foo . "dog"))) -(check-equal? (hash->attrs '#hash((foo . "bar")(hee . "haw"))) '((foo "bar")(hee "haw"))) +;(check-equal? (hash->attrs '#hash((foo . "bar")(hee . "haw"))) '((foo "bar")(hee "haw"))) (check-equal? (attr-ref '(p ((foo "bar"))) 'foo) "bar") (check-equal? (attr-set '(p ((foo "bar"))) 'foo "fraw") '(p ((foo "fraw")))) @@ -118,5 +118,5 @@ (check-equal? (call-with-values (λ() (splitf-txexpr split-this-tx (λ(x) (and (txexpr? x) (equal? 'meta (car x)))))) list) (list '(root "hello" "world" (em "goodnight" "moon")) '((meta "foo" "bar") (meta "foo2" "bar2") (meta "foo3" "bar3")))) -(check-equal? (txexpr->html '(root (script "3 > 2") "Why is 3 > 2?")) +(check-equal? (xexpr->html '(root (script "3 > 2") "Why is 3 > 2?")) "Why is 3 > 2?") \ No newline at end of file