D
_EOF
eval {
$o = Text::KwikiFormatish::format( $i );
};
is( $@, '', 'format subroutine' );
isnt( length($o), 0, 'output produced' );
# plugins
like( $o, qr#<img src="test1.png"#, "icon" );
lik
g
_EOF
eval {
$o = Text::KwikiFormatish::format( $i );
};
is( $@, '', 'format subroutine' );
isnt( length($o), 0, 'output produced' );
like( $o, qr#<a[^>]+>SomePage</a>#, "link" );
like( $o, qr#
_EOF
eval {
$o = Text::KwikiFormatish::format( $i );
};
is( $@, '', 'format subroutine' );
isnt( length($o), 0, 'output produced' );
# markup tests
foreach ( 1 .. 6 ) {
like( $o, qr#<h$_>H