aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorAngelo Naselli <anaselli@linux.it>2015-03-25 17:08:20 +0100
committerAngelo Naselli <anaselli@linux.it>2015-03-25 17:08:20 +0100
commit708eb6dcf2e4e7602250a35ba7552ddad8a72419 (patch)
treeeefa43d30c0f0f87d258afeedc4a85d199a3a540 /t
parent143675198e9c0fcef3335affa224c6b9799a9a6b (diff)
downloadmanatools-708eb6dcf2e4e7602250a35ba7552ddad8a72419.tar
manatools-708eb6dcf2e4e7602250a35ba7552ddad8a72419.tar.gz
manatools-708eb6dcf2e4e7602250a35ba7552ddad8a72419.tar.bz2
manatools-708eb6dcf2e4e7602250a35ba7552ddad8a72419.tar.xz
manatools-708eb6dcf2e4e7602250a35ba7552ddad8a72419.zip
added include_static_services property and its test
Diffstat (limited to 't')
-rw-r--r--t/07-Shared_Services.t23
1 files changed, 23 insertions, 0 deletions
diff --git a/t/07-Shared_Services.t b/t/07-Shared_Services.t
new file mode 100644
index 00000000..680466a5
--- /dev/null
+++ b/t/07-Shared_Services.t
@@ -0,0 +1,23 @@
+use 5.006;
+use strict;
+use warnings FATAL => 'all';
+use Test::More;
+use Data::Dumper;
+use Time::Piece;
+
+BEGIN {
+ use_ok( 'ManaTools::Shared::Services' ) || print "ManaTools::Shared::Services failed!\n";
+}
+
+ 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);
+
+ # 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);
+
+done_testing;