6
unshift @INC, '../blib/lib';
10
use Test::More tests => 2;
11
use Text::WikiFormat as => 'wikiformat';
15
* This should be a list.
17
1. This should be an ordered list.
19
* This is like the default unordered list
22
! This is like the default unordered list
23
! But marked differently
27
my $indent = $Text::WikiFormat::indent;
29
my %format_tags = ( blocks => { unordered => qr/\s*!\s*/ } );
31
my $htmltext = wikiformat( $wikitext, \%format_tags, {} );
32
like( $htmltext, qr!<li>But marked differently</li>!m,
33
'redefining a list type works with use as' );
38
ordered => qr/^\s*([\dA-Za-z]+)\.\s*/,
39
unordered => qr/\s*\*\s*/
41
indented => { unordered => 0 },
44
$htmltext = wikiformat( $wikitext, \%format_tags, {} );
45
like( $htmltext, qr!<li>But not indented!m,
46
'redefining a list type to require no indent works with use as' );