3 use Catalyst qw[-Engine=Test];
8 $c->res->output( $c->req->hostname );
11 my ( $self, $c ) = @_;
12 $c->res->output( $c->req->address );
18 use Test::More tests => 2;
19 use Catalyst::Test 'TestApp';
21 ok( get('/hostname') eq 'localhost' );
22 ok( get('/address') eq '127.0.0.1' );