libtext-dokuwiki-perl/t/parser-text-1.t

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Test::More tests => 3;
use Text::Dokuwiki::Parser;

my $dw = Text::Dokuwiki::Parser->new;
isa_ok($dw, 'Text::Dokuwiki::Parser');

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;