view release on metacpan or  search on metacpan

t/TestWSP.pm  view on Meta::CPAN

use strict;
use warnings;

use Test::Mojo;
use t::SampleRPC;
use Net::EmptyPort qw/empty_port/;

use Exporter qw(import);
our @EXPORT_OK = qw(test_wsp);

sub test_wsp(&$;@) {
    my ($code, $app_class, $responder_class) = @_;

    my $rpc_port = empty_port;
    my $rpc_url  = "http://127.0.0.1:$rpc_port/rpc/";
    local $ENV{T_TestWSP_RPC_URL} = $rpc_url;

    $responder_class //= "t::SampleRPC";

    my $rpc = Mojo::Server::Daemon->new(
        app    => $responder_class->new,