[gimp-perl] Test spaces in section names.

[Ed J <edj src gnome org>]

commit b96d90f992ffa04f7e85d7c0722e5dfd8a95c1fb
Author: Ed J <edj src gnome org>
Date:   Tue Apr 29 16:00:25 2014 +0100

    Test spaces in section names.

 t/gimppod.t |   10 +++++++++-
 1 files changed, 9 insertions(+), 1 deletions(-)
---
diff --git a/t/gimppod.t b/t/gimppod.t
index 186944a..47c4dc8 100644
--- a/t/gimppod.t
+++ b/t/gimppod.t
@@ -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