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	2015-10-20 14:31:34.000000000 +0000
+++ new-Oh, Ducks!/tests.lisp	2015-10-20 14:31:35.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))