use Test::More 0.88;
use lib 't/lib';
-use MyApp1;
+use Catalyst::Test 'MyApp1';
+use HTTP::Request::Common qw( GET PUT POST DELETE );
-my $app = MyApp1->new();
+get('/foo');
-ok( $app, 'instantiated MyApp1' );
+is(
+ $MyApp1::Controller::C1::REQ{get}, 1,
+ 'GET request for /foo went to the right sub'
+);
-my $action = $app->dispatcher()->get_action('/foo');
+request(
+ GET '/foo',
+ [
+ Accept => '*/*',
+ ]
+);
-ok( $action, 'got an action for /foo' );
+is(
+ $MyApp1::Controller::C1::REQ{get_html}, 1,
+ 'GET request for /foo that looks like a browser went to the right sub'
+);
+request( POST '/foo' );
+
+is(
+ $MyApp1::Controller::C1::REQ{post}, 1,
+ 'POST request for /foo went to the right sub'
+);
+
+request( PUT '/foo' );
+
+is(
+ $MyApp1::Controller::C1::REQ{put}, 1,
+ 'PUT request for /foo went to the right sub'
+);
+
+request( DELETE '/foo' );
+
+is(
+ $MyApp1::Controller::C1::REQ{delete}, 1,
+ 'DELETE request for /foo went to the right sub'
+);
+
+get('/normal');
+
+is(
+ $MyApp1::Controller::C1::REQ{normal}, 1,
+ 'GET request for /norma went to the right sub'
+);
+
+request( POST '/normal' );
+
+is(
+ $MyApp1::Controller::C1::REQ{normal}, 2,
+ 'POST request for /norma went to the right sub'
+);
done_testing();