Mon Nov 23 13:14:45 UTC 2009 pix@kepibu.org
* add FIXME test
diff -rN -u old-Oh, Ducks!/tests.lisp new-Oh, Ducks!/tests.lisp
--- old-Oh, Ducks!/tests.lisp 2013-06-25 19:00:54.000000000 +0000
+++ new-Oh, Ducks!/tests.lisp 2013-06-25 19:00:54.000000000 +0000
@@ -53,7 +53,13 @@
"<div>I do <i>not</i> <i>like</i> cheese.</div><div><span>I like <i>cheese</i>.</span></div>")
(values div i))
-#+LATER
+#+FIXME ;; should throw 'unification-failure
+(match (#T(html (:model dom)
+ ("q" . ?div))
+ "<div>I do <i>not</i> <i>like</i> cheese.</div><div><span>I like <i>cheese</i>.</span></div>")
+ (values div))
+
+#+LATER?
(match (#t(html ("div::content" . #t(regexp+ "^f(o+)" (?o))))
"<div>barbaz</div><div>fooooooobar</div>")
(values o &rest))