use warnings;
use FindBin;
-use lib "$FindBin::Bin/lib";
+use lib "$FindBin::Bin/../lib";
our $iters;
BEGIN { $iters = $ENV{CAT_BENCH_ITERS} || 1; }
-use Test::More tests => 50 * $iters;
+use Test::More tests => 54 * $iters;
+use Catalyst;
use Catalyst::Test 'TestApp';
if ( $ENV{CAT_BENCHMARK} ) {
sub run_tests {
{
+ # Test go to global private action
+ ok( my $response = request('http://localhost/action/go/global'),
+ 'Request' );
+ ok( $response->is_success, 'Response Successful 2xx' );
+ is( $response->content_type, 'text/plain', 'Response Content-Type' );
+ is( $response->header('X-Catalyst-Action'),
+ 'action/go/global', 'Main Class Action' );
+ }
+
+ {
my @expected = qw[
TestApp::Controller::Action::Go->one
TestApp::Controller::Action::Go->two
@expected = map { /Action/ ? (_begin($_), $_) : ($_) } @expected;
my $expected = join( ", ", @expected );
- # Test go to global private action
- ok( my $response = request('http://localhost/action/go/global'),
- 'Request' );
- ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->content_type, 'text/plain', 'Response Content-Type' );
- is( $response->header('X-Catalyst-Action'),
- 'action/go/global', 'Main Class Action' );
-
# Test go to chain of actions.
- ok( $response = request('http://localhost/action/go/one'),
+ ok( my $response = request('http://localhost/action/go/one'),
'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->content_type, 'text/plain', 'Response Content-Type' );
$expected, 'Executed actions' );
is( $response->content, $Catalyst::GO, "Go died as expected" );
}
-
+ {
+ ok(
+ my $response = request('http://localhost/action/go/model'),
+ 'Request with args'
+ );
+ is( $response->content,
+ q[FATAL ERROR: Couldn't go("Model::Foo"): Action cannot _DISPATCH. Did you try to go() a non-controller action?],
+ q[go('Model::...') test]
+ );
+ }
+ {
+ ok(
+ my $response = request('http://localhost/action/go/view'),
+ 'Request with args'
+ );
+ is( $response->content,
+ q[FATAL ERROR: Couldn't go("View::Dump"): Action cannot _DISPATCH. Did you try to go() a non-controller action?],
+ q[go('View::...') test]
+ );
+ }
{
ok(
my $response =
'Request with args'
);
ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->content, 'old' );
+ is( $response->content, 'old', 'go() with args (old)' );
}
{
'Request with args and method'
);
ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->content, 'new' );
+ is( $response->content, 'new', 'go() with args (new)' );
}
# test go with embedded args
'Request'
);
ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->content, 'ok' );
+ is( $response->content, 'ok', 'go() with args_embed_relative' );
}
{
'Request'
);
ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->content, 'ok' );
+ is( $response->content, 'ok', 'go() with args_embed_absolute' );
}
{
my @expected = qw[
);
}
- # test class go
+ # test class go -- MUST FAIL!
{
ok(
my $response = request(
'http://localhost/action/go/class_go_test_action'),
'Request'
);
- ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->header('X-Class-Go-Test-Method'), 1,
- 'Test Method' );
+ ok( !$response->is_success, 'Response Fails' );
+ is( $response->content,
+ q(FATAL ERROR: Couldn't go("TestApp"): Action has no namespace: cannot go() to a plain method or component, must be a :Action or some sort.),
+ 'Error message'
+ );
}
{