Set To Do branch

1 files changed, 0 insertions, 55 deletions

diff --git a/t/32-info.t b/t/32-info.t
deleted file mode 100644
index 0f5e4bd..0000000
--- a/t/32-info.t
+++ /dev/null
@@ -1,55 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-use FindBin '$RealBin';
-use lib "$RealBin/../SBO-Lib/lib";
-use SBO::Lib 'parse_info';
-
-plan tests => 23;
-
-my %parse = parse_info(<<"END");
-FOO="bar"
-BAR="foo bar
-baz"
-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');
-is ($parse{FOO}[1], undef, 'FOO key has correct length');
-is ($parse{BAR}[0], 'foo', 'foo value gotten from BAR key');
-is ($parse{BAR}[1], 'bar', 'bar value gotten from BAR key');
-is ($parse{BAR}[2], 'baz', 'baz value gotten from BAR key');
-is ($parse{BAR}[3], undef, 'BAR key has correct length');
-is ($parse{BAZ}[0], 'barf', 'barf value gotten from BAZ key');
-is ($parse{BAZ}[1], 'foof', 'foof value gotten from BAZ key');
-is ($parse{BAZ}[2], 'bazf', 'bazf value gotten from BAZ key');
-is ($parse{BAZ}[3], undef, 'BAZ key has correct length');
-is ($parse{QUUX}[0], 'finf', 'finf value gotten from QUUX key');
-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');
-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 correct length');
-delete @parse{qw/ FOO BAR BAZ QUUX FLAR_f FLINGLE /};
-is (scalar %parse, 0, 'no additional keys were parsed');