Status commit; split to avoid absolute dependency on cxml and closure-html
tests.lisp
Wed Nov 18 10:23:05 UTC 2009 pix@kepibu.org
* Status commit; split to avoid absolute dependency on cxml and closure-html
--- old-Oh, Ducks!/tests.lisp 2013-11-10 20:26:52.000000000 +0000
+++ new-Oh, Ducks!/tests.lisp 2013-11-10 20:26:52.000000000 +0000
@@ -2,6 +2,10 @@
;; FIXME: the switch to chtml:pt nodes means our #'equalp no longer
;; works.
+#.(set-dispatch-macro-character #\# #\T 'unify::|sharp-T-reader|)
+
+#+(or) (setq *default-parser* 'pt)
+
(equalp '(:div ((:id "id")) "I " (:i () "like") " cheese.")
(match (#T(html ("#id" . ?div))
"<div id=\"id\">I <i>like</i> cheese.</div>")