silence m2m warnings v0.002004
Justin Hunter [Sat, 5 Mar 2011 16:19:42 +0000 (08:19 -0800)]
t/00componentui_compiles.t
t/01app.t
t/im_dbic.t
t/ui_viewport.t
t/uncheck_bool_field.t

index 1c60e78..cba4525 100644 (file)
@@ -2,6 +2,8 @@ use strict;
 use warnings;
 use Test::More tests => 1;
 
+BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; }
+
 use_ok('ComponentUI') 
   or BAIL_OUT('ComponentUI does not compile, giving up');
 
index c72e2c7..3a597c6 100644 (file)
--- a/t/01app.t
+++ b/t/01app.t
@@ -2,6 +2,9 @@ use strict;
 use warnings;
 use Test::More tests => 2;
 
-BEGIN { use_ok 'Catalyst::Test', 'ComponentUI' }
+BEGIN {
+  local $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1;
+  use_ok 'Catalyst::Test', 'ComponentUI';
+}
 
 ok( request('/')->is_success, 'Request should succeed' );
index 24035bb..04d7e91 100644 (file)
@@ -3,8 +3,10 @@ use strict;
 use warnings;
 
 use Test::Class;
+BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; }
 use RTest::InterfaceModel::Reflector::DBIC;
 
+
 Test::Class->runtests(
   RTest::InterfaceModel::Reflector::DBIC->new(),
 );
index 0cff6d8..974c082 100644 (file)
@@ -3,6 +3,9 @@ use strict;
 use warnings;
 
 use Test::Class;
+
+BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; }
+
 use RTest::UI::ViewPort::ListView;
 
 Test::Class->runtests(
index 7742165..079fee7 100644 (file)
@@ -1,6 +1,8 @@
 use strict;
 use warnings;
 use Test::More qw(no_plan);
+BEGIN { $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1; }
+
 use Test::WWW::Mechanize::Catalyst 'ComponentUI';
 
 my $mech = Test::WWW::Mechanize::Catalyst->new;