From 4dfaf3cb4dd5a276286dbcd5356dd2002b372d96 Mon Sep 17 00:00:00 2001
From: Angelo Naselli <anaselli@linux.it>
Date: Tue, 21 Jul 2015 12:04:35 +0200
Subject: Simplified output

---
 t/07-Shared_Services.t | 5 ++---
 1 file 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;
-- 
cgit v1.2.1