scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-16 20:21:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed rt.cpan.org#39814.

Browse Source 
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@99 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2014-05-01 11:19:25 +00:00
parent 010403fd8a
commit 480548e19d
5 changed files with 25 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
t/cfg.55 Normal file
View File

@@ -0,0 +1,5 @@
a = 1
b = nochop\
c = should stay alone

7
t/run.t
View File

@@ -8,7 +8,7 @@
use Data::Dumper;
use Test::More tests => 70;
use Test::More tests => 71;
#use Test::More qw(no_plan);
# ahem, we deliver the test code with a local copy of
@@ -737,3 +737,8 @@ ok( !@WARNINGS_FOUND, "No unexpected warnings seen" );
my $cfg54 = new Config::General(-NoEscape => 1, -String => qq(val = \\\$notavar:\\blah\n));
my %hash54 = $cfg54->getall();
is($hash54{val}, qq(\\\$notavar:\\blah), "check -NoEscape");
# check for line continuation followed by empty line (rt.cpan.org#39814)
my $cfg55 = new Config::General( -ConfigFile => "t/cfg.55" );
my %hash55 = $cfg55->getall();
is($hash55{b}, "nochop", "check continuation followed by empty line");