aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-07-21 10:04:35 (GMT)
committerAngelo Naselli <anaselli@linux.it>2015-07-21 10:04:35 (GMT)
commit4dfaf3cb4dd5a276286dbcd5356dd2002b372d96 (patch)
tree145445be1210cf51bd290909f5560dd3acf01a0b
parent189b85e09c80c886e37eab515b25525a45b4a4c2 (diff)
Simplified output
-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;