t/live-test.t

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 1;
   6
   7 # setup library path
   8 use FindBin qw($Bin);
   9 use lib "$Bin/lib";
  10
  11 use TestApp;
  12
  13 # a live test against TestApp, the test application
  14 use Catalyst::Test 'TestApp';
  15
  16 my ($res, $c) = ctx_request('/');
  17 is($c->res->body, 'http://localhost/');
  18