From 376bbfb12dec7f94c2bed72437acad312607ad48 Mon Sep 17 00:00:00 2001
From: Todd R <git@daemon.de>
Date: Fri, 15 Oct 2010 19:03:51 +0000
Subject: [PATCH] RT 58262 - Add failing test for defined \%hash deprecation in
 perl 5.12

git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@89 be1acefe-a474-0410-9a34-9b3221f2030f
---
 t/run.t | 31 +++++++++++++++++++++----------
 1 file changed, 21 insertions(+), 10 deletions(-)

diff --git a/t/run.t b/t/run.t
index 399df82..1d04f88 100644
--- a/t/run.t
+++ b/t/run.t
@@ -8,7 +8,7 @@
 
 
 use Data::Dumper;
-use Test::More tests => 64;
+use Test::More tests => 67;
 #use Test::More qw(no_plan);
 
 # 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.
 use lib qw(t);
 use Tie::IxHash;
-
+my @WARNINGS_FOUND;
+BEGIN {
+    $SIG{__WARN__} = sub { diag( "WARN: ", join( '', @_ ) ); push @WARNINGS_FOUND, @_ };
+}
 
 ### 1
 BEGIN { use_ok "Config::General"};
@@ -38,8 +41,6 @@ foreach my $num (2..7) {
   ok(!$@, "$fst");
 }
 
-
-
 ### 8
 my $conf = new Config::General("t/cfg.8");
 my %hash = $conf->getall;
@@ -435,12 +436,19 @@ is_deeply( \%C36, { bit => { one => { honk=>'bonk' },
 
 
 ### Include once
-diag "\nPlease ignore the following message about IncludeAgain";
-my $conf37 = Config::General->new( "t/dual-include.conf" );
-my %C37 = $conf37->getall;
-is_deeply( \%C37, { bit => { one => { honk=>'bonk' }, 
-                           two => {} 
-                }        }, "Included once-only" );
+{
+    my @expected_warning;
+    local $SIG{__WARN__} = sub { push @expected_warning, @_};
+
+    my $conf37 = Config::General->new( "t/dual-include.conf" );
+    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 
@@ -714,3 +722,6 @@ $cfg52->save_file("t/cfg.52.out");
 $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()");
+
+# Make sure no warnings were seen during the test.
+ok( !@WARNINGS_FOUND, "No unexpected warnings seen" );