From 4410e51e4ed7d76da5e5d4f84d49b8f56c27fb61 Mon Sep 17 00:00:00 2001 From: Angelo Naselli Date: Wed, 25 Mar 2015 17:09:25 +0100 Subject: better order in test case --- t/04-Shared_TimeZone.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 't/04-Shared_TimeZone.t') 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 -- cgit v1.2.1