view release on metacpan or  search on metacpan

t/util.t  view on Meta::CPAN

=head1 DESCRIPTION

This file tests the L<Beam::Runner::Util> utility functions

=cut

use strict;
use warnings;
use Test::More;
use Test::Fatal;
use FindBin qw( $Bin );
use Beam::Runner::Util qw( find_containers );

subtest 'find_containers' => sub {

    subtest 'blank does not warn' => sub {
        local $ENV{BEAM_PATH};
        my @warnings;
        local $SIG{__WARN__} = sub { push @warnings, @_ };
        my %containers = find_containers();
        ok !@warnings, 'missing BEAM_PATH does not warn'
            or diag "Got warnings: \n- " . join "\n- ", @warnings;
    };

    local $ENV{BEAM_PATH} = $Bin . '/share';
    my %containers = find_containers();
    is_deeply \%containers, {
        empty => $Bin . '/share/empty.yml',
        undocumented => $Bin . '/share/undocumented.yml',
        container => $Bin . '/share/container.yml',
    }, 'containers are complete and correct';
};

done_testing;