Tk Library Source Code

Artifact 5f13470f743e65dd6ea075d10ac46dd2197f5183:

Attachment "htmlparse-test1.test" to ticket [3553350fff] added by dvrsn 2012-08-03 03:41:28.

---

set extraarg {a & b \1 \0 \\1 \\0 \} $ [ ] }
test htmlparse-11.0 {metachar callback} {
    set tags [list]
    htmlparse::parse -cmd [list cb $extraarg] -vroot html {<a b="a">x</a>}
    set tags
}  [list \
     [list $extraarg html {} {} {}] \
     [list $extraarg a    {} {b="a"} {x}] \
     [list $extraarg a    /  {} {}] \
     [list $extraarg html /  {} {}] ]