aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/07-Shared_Services.t5
1 files changed, 2 insertions, 3 deletions
diff --git a/t/07-Shared_Services.t b/t/07-Shared_Services.t
index 680466a..80e8eb6 100644
--- a/t/07-Shared_Services.t
+++ b/t/07-Shared_Services.t
@@ -2,7 +2,6 @@ use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;
-use Data::Dumper;
use Time::Piece;
BEGIN {
@@ -12,12 +11,12 @@ BEGIN {
ok(my $s = ManaTools::Shared::Services->new(), 'create ManaTools::Shared::Services');
is ($s->include_static_services(), 0, 'include_static_services (false)');
ok(my $services = $s->service_info(), 'service_info');
- diag Dumper($services);
+ diag "*** Services ***\n" . join (', ', keys %$services);
# Get static services also
ok($s = ManaTools::Shared::Services->new(include_static_services => 1), 'create ManaTools::Shared::Services with static services');
is ($s->include_static_services(), 1, 'include_static_services (true)');
ok($services = $s->service_info(), 'service_info with static services');
- diag Dumper($services);
+ diag "*** Static services ***\n" . join (', ', keys %$services);
done_testing;