Commit b96d90f9 authored by Ed J's avatar Ed J

Test spaces in section names.

parent 1d4d1b27
......@@ -4,8 +4,12 @@ require Gimp::Pod;
my $p = Gimp::Pod->new;
ok($p, 'obj init');
is_deeply([ $p->sections ], [ qw(NAME VERBATIM OTHER) ], 'sections');
is_deeply(
[ $p->sections ],
[ ('NAME', 'SPACE NAME', 'VERBATIM', 'OTHER') ], 'sections'
);
is($p->section('NAME'), 'test - Run some tests', 'sect name');
is($p->section('SPACE NAME'), 'Some text.', 'sect space-name');
is($p->section('VERBATIM'), " verbatim\n verbatim2", 'sect verbatim');
is($p->section('OTHER'), 'Other text.', 'sect at eof');
......@@ -16,6 +20,10 @@ __END__
test - Run some tests
=head1 SPACE NAME
Some text.
=head1 VERBATIM
verbatim
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment