1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
|
# -*- tcl -*- htmlparse.test:
# tests for the interaction of html parser and tree structure.
test htmlparse-${impl}-5.0 {conversion to tree} {
struct::tree t
::htmlparse::2tree $html3 t
set tx [list]
t walk root n {
lappend tx [list [t depth $n] [t get $n type]]
}
t destroy
set tx
} [list \
{0 root} {1 hmstart} {2 html} {3 head} \
{4 title} {5 PCDATA} {4 meta} {3 body} \
{4 h2} {5 PCDATA} \
{4 p} {5 b} {6 PCDATA} \
{4 p} {5 form} {6 input}]
test htmlparse-${impl}-5.1 {conversion to tree} {
struct::tree t
::htmlparse::2tree $html3 t
::htmlparse::removeVisualFluff t
set tx [list]
t walk root n {
lappend tx [list [t depth $n] [t get $n type]]
}
t destroy
set tx
} [list \
{0 root} {1 head} {2 title} {3 PCDATA} \
{1 body} {2 h2} {3 PCDATA} \
{2 p} {3 PCDATA} \
{2 p} {3 form} {4 input}]
test htmlparse-${impl}-5.2 {conversion to tree} {
struct::tree t
::htmlparse::2tree $html3 t
::htmlparse::removeVisualFluff t
::htmlparse::removeFormDefs t
set tx [list]
t walk root n {
lappend tx [list [t depth $n] [t get $n type]]
}
t destroy
set tx
} [list \
{0 root} {1 head} {2 title} {3 PCDATA} \
{1 body} {2 h2} {3 PCDATA} \
{2 p} {3 PCDATA} {2 p}]
|