Reduce the number of 'Forgot to call init()' warnings during testing (#…

…152)
perl-workflow · Jul 31, 2021 · a756000 · a756000
1 parent 94d63c5
commit a756000
Show file tree

Hide file tree

Showing 13 changed files with 68 additions and 5 deletions.
diff --git a/t/05_condition_nested.t b/t/05_condition_nested.t
@@ -6,11 +6,6 @@ use lib qw(t);
 
 use Test::More;
 
-
-require Workflow::Factory;
-require Workflow::Persister::DBI;
-
-
 my $debug = $ENV{TEST_DEBUG};
 
 # base name used to find config files
@@ -32,6 +27,13 @@ else {
     Log::Log4perl::easy_init($Log::Log4perl::OFF);
 }
 
+
+
+
+require Workflow::Factory;
+require Workflow::Persister::DBI;
+
+
 plan tests => 26;
 
 my $workflow_conf  = $cfgbase . '/workflow_def_wfnest.xml';

diff --git a/t/condition.t b/t/condition.t
@@ -6,6 +6,11 @@ use TestUtil;
 use Test::More  tests => 11;
 use Test::Exception;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::Condition' );
 
 dies_ok { Workflow::Condition->evaluate() };

diff --git a/t/condition_evaluate.t b/t/condition_evaluate.t
@@ -1,10 +1,16 @@
+
 #!/usr/bin/env perl
 
 use strict;
 use lib qw(t);
 use TestUtil;
 use Test::More  tests => 1;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 my $wf;
 
 require_ok( 'Workflow::Condition::Evaluate' );

diff --git a/t/config.t b/t/config.t
@@ -6,6 +6,11 @@ use TestUtil;
 use Test::More  tests => 50;
 use Test::Exception;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 my ($parser);
 
 #testing load

diff --git a/t/context.t b/t/context.t
@@ -6,6 +6,11 @@ use TestUtil;
 use Test::More  tests => 9;
 use Test::Exception;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::Context' );
 
 ok(my $context = Workflow::Context->new());

diff --git a/t/factory.t b/t/factory.t
@@ -6,6 +6,11 @@ use TestUtil;
 use Test::More  tests => 7;
 use Test::Exception;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::Factory' );
 
 my $factory = Workflow::Factory->instance();

diff --git a/t/factory_subclass.t b/t/factory_subclass.t
@@ -5,6 +5,11 @@ use lib qw(t);
 use TestUtil;
 use Test::More  tests => 5;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'FactorySubclass' );
 my $factory = FactorySubclass->instance();
 is( ref( $factory ), 'FactorySubclass',

diff --git a/t/history.t b/t/history.t
@@ -5,6 +5,11 @@ use lib qw(t);
 use TestUtil;
 use Test::More  tests => 18;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::History' );
 
 my %params = (

diff --git a/t/persister.t b/t/persister.t
@@ -6,6 +6,11 @@ use TestUtil;
 use Test::Exception;
 use Test::More  tests => 6;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::Persister' );
 
 dies_ok { Workflow::Persister->create_workflow(); };

diff --git a/t/persister_auto_generate_id.t b/t/persister_auto_generate_id.t
@@ -7,6 +7,11 @@ use Test::More; # done_testing
 use Test::Exception;
 use Mock::MonkeyPatch;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require Workflow::Factory;
 require_ok( 'Workflow::Persister::DBI::AutoGeneratedId' );
 require_ok( 'Workflow::Persister::DBI' );

diff --git a/t/persister_sequence_id.t b/t/persister_sequence_id.t
@@ -7,6 +7,11 @@ use Test::More; # done_testing
 use Test::Exception;
 use Mock::MonkeyPatch;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require Workflow::Factory;
 require_ok( 'Workflow::Persister::DBI::AutoGeneratedId' );
 require_ok( 'Workflow::Persister::DBI' );

diff --git a/t/validator.t b/t/validator.t
@@ -6,6 +6,11 @@ use TestUtil;
 use Test::More  tests => 2;
 use Test::Exception;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::Validator' );
 
 dies_ok { Workflow::Validator->validate(); };
diff --git a/t/validator_has_required_field.t b/t/validator_has_required_field.t
@@ -5,4 +5,9 @@ use lib qw(t);
 use TestUtil;
 use Test::More  tests => 1;
 
+no warnings 'once';
+require Log::Log4perl;
+Log::Log4perl::easy_init($Log::Log4perl::OFF);
+
+
 require_ok( 'Workflow::Validator::HasRequiredField' );