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
1.0 KiB
31 lines
1.0 KiB
#!/usr/bin/env perl |
|
|
|
use strict; |
|
use warnings; |
|
use utf8; |
|
|
|
use Test::More tests => 8; |
|
use Text::Dokuwiki; |
|
|
|
my $dw = Text::Dokuwiki->new; |
|
isa_ok($dw, 'Text::Dokuwiki'); |
|
|
|
my $elem = $dw->_parse_include('{{image.png}}'); |
|
is(ref $elem, 'ARRAY'); |
|
is_deeply($elem, [img => {align => 'left', src => 'image.png'}]); |
|
|
|
$elem = $dw->_parse_include('{{image.png?100}}'); |
|
is_deeply($elem, [img => {align => 'left', src => 'image.png', width => '100'}]); |
|
|
|
$elem = $dw->_parse_include('{{ image.png?100x200 }}'); |
|
is_deeply($elem, [img => {align => 'center', src => 'image.png', width => '100', height => 200}]); |
|
|
|
$elem = $dw->_parse_include('{{ :image.png|image}}'); |
|
is_deeply($elem, [img => {align => 'right', src => '/image.png', title => 'image'}]); |
|
|
|
$elem = $dw->_parse_include('{{namespace:image.png|}}'); |
|
is_deeply($elem, [img => {align => 'left', src => 'namespace/image.png', title => ''}]); |
|
|
|
$elem = $dw->_parse_include('{{namespace:image.png|text | 1}}'); |
|
is_deeply($elem, [img => {align => 'left', src => 'namespace/image.png', title => 'text | 1'}]); |
|
|
|
|