A simple fix to the warning generated by a sub-classed proxy - Please verify.

[dbsrgits/DBIx-Class.git] / t / 39load_namespaces_rt41083.t

diff --git a/t/39load_namespaces_rt41083.t b/t/39load_namespaces_rt41083.t
index 88fd6b7..ba99fe5 100644 (file)
--- a/t/39load_namespaces_rt41083.t
+++ b/t/39load_namespaces_rt41083.t
@@ -6,7 +6,7 @@ use Test::More;
 
 use lib 't/lib';
 
-plan tests => 2;
+plan tests => 4;
 
 sub _chk_warning {
        defined $_[0]? 
@@ -26,7 +26,7 @@ eval {
     );
 };
 ok(!$@) or diag $@;
-ok(_chk_warning($warnings), 'Works here');
+ok(_chk_warning($warnings), 'expected no complaint');
 
 eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
@@ -39,4 +39,4 @@ eval {
     );
 };
 ok(!$@) or diag $@;
-ok(_chk_warning($warnings), 'Fails here');
+ok(_chk_warning($warnings), 'expected no complaint') or diag $warnings;