view release on metacpan or  search on metacpan

t/06-channel-pool.t  view on Meta::CPAN

subtest 'DNS Resolution and Subchannel Pool Instantiation' => sub {
    my $pool = Google::gRPC::ChannelPool->new(
        target     => 'spanner.googleapis.com:443',
        auth_token => 'mock_token_testtoken',
    );

    ok($pool, 'instantiated ChannelPool');
    is($pool->target, 'spanner.googleapis.com:443', 'pool target matches');
    my $subs = $pool->subchannels;
    ok(scalar(@$subs) > 0, 'resolved target to subchannel endpoints');

    my $metrics = $pool->get_metrics();
    ok($metrics, 'retrieved metrics hash');
    my @ips = keys %$metrics;
    ok(scalar(@ips) > 0, 'metrics contain entries for resolved IPs');
};

subtest 'Round-Robin Subchannel Selection Algorithm' => sub {
    my $pool = Google::gRPC::ChannelPool->new(
        target       => 'spanner.googleapis.com:443',