|
|
@ -15,16 +15,9 @@ my $tree = [ $dw->_parse_text($text) ]; |
|
|
|
is(ref $tree, 'ARRAY'); |
|
|
|
is(ref $tree, 'ARRAY'); |
|
|
|
is_deeply($tree, [ |
|
|
|
is_deeply($tree, [ |
|
|
|
'This is text with ', |
|
|
|
'This is text with ', |
|
|
|
[span => {'font-style' =>'italic'}, |
|
|
|
[i => {}, 'inline ', [b => {}, 'formatting']], |
|
|
|
'inline ', |
|
|
|
|
|
|
|
[span => {'font-weight' => 'bold'}, |
|
|
|
|
|
|
|
'formatting', |
|
|
|
|
|
|
|
], |
|
|
|
|
|
|
|
], |
|
|
|
|
|
|
|
' rules ', |
|
|
|
' rules ', |
|
|
|
[a => {href => 'http://site.com'}, |
|
|
|
[a => {href => 'http://site.com'}, 'and'], |
|
|
|
'and', |
|
|
|
|
|
|
|
], |
|
|
|
|
|
|
|
' links.', |
|
|
|
' links.', |
|
|
|
]); |
|
|
|
]); |
|
|
|
|
|
|
|
|
|
|
|