mirror of
https://codeberg.org/scip/Config-General.git
synced 2025-12-16 20:21:01 +01:00
- fixed rt.cpan.org#63487 documentation error.
- fixed rt.cpan.org#61302, now croak if the config file
parameter is a directory and directory include is not
turned on.
- fixed rt.cpan.org#60429 META.yml typo
- added new option -AllowSingleQuoteInterpolation, which
turns on interpolation for variables inside single quotes.
- added test case for the new option
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@91 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
9
t/run.t
9
t/run.t
@@ -8,7 +8,7 @@
|
||||
|
||||
|
||||
use Data::Dumper;
|
||||
use Test::More tests => 67;
|
||||
use Test::More tests => 68;
|
||||
#use Test::More qw(no_plan);
|
||||
|
||||
# ahem, we deliver the test code with a local copy of
|
||||
@@ -723,5 +723,12 @@ $cfg52 = new Config::General( -ConfigFile => "t/cfg.52.out", -ForceArray => 1);
|
||||
my %hash52new = $cfg52->getall();
|
||||
is_deeply(\%hash52new, \%hash52, "check -ForceArray single value arrays during save()");
|
||||
|
||||
my $cfg53 = new Config::General(-AllowSingleQuoteInterpolation => 1, -String => "got = 1\nhave = '\$got'", -InterPolateVars => 1 );
|
||||
my %hash53 = $cfg53->getall();
|
||||
is($hash53{have}, "'1'", "check -AllowSingleQuoteInterpolation");
|
||||
|
||||
|
||||
# Make sure no warnings were seen during the test.
|
||||
ok( !@WARNINGS_FOUND, "No unexpected warnings seen" );
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user