Mon Jan 4 07:11:36 UTC 2010 pix@kepibu.org

* element-parent now works in lhtml

--- old-Oh, Ducks!/tests.lisp 2015-04-10 05:31:43.000000000 +0000

+++ new-Oh, Ducks!/tests.lisp 2015-04-10 05:31:43.000000000 +0000

@@ -23,22 +23,23 @@

(values divs pig)))

(equalp '((:i () "not") (:i () "cheese"))

- (match (#T(html ("div" ("i" . ?i)))

- "<div>I do <i>not</i> like cheese.</div><div>I like <i>cheese</i>.</div>")

+ (match (#T(html (:model lhtml)

+ ("div" ("i" . ?i)))

+ "<div>I do <i>not</i> like cheese.</div><div>I like <i>cheese</i>.</div>")

i))

(equalp '((:i () "not"))

- (match (#T(html (:model dom)

+ (match (#T(html (:model lhtml)

("div>i" . ?i))

- "<div>I do <i>not</i> like cheese.</div><div><span>I like <i>cheese</i>.</span></div>")

+ "<div>I do <i>not</i> like cheese.</div><div><span>I like <i>cheese</i>.</span></div>")

i))

(equalp '((:i () "not"))

- (match (#T(html (:model dom)

+ (match (#T(html (:model lhtml)

("div" (">i" . ?i)

;("i" . #t(list ?j ?i))

("span>i" . ?span)))

- "<div>I do <i>not</i> like cheese.</div><div><span>I like <i>cheese</i>.</span></div>")

+ "<div>I do <i>not</i> like cheese.</div><div><span>I like <i>cheese</i>.</span></div>")

(values i span)))

(match (#T(html (:model dom)