diff options
| author | Angelo Naselli <anaselli@linux.it> | 2015-03-25 17:09:25 +0100 |
|---|---|---|
| committer | Angelo Naselli <anaselli@linux.it> | 2015-03-25 17:09:25 +0100 |
| commit | 4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61 (patch) | |
| tree | 07b7d1840de68a3ce611b0be75399ce85c409156 | |
| parent | 708eb6dcf2e4e7602250a35ba7552ddad8a72419 (diff) | |
| download | manatools-4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61.tar manatools-4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61.tar.gz manatools-4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61.tar.bz2 manatools-4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61.tar.xz manatools-4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61.zip | |
better order in test case
| -rw-r--r-- | t/04-Shared_TimeZone.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/04-Shared_TimeZone.t b/t/04-Shared_TimeZone.t index a88733be..c96165a4 100644 --- a/t/04-Shared_TimeZone.t +++ b/t/04-Shared_TimeZone.t @@ -14,6 +14,11 @@ BEGIN { ok (my @l = $tz->getTimeZones(), 'getTimeZones'); ok (my $h = $tz->readConfiguration(), 'readConfiguration'); diag Dumper($h); + ok (my $services = $tz->ntpServiceList(), 'ntpServiceList'); + diag Dumper($services); + ok ($tz->refreshNTPServiceList(), 'refreshNTPServiceList'); + ok ($services = $tz->ntpServiceList(), 'ntpServiceList after refresh'); + diag Dumper($services); ok (my $currService = $tz->ntp_program(), 'ntp_program'); diag "ntp_program got: < " . $currService . " >"; ok (my $a = ($tz->isNTPRunning() ? "running" : "not running"), 'isNTPRunning'); @@ -25,11 +30,6 @@ BEGIN { for my $pair (@pairs) { is ($tz->getNTPServiceConfig($pair->[0]), $pair->[1], "ntpServiceConfigPairs $pair->[0]"); } - ok (my $services = $tz->ntpServiceList(), 'ntpServiceList'); - diag Dumper($services); - ok ($tz->refreshNTPServiceList(), 'refreshNTPServiceList'); - ok ($services = $tz->ntpServiceList(), 'ntpServiceList after refresh'); - diag Dumper($services); SKIP: { #remember to skip the right number of tests |