File Coverage

blib/lib/Testcontainers/Wait/HealthCheck.pm

Criterion	Covered	Total	%
statement	15	23	65.2
branch	0	4	0.0
condition	0	4	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	38	52.6

package Testcontainers::Wait::HealthCheck;
# ABSTRACT: Wait strategy for Docker health checks

use strict;
use warnings;
use Moo;
use Carp qw( croak );
use Log::Any qw( $log );

our $VERSION = '0.001';

with 'Testcontainers::Wait::Base';

=head1 SYNOPSIS

    use Testcontainers::Wait;

    my $wait = Testcontainers::Wait::for_health_check();

=head1 DESCRIPTION

Waits for the Docker health check (if configured in the image) to report
"healthy". Equivalent to Go's C.

=cut

sub check {
    my ($self, $container) = @_;

    my $state = eval { $container->state };
    return 0 unless $state;

    my $health = $state->{Health} // {};
    my $status = $health->{Status} // '';

    $log->tracef("Health check status: %s", $status);

    return lc($status) eq 'healthy' ? 1 : 0;
}

=method check($container)

Check if Docker reports the container as "healthy".

=cut

1;