|
|
@ -7,11 +7,9 @@ use utf8; |
|
|
|
use Test::More tests => 3; |
|
|
|
use Test::More tests => 3; |
|
|
|
use Text::Dokuwiki; |
|
|
|
use Text::Dokuwiki; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $dw = Text::Dokuwiki->new; |
|
|
|
my $dw = Text::Dokuwiki->new; |
|
|
|
isa_ok($dw, 'Text::Dokuwiki'); |
|
|
|
isa_ok($dw, 'Text::Dokuwiki'); |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $text = "This is text with //inline **formatting**// rules [[http://site.com|and]] links."; |
|
|
|
my $text = "This is text with //inline **formatting**// rules [[http://site.com|and]] links."; |
|
|
|
my $tree = [ $dw->_parse_text($text) ]; |
|
|
|
my $tree = [ $dw->_parse_text($text) ]; |
|
|
|
is(ref $tree, 'ARRAY'); |
|
|
|
is(ref $tree, 'ARRAY'); |
|
|
|