Commit | Line | Data |
---|---|---|
1cf03540 | 1 | use strictures 1; |
0d8f057e | 2 | use Test::More qw(no_plan); |
3 | ||
a42917f6 | 4 | |
5 | ||
0d8f057e | 6 | use HTML::Zoom; |
7 | my $root = HTML::Zoom | |
8 | ->from_html(<<MAIN); | |
9 | <html> | |
10 | <head> | |
11 | <title>Default Title</title> | |
12 | </head> | |
a42917f6 | 13 | <body bad_attr='junk'> |
0d8f057e | 14 | Default Content |
15 | </body> | |
16 | </html> | |
17 | MAIN | |
18 | ||
a42917f6 | 19 | |
20 | ||
21 | $root = $root | |
22 | ->select('body') | |
23 | ->set_attribute(class=>'main'); | |
24 | ||
25 | ||
26 | ||
27 | $root = $root | |
28 | ->select('body') | |
29 | ->add_to_attribute(class=>'one-column'); | |
30 | ||
31 | ||
32 | ||
33 | $root = $root | |
34 | ->select('title') | |
35 | ->replace_content('Hello World'); | |
36 | ||
37 | ||
38 | ||
0d8f057e | 39 | my $body = HTML::Zoom |
40 | ->from_html(<<BODY); | |
41 | <div id="stuff"> | |
adb30a8a | 42 | <p>Well Now</p> |
f8ad684d | 43 | <p id="p2">Is the Time</p> |
0d8f057e | 44 | </div> |
45 | BODY | |
46 | ||
a42917f6 | 47 | $root = $root |
f8ad684d | 48 | ->select('body') |
a42917f6 | 49 | ->replace_content($body); |
50 | ||
51 | ||
52 | ||
53 | $root = $root | |
f8ad684d | 54 | ->select('p') |
a42917f6 | 55 | ->set_attribute(class=>'para'); |
56 | ||
57 | ||
58 | ||
59 | $root = $root | |
60 | ->select('body') | |
61 | ->remove_attribute('bad_attr'); | |
0d8f057e | 62 | |
63 | ||
a42917f6 | 64 | my $output = $root->to_html; |
0d8f057e | 65 | my $expect = <<HTML; |
66 | <html> | |
67 | <head> | |
68 | <title>Hello World</title> | |
69 | </head> | |
a42917f6 | 70 | <body class="main one-column"><div id="stuff"> |
adb30a8a | 71 | <p class="para">Well Now</p> |
a42917f6 | 72 | <p id="p2" class="para">Is the Time</p> |
0d8f057e | 73 | </div> |
74 | </body> | |
75 | </html> | |
76 | HTML | |
77 | is($output, $expect, 'Synopsis code works ok'); | |
78 |