Branch Coverage

blib/lib/Gerrit/Client/Test.pm
Criterion Covered Total %
branch 10 96 10.4


line true false branch
66 0 0 if ($status != 0)
94 0 0 unless (ok $response->is_success, "can fetch $url")
109 0 0 if (defined $value)
117 0 0 unless (is $status, 0, "retrieve gerrit config $key OK")
144 0 0 unless $self->ensure_gerrit_running
152 0 0 unless ok $response->is_success, "user $username created"
174 0 0 unless (-f $sshkey_file)
176 0 0 unless _system_or_fail('ssh-keygen', '-f', $sshkey_file, '-N', '')
181 0 0 unless (ok &open($fh, '<', $sshkey_file . '.pub'))
188 0 0 unless (ok &open($fh, '>', 'etc/peer_keys'))
193 0 0 unless (ok &close($fh))
238 0 0 if (my $error = $Gerrit::Client::Test::EVAL_ERROR)
270 0 0 if (-e $h2_jar)
275 0 0 unless ok $zip, 'open gerrit.war'
278 0 0 unless is scalar @possible, 1, 'find h2.jar in gerrit.war'
280 0 0 unless is $zip->extractMember($possible[0], $h2_jar), 0, 'extract h2.jar'
315 0 0 if ($status != 0)
327 0 0 unless ($http_url)
333 0 0 unless ($ssh_address)
372 0 14 unless $fh->close
422 0 4 unless $fh->close
425 4 0 if (not $Gerrit::Client::Test::OSNAME =~ /win32/i) { }
426 0 4 unless &chmod(493, $command_file)
439 0 0 unless $fh->close
563 0 4 unless -d $directory
564 0 4 unless $name
567 0 4 if -e $script
588 0 4 if @sequence > $MAX
598 0 4 if any sub { -e $_; } , @FILENAMES
614 0 14 if $Gerrit::Client::Test::EVAL_ERROR
691 0 0 if ($args{'dir'} and -f "$args{'dir'}/bin/gerrit.war")
703 0 0 if (not $uri->scheme) { }
0 0 elsif ($uri->scheme eq 'file') { }
713 0 0 unless (-d $args{'dir'})
719 0 0 unless _system_or_fail(@installcmd)
723 0 0 unless _gerrit_config('auth.type', 'HTTP')
725 0 0 unless _gerrit_config('sshd.listenAddress', "127.0.0.1:$args{'ssh_port'}")
726 0 0 unless _gerrit_config('httpd.listenUrl', $args{'http_url'})
727 0 0 unless _gerrit_config('gerrit.canonicalWebUrl', $args{'http_url'})
728 0 0 unless _gerrit_config('gerrit-client-test.user', $args{'user'})
782 0 0 if ($user)
850 0 0 if (ref $cmd[0])
891 0 0 if ($message and ref $message)
904 0 0 if ($$opts{'amend'})
1035 0 0 unless (-f $pidfile)
1056 0 0 unless ($pid)
1072 0 0 if ($self->gerrit_running)
1087 0 0 unless ($self->gerrit_running)