Fix .info parsing - again. This fixes #55

1 files changed, 17 insertions, 2 deletions

diff --git a/t/32-info.t b/t/32-info.t
index 8b74e4b..ebada04 100644
--- a/t/32-info.t
+++ b/t/32-info.t
@@ -9,7 +9,7 @@ use FindBin '$RealBin';
 use lib "$RealBin/../SBO-Lib/lib";
 use SBO::Lib 'parse_info';
 
-plan tests => 16;
+plan tests => 23;
 
 my %parse = parse_info(<<"END");
 FOO="bar"
@@ -19,6 +19,14 @@ BAZ="barf foof
  bazf"
 QUUX="finf"
 FLAR_f="trailing whitespace"   
+FLINGLE="\
+glorg \
+glorg \ 
+and\
+a\
+ gloob\ 
+blorx\
+"
 END
 
 is ($parse{FOO}[0], 'bar', 'bar value gotten from FOO key');
@@ -36,5 +44,12 @@ is ($parse{QUUX}[1], undef, 'QUUX key has correct length');
 is ($parse{FLAR_f}[0], 'trailing', 'trailing value gotten from FLAR_f key');
 is ($parse{FLAR_f}[1], 'whitespace', 'whitespace value gotten from FLAR_f key');
 is ($parse{FLAR_f}[2], undef, 'FLAR_f key has correct length');
-delete @parse{qw/ FOO BAR BAZ QUUX FLAR_f /};
+is ($parse{FLINGLE}[0], 'glorg', 'glorg value gotten from FLINGLE key');
+is ($parse{FLINGLE}[1], 'glorg', 'glorg value gotten from FLINGLE key');
+is ($parse{FLINGLE}[2], 'and', 'and value gotten from FLINGLE key');
+is ($parse{FLINGLE}[3], 'a', 'a value gotten from FLINGLE key');
+is ($parse{FLINGLE}[4], 'gloob', 'gloob value gotten from FLINGLE key');
+is ($parse{FLINGLE}[5], 'blorx', 'blorx value gotten from FLINGLE key');
+is ($parse{FLINGLE}[6], undef, 'FLINGLE key has corect length');
+delete @parse{qw/ FOO BAR BAZ QUUX FLAR_f FLINGLE /};
 is (scalar %parse, 0, 'no additional keys were parsed');