diff options
| author | Angelo Naselli <anaselli@linux.it> | 2015-07-21 12:04:35 +0200 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2015-07-21 12:04:35 +0200 |
| commit | 4dfaf3cb4dd5a276286dbcd5356dd2002b372d96 (patch) | |
| tree | 145445be1210cf51bd290909f5560dd3acf01a0b | |
| parent | 189b85e09c80c886e37eab515b25525a45b4a4c2 (diff) | |
| download | colin-keep-4dfaf3cb4dd5a276286dbcd5356dd2002b372d96.tar colin-keep-4dfaf3cb4dd5a276286dbcd5356dd2002b372d96.tar.gz colin-keep-4dfaf3cb4dd5a276286dbcd5356dd2002b372d96.tar.bz2 colin-keep-4dfaf3cb4dd5a276286dbcd5356dd2002b372d96.tar.xz colin-keep-4dfaf3cb4dd5a276286dbcd5356dd2002b372d96.zip | |
Simplified output
| -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 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; |