diff options
Diffstat (limited to 'qa/t/webservice_bugzilla.t')
| -rw-r--r-- | qa/t/webservice_bugzilla.t | 43 |
1 files changed, 22 insertions, 21 deletions
diff --git a/qa/t/webservice_bugzilla.t b/qa/t/webservice_bugzilla.t index 6d40e3088..f51afa097 100644 --- a/qa/t/webservice_bugzilla.t +++ b/qa/t/webservice_bugzilla.t @@ -17,29 +17,30 @@ use QA::Util; my ($config, @clients) = get_rpc_clients(); foreach my $rpc (@clients) { - my $vers_call = $rpc->bz_call_success('Bugzilla.version'); - my $version = $vers_call->result->{version}; - ok($version, "Bugzilla.version returns $version"); + my $vers_call = $rpc->bz_call_success('Bugzilla.version'); + my $version = $vers_call->result->{version}; + ok($version, "Bugzilla.version returns $version"); - my $tz_call = $rpc->bz_call_success('Bugzilla.timezone'); - my $tz = $tz_call->result->{timezone}; - ok($tz, "Bugzilla.timezone retuns $tz"); + my $tz_call = $rpc->bz_call_success('Bugzilla.timezone'); + my $tz = $tz_call->result->{timezone}; + ok($tz, "Bugzilla.timezone retuns $tz"); - my $ext_call = $rpc->bz_call_success('Bugzilla.extensions'); - my $extensions = $ext_call->result->{extensions}; - isa_ok($extensions, 'HASH', 'extensions'); + my $ext_call = $rpc->bz_call_success('Bugzilla.extensions'); + my $extensions = $ext_call->result->{extensions}; + isa_ok($extensions, 'HASH', 'extensions'); - # There is always at least the QA extension enabled. - my $cmp = $config->{test_extensions} ? '>' : '=='; - my @ext_names = keys %$extensions; - my $desc = scalar(@ext_names) . ' extension(s) returned: ' . join(', ', @ext_names); - cmp_ok(scalar(@ext_names), $cmp, 1, $desc); - ok(grep($_ eq 'QA', @ext_names), 'The QA extension is enabled'); + # There is always at least the QA extension enabled. + my $cmp = $config->{test_extensions} ? '>' : '=='; + my @ext_names = keys %$extensions; + my $desc + = scalar(@ext_names) . ' extension(s) returned: ' . join(', ', @ext_names); + cmp_ok(scalar(@ext_names), $cmp, 1, $desc); + ok(grep($_ eq 'QA', @ext_names), 'The QA extension is enabled'); - my $time_call = $rpc->bz_call_success('Bugzilla.time'); - my $time_result = $time_call->result; - foreach my $type (qw(db_time web_time)) { - cmp_ok($time_result->{$type}, '=~', $rpc->DATETIME_REGEX, - "Bugzilla.time returns a datetime for $type"); - } + my $time_call = $rpc->bz_call_success('Bugzilla.time'); + my $time_result = $time_call->result; + foreach my $type (qw(db_time web_time)) { + cmp_ok($time_result->{$type}, '=~', $rpc->DATETIME_REGEX, + "Bugzilla.time returns a datetime for $type"); + } } |