3 use Catalyst qw[-Engine=Test];
5 sub hostname : Global {
7 $c->res->output( $c->req->hostname );
10 my ( $self, $c ) = @_;
11 $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' );