is $dom->at('script')->child_nodes->first->wrap('<i>:)</i>')->root,
'<script><i>:)a</i><b>fce</b>1<b>d</b></script>', 'right result';
is $dom->at('i')->child_nodes->first->wrap_content('<b></b>')->root,
+ '<script><i>:)a</i><b>fce</b>1<b>d</b></script>', 'no changes';
+is $dom->at('i')->child_nodes->first->wrap('<b></b>')->root,
'<script><i><b>:)</b>a</i><b>fce</b>1<b>d</b></script>', 'right result';
is $dom->at('b')->child_nodes->first->ancestors->map('tag')->join(','),
'b,i,script', 'right result';
EOF
is $dom->at('div')->text, 'A-1', 'right text';
is $dom->at('iv'), undef, 'no result';
-$dom->prepend('l')->prepend('alal')->prepend('a');
-is "$dom", <<EOF, 'no change';
+is $dom->prepend('l')->prepend('alal')->prepend('a')->type, 'root',
+ 'right type';
+is "$dom", <<EOF, 'no changes';
<ul>
24<div>A-1</div>25<li>A</li><p>A1</p>23
<p>B</p>
</ul>
<div>D</div>
EOF
-$dom->append('lalala');
-is "$dom", <<EOF, 'no change';
+is $dom->append('lalala')->type, 'root', 'right type';
+is "$dom", <<EOF, 'no changes';
<ul>
24<div>A-1</div>25<li>A</li><p>A1</p>23
<p>B</p>
# Wrap elements
$dom = DOM::Tiny->new('<a>Test</a>');
+is "$dom", '<a>Test</a>', 'right result';
is $dom->wrap('<b></b>')->type, 'root', 'right type';
+is "$dom", '<a>Test</a>', 'no changes';
+is $dom->at('a')->wrap('<b></b>')->type, 'tag', 'right type';
is "$dom", '<b><a>Test</a></b>', 'right result';
is $dom->at('b')->strip->at('a')->wrap('A')->tag, 'a', 'right tag';
is "$dom", '<a>Test</a>', 'right result';
<form action="/foo">
<p>Test</p>
<input type="text" name="a" value="A" />
+ <input type="checkbox" name="q">
<input type="checkbox" checked name="b" value="B">
+ <input type="radio" name="r">
<input type="radio" checked name="c" value="C">
+ <input name="s">
+ <input type="checkbox" name="t" value="">
+ <input type=text name="u">
<select multiple name="f">
<option value="F">G</option>
<optgroup>
is $dom->at('textarea')->val, 'M', 'right value';
is $dom->at('button')->val, 'O', 'right value';
is $dom->find('form input')->last->val, 'P', 'right value';
+is $dom->at('input[name=q]')->val, 'on', 'right value';
+is $dom->at('input[name=r]')->val, 'on', 'right value';
+is $dom->at('input[name=s]')->val, undef, 'no value';
+is $dom->at('input[name=t]')->val, '', 'right value';
+is $dom->at('input[name=u]')->val, undef, 'no value';
# PoCo example with whitespace sensitive text
$dom = DOM::Tiny->new(<<EOF);