diff options
author | Angelo Naselli <anaselli@linux.it> | 2015-03-25 10:05:10 +0100 |
---|---|---|
committer | Angelo Naselli <anaselli@linux.it> | 2015-03-25 10:05:10 +0100 |
commit | 19cc50169058c43f67c78e81bb153a4581df2b3a (patch) | |
tree | 1c96e7515a49f849a839066f7671487b3ff0fd68 | |
parent | 865bc40654354ccc6e2ffd97b7f6b361008c4e0b (diff) | |
download | colin-keep-19cc50169058c43f67c78e81bb153a4581df2b3a.tar colin-keep-19cc50169058c43f67c78e81bb153a4581df2b3a.tar.gz colin-keep-19cc50169058c43f67c78e81bb153a4581df2b3a.tar.bz2 colin-keep-19cc50169058c43f67c78e81bb153a4581df2b3a.tar.xz colin-keep-19cc50169058c43f67c78e81bb153a4581df2b3a.zip |
Tested ntpServiceConfig
-rw-r--r-- | t/04-Shared_TimeZone.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index 0bd007d..8f82786 100644 --- a/t/04-Shared_TimeZone.t +++ b/t/04-Shared_TimeZone.t @@ -18,6 +18,11 @@ BEGIN { diag "ntpCurrentServer got: < " . ($s ? $s : "none") . " >"; ok (my $a = ($tz->isNTPRunning() ? "running" : "not running"), 'isNTPRunning'); diag "isNTPRunning got: < " . $a . " >"; + ok (my @pairs = $tz->ntpServiceConfigPairs(), 'ntpServiceConfigPairs'); + diag Dumper(@pairs); + for my $pair (@pairs) { + is ($tz->getNTPServiceConfig($pair->[0]), $pair->[1], "ntpServiceConfigPairs $pair->[0]"); + } SKIP: { #remember to skip the right number of tests |