view release on metacpan or  search on metacpan

t/hosts_from_map.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Warnings;
use Data::Dumper qw/Dumper/;

use App::MultiSsh qw/hosts_from_map/;

for my $data (good_data()) {
    is_deeply [hosts_from_map([$data->[0]])], $data->[1], "$data->[0] expands correctly"
        or diag Dumper [hosts_from_map([$data->[0]])], $data->[1];
}

done_testing();

sub good_data {
    return (
        # no change
        [ 'eg.com',           [qw/eg.com                                  /] ],
        # from doc examples