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.
32 lines
587 B
32 lines
587 B
10 years ago
|
#!/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;
|