view release on metacpan or  search on metacpan

t/801-cli.t  view on Meta::CPAN

    my $out = capture( $app, qw( --listen :31415 ) );
    is $out, '', 'no output';
    is_deeply $trace[0], [qw[ parse_options --listen :31415 ]], 'parse_options';
    # TODO verify that neaf->run and Plack::Runner->run were called, too
};

done_testing;

sub capture {
    my $app = shift;
    local @ARGV = @_;

    my $out = '';
    local *STDOUT;
    open (STDOUT, ">", \$out) or die "Failed to redirect STDOUT";

    $app->run;
    return $out;
};