# $Id: 21_lib-Text-HikiDoc_options.t,v 1.3 2006/11/13 10:48:54 6-o Exp $
use Test::Base;
use Text::HikiDoc;
plan tests => 1 * blocks;
filters { outline => 'chomp'};
my $obj = Text::HikiDoc->new({level => 2});
run {
my $block = shift;
is $obj->to_html($block->input), $block->output, $block->outline;
}
__END__
===
# test change level
--- input
!hoge
--- output
<h2>hoge</h2>
--- outline
to_html with string
===
--- input eval
{string => '!hogehoge', level => 3}
--- output
<h3>hogehoge</h3>
--- outline
change string and level
===
--- input
!fuga
--- output
<h3>fuga</h3>
--- outline
change string and keep level