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}]
|
