diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/07-Shared_Services.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/07-Shared_Services.t b/t/07-Shared_Services.t index 680466a5..80e8eb6d 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; |