view release on metacpan or  search on metacpan

t/QServer.pm  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::TCP;
use File::Which qw(which);
use FindBin qw/$Bin/;

use base qw(Exporter);
our @EXPORT = qw(test_qserver);

sub test_qserver(&;$) {
    my $cb        = shift;
    my $args      = shift;

    my $q = which 'q';
    unless ($q && -e $q && -x _) {
        plan skip_all => 'q not found in your PATH';
        return;
    }

    test_tcp