2 use Test::More qw(no_plan);
11 <title>Default Title</title>
13 <body bad_attr='junk'>
23 ->set_attribute(class=>'main');
29 ->add_to_attribute(class=>'one-column');
35 ->replace_content('Hello World');
43 <p id="p2">Is the Time</p>
49 ->replace_content($body);
55 ->set_attribute(class=>'para');
61 ->remove_attribute('bad_attr');
64 my $output = $root->to_html;
68 <title>Hello World</title>
70 <body class="main one-column"><div id="stuff">
71 <p class="para">Well Now</p>
72 <p id="p2" class="para">Is the Time</p>
77 is($output, $expect, 'Synopsis code works ok');