Commit | Line | Data |
3de6bc44 |
1 | use strict; |
2 | #use warnings FATAL => 'all'; |
3 | use Test::More; |
4 | |
5 | use HTML::Zoom; |
6 | |
7 | # el#id |
8 | is( HTML::Zoom->from_html('<div id="yo"></div>') |
9 | ->select('div#yo') |
10 | ->replace_content('grg') |
11 | ->to_html, |
12 | '<div id="yo">grg</div>', |
13 | 'E#id works' ); |
14 | |
15 | # el.class1 |
16 | is( HTML::Zoom->from_html('<div class="yo"></div>') |
17 | ->select('div.yo') |
18 | ->replace_content('grg') |
19 | ->to_html, |
20 | '<div class="yo">grg</div>', |
21 | 'E.class works' ); |
22 | |
23 | # el[attr] |
24 | is( HTML::Zoom->from_html('<div frew="yo"></div>') |
25 | ->select('div[frew]') |
26 | ->replace_content('grg') |
27 | ->to_html, |
28 | '<div frew="yo">grg</div>', |
29 | 'E[attr] works' ); |
30 | |
31 | # el[attr="foo"] |
32 | is( HTML::Zoom->from_html('<div frew="yo"></div>') |
33 | ->select('div[frew="yo"]') |
34 | ->replace_content('grg') |
35 | ->to_html, |
36 | '<div frew="yo">grg</div>', |
37 | 'E[attr="val"] works' ); |
38 | |
39 | # el[attr*="foo"] |
40 | is( HTML::Zoom->from_html('<div f="frew goog"></div>') |
41 | ->select('div[f*="oo"]') |
42 | ->replace_content('grg') |
43 | ->to_html, |
44 | '<div f="frew goog">grg</div>', |
45 | 'E[attr*="val"] works' ); |
46 | |
47 | # el[attr^="foo"] |
48 | is( HTML::Zoom->from_html('<div f="foobar"></div>') |
49 | ->select('div[f^="foo"]') |
50 | ->replace_content('grg') |
51 | ->to_html, |
52 | '<div f="foobar">grg</div>', |
53 | 'E[attr^="val"] works' ); |
54 | |
55 | # el[attr$="foo"] |
56 | is( HTML::Zoom->from_html('<div f="foobar"></div>') |
57 | ->select('div[f$="bar"]') |
58 | ->replace_content('grg') |
59 | ->to_html, |
60 | '<div f="foobar">grg</div>', |
61 | 'E[attr$="val"] works' ); |
62 | |
63 | # el[attr*="foo"] |
64 | is( HTML::Zoom->from_html('<div f="foo bar"></div>') |
65 | ->select('div[f*="bar"]') |
66 | ->replace_content('grg') |
67 | ->to_html, |
68 | '<div f="foo bar">grg</div>', |
69 | 'E[attr*="val"] works' ); |
70 | |
71 | # sel1 sel2 |
72 | is( HTML::Zoom->from_html('<table><tr></tr><tr></tr></table>') |
73 | ->select('table tr') |
74 | ->replace_content(\'<td></td>') |
75 | ->to_html, |
76 | '<table><tr><td></td></tr><tr><td></td></tr></table>', |
77 | 'sel1 sel2 works' ); |
78 | |
79 | |
80 | # sel1 sel2 sel3 |
81 | is( HTML::Zoom->from_html('<table><tr><td></td></tr><tr><td></td></tr></table>') |
82 | ->select('table tr td') |
83 | ->replace_content('frew') |
84 | ->to_html, |
85 | '<table><tr><td>frew</td></tr><tr><td>frew</td></tr></table>', |
86 | 'sel1 sel2 sel3 works' ); |
87 | |
88 | done_testing; |