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

RT 58262 - Add failing test for defined \%hash deprecation in perl 5.12

Browse Source 
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@89 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Todd R
2010-10-15 19:03:51 +00:00
parent 78d7f3d6f9
commit 376bbfb12d
1 changed files with 21 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
t/run.t
View File

@@ -8,7 +8,7 @@
use Data::Dumper; use Data::Dumper;
use Test::More tests => 64; use Test::More tests => 67;
#use Test::More qw(no_plan); #use Test::More qw(no_plan);
# ahem, we deliver the test code with a local copy of # ahem, we deliver the test code with a local copy of
@@ -16,7 +16,10 @@ use Test::More tests => 64;
# hashes without dependency to Tie::IxHash. # hashes without dependency to Tie::IxHash.
use lib qw(t); use lib qw(t);
use Tie::IxHash; use Tie::IxHash;
my @WARNINGS_FOUND;
BEGIN {
$SIG{__WARN__} = sub { diag( "WARN: ", join( '', @_ ) ); push @WARNINGS_FOUND, @_ };
}
### 1 ### 1
BEGIN { use_ok "Config::General"}; BEGIN { use_ok "Config::General"};
@@ -38,8 +41,6 @@ foreach my $num (2..7) {
ok(!$@, "$fst"); ok(!$@, "$fst");
} }
### 8 ### 8
my $conf = new Config::General("t/cfg.8"); my $conf = new Config::General("t/cfg.8");
my %hash = $conf->getall; my %hash = $conf->getall;
@@ -435,12 +436,19 @@ is_deeply( \%C36, { bit => { one => { honk=>'bonk' },
### Include once ### Include once
diag "\nPlease ignore the following message about IncludeAgain"; {
my $conf37 = Config::General->new( "t/dual-include.conf" ); my @expected_warning;
my %C37 = $conf37->getall; local $SIG{__WARN__} = sub { push @expected_warning, @_};
is_deeply( \%C37, { bit => { one => { honk=>'bonk' },
two => {} my $conf37 = Config::General->new( "t/dual-include.conf" );
} }, "Included once-only" ); my %C37 = $conf37->getall;
is_deeply( \%C37, { bit => { one => { honk=>'bonk' },
two => {}
} }, "Included once-only" );
is( @expected_warning, 1, "1 Expected warning" );
like( $expected_warning[0], qr/File .* already loaded. Use -IncludeAgain to load it again./ms, "Warns about a file already being loaded" );
}
### apache-style Include ### apache-style Include
@@ -714,3 +722,6 @@ $cfg52->save_file("t/cfg.52.out");
$cfg52 = new Config::General( -ConfigFile => "t/cfg.52.out", -ForceArray => 1); $cfg52 = new Config::General( -ConfigFile => "t/cfg.52.out", -ForceArray => 1);
my %hash52new = $cfg52->getall(); my %hash52new = $cfg52->getall();
is_deeply(\%hash52new, \%hash52, "check -ForceArray single value arrays during save()"); is_deeply(\%hash52new, \%hash52, "check -ForceArray single value arrays during save()");
# Make sure no warnings were seen during the test.
ok( !@WARNINGS_FOUND, "No unexpected warnings seen" );