c7e0437c70
gitpan-cpan-distribution: CatalystX-REPL gitpan-cpan-version: 0.01 gitpan-cpan-path: FLORA/CatalystX-REPL-0.01.tar.gz gitpan-cpan-author: FLORA gitpan-cpan-maturity: released
17 lines
344 B
Perl
17 lines
344 B
Perl
use strict;
|
|
use warnings;
|
|
use Test::More tests => 5;
|
|
use Test::Expect;
|
|
|
|
expect_run(
|
|
command => "${^X} t/request.pl /foo/bar",
|
|
prompt => '$ ',
|
|
quit => 'exit'
|
|
);
|
|
|
|
expect_send('1 + 1');
|
|
expect_like(qr/\b2\b/, 'in the REPL');
|
|
|
|
expect_send(':t');
|
|
expect_like(qr/\bTestApp::Controller::Foo::bar\b/, 'exception in controller action');
|