You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
31 lines
587 B
31 lines
587 B
#!/usr/bin/env perl |
|
|
|
use strict; |
|
use warnings; |
|
use utf8; |
|
|
|
use Test::More tests => 3; |
|
use Text::Dokuwiki; |
|
|
|
my $dw = Text::Dokuwiki->new; |
|
isa_ok($dw, 'Text::Dokuwiki'); |
|
|
|
my $text = "This is text with //inline **formatting**// rules [[http://site.com|and]] links."; |
|
my $tree = [ $dw->_parse_text($text) ]; |
|
is(ref $tree, 'ARRAY'); |
|
is_deeply($tree, [ |
|
'This is text with ', |
|
[span => {'font-style' =>'italic'}, |
|
'inline ', |
|
[span => {'font-weight' => 'bold'}, |
|
'formatting', |
|
], |
|
], |
|
' rules ', |
|
[a => {href => 'http://site.com'}, |
|
'and', |
|
], |
|
' links.', |
|
]); |
|
|
|
exit 0;
|
|
|