view release on metacpan or  search on metacpan

t/feature-ports.t  view on Meta::CPAN

#!perl
use 5.012;
use warnings FATAL => 'all';

use Test::More;

unless (eval {
    require Capture::Tiny;
}) {
    plan(skip_all => 'Capture::Tiny is not installed.');
}
plan('no_plan');
use Capture::Tiny 'capture_merged';
use Symbol qw/ gensym /;

require App::Hack::Exe;

my $he = App::Hack::Exe->new(
    no_delay => 1,
    ports => [ 999, 888 ],
);

my ($errout) = capture_merged {
    # Close prompt immediately
    local *STDIN = gensym();
    $he->run('localhost');
};

like($errout, qr/999,888/,
    'port numbers from constructor should be used'
);

$he = App::Hack::Exe->new(
    no_delay => 1,
    ports => [ qw/ foo bar / ],
);

($errout) = capture_merged {
    # Close prompt immediately
    local *STDIN = gensym();
    $he->run('localhost');
};

like($errout, qr/foo,bar/,
    'port numbers should be arbitrary strings'
);