+++ /dev/null
-package TestApp;
-use Moose;
-use namespace::autoclean;
-
-use Catalyst;
-
-extends 'Catalyst';
-
-__PACKAGE__->setup;
-
-1;
+++ /dev/null
-package TestApp::Controller::Root;
-use Moose;
-use namespace::autoclean;
-
-BEGIN { extends 'Catalyst::Controller' }
-
-__PACKAGE__->config(namespace => q{});
-
-sub base : Chained('/') PathPart('') CaptureArgs(0) {}
-
-# your actions replace this one
-sub main : Chained('base') PathPart('') Args(0) {
- my ($self, $ctx) = @_;
- $ctx->res->body('<h1>It works</h1>');
-}
-
-__PACKAGE__->meta->make_immutable;
+++ /dev/null
-#!/usr/bin/env perl
-
-BEGIN {
- $ENV{CATALYST_SCRIPT_GEN} = 40;
-}
-
-use Catalyst::ScriptRunner;
-Catalyst::ScriptRunner->run('TestApp', 'Server');
-
-1;
+++ /dev/null
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/..";
-use Catalyst::Test 'TestApp';
-
-print request($ARGV[0])->content . "\n";
-
-1;
+++ /dev/null
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use Test::More;
-
-# setup library path
-use FindBin qw($Bin);
-use lib "$Bin/lib";
-
-# make sure testapp works
-use ok 'TestApp';
-
-# a live test against TestApp, the test application
-use Test::WWW::Mechanize::Catalyst 'TestApp';
-my $mech = Test::WWW::Mechanize::Catalyst->new;
-$mech->get_ok('http://localhost/', 'get main page');
-$mech->content_like(qr/it works/i, 'see if it has our text');
-
-done_testing;