#!perl
use 5.010;
use strict;
use warnings;
use FindBin '$Bin';
use lib $Bin, "$Bin/t";
use Org::Parser;
use Test::More 0.96;
require "testlib.pl";
test_parse(
name => 'non-fixed-width-section (missing space after colon)',
filter_elements => 'Org::Element::FixedWidthSection',
doc => <<'_',
:foo
_
num => 0,
);
test_parse(
name => 'basic tests',
filter_elements => 'Org::Element::FixedWidthSection',
doc => <<'_',
: this is *an* example
: this is another example
: yet another
:
: with empty line
_
num => 3,
test_after_parse => sub {
my %args = @_;
my $elems = $args{elements};
is($elems->[0]->text, " this is *an* example\n", "#0: text()");
is($elems->[1]->text, "this is another example\n", "#1: text()");
is($elems->[2]->text, "yet another\n\nwith empty line\n", "#2: text()");
},
);
done_testing();