From: Jonathan Rockway Date: Fri, 18 Jan 2008 07:05:53 +0000 (-0600) Subject: initial import X-Git-Tag: 0.07~11 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Component-ACCEPT_CONTEXT.git;a=commitdiff_plain;h=6166f03d12382556473156bd939721414a11fcb2 initial import --- 6166f03d12382556473156bd939721414a11fcb2 diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..bfd20cf --- /dev/null +++ b/.gitignore @@ -0,0 +1,8 @@ +cover_db +META.yml +Makefile +blib +inc +pm_to_blib +MANIFEST +Makefile.old diff --git a/Changes b/Changes new file mode 100644 index 0000000..e69de29 diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP new file mode 100644 index 0000000..8fb2024 --- /dev/null +++ b/MANIFEST.SKIP @@ -0,0 +1,8 @@ +.git/ +blib +pm_to_blib +MANIFEST.bak +MANIFEST.SKIP~ +cover_db +Makefile$ +Makefile.old$ diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..1a9f714 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,11 @@ +use inc::Module::Install; + +name 'Catalyst-Component-ACCEPT_CONTEXT'; +all_from 'lib/Catalyst/Component/ACCEPT_CONTEXT.pm'; + +build_requires 'Catalyst::Runtime'; +build_requires 'Test::WWW::Mechanize::Catalyst'; +build_requires 'Test::More'; +build_requires 'ok'; + +WriteAll(); diff --git a/README b/README new file mode 100644 index 0000000..e69de29 diff --git a/lib/Catalyst/Component/ACCEPT_CONTEXT.pm b/lib/Catalyst/Component/ACCEPT_CONTEXT.pm new file mode 100644 index 0000000..f1e84c9 --- /dev/null +++ b/lib/Catalyst/Component/ACCEPT_CONTEXT.pm @@ -0,0 +1,11 @@ +package Catalyst::Component::ACCEPT_CONTEXT; +use strict; +use warnings; + +=head1 NAME + +Catalyst::Component::ACCEPT_CONTEXT - + +=cut + +1; diff --git a/t/00-load.t b/t/00-load.t new file mode 100644 index 0000000..f58f9d5 --- /dev/null +++ b/t/00-load.t @@ -0,0 +1,6 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use Test::More tests => 1; +use ok 'Catalyst::Component::ACCEPT_CONTEXT'; diff --git a/t/author/pod-coverage.t b/t/author/pod-coverage.t new file mode 100644 index 0000000..703f91d --- /dev/null +++ b/t/author/pod-coverage.t @@ -0,0 +1,6 @@ +#!perl -T + +use Test::More; +eval "use Test::Pod::Coverage 1.04"; +plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; +all_pod_coverage_ok(); diff --git a/t/author/pod.t b/t/author/pod.t new file mode 100644 index 0000000..976d7cd --- /dev/null +++ b/t/author/pod.t @@ -0,0 +1,6 @@ +#!perl -T + +use Test::More; +eval "use Test::Pod 1.14"; +plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; +all_pod_files_ok(); diff --git a/t/lib/Makefile.PL b/t/lib/Makefile.PL new file mode 100644 index 0000000..e69de29 diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm new file mode 100644 index 0000000..b981c45 --- /dev/null +++ b/t/lib/TestApp.pm @@ -0,0 +1,9 @@ +package TestApp; +use strict; +use warnings; + +use Catalyst; + +__PACKAGE__->setup; + +1; diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm new file mode 100644 index 0000000..99b610d --- /dev/null +++ b/t/lib/TestApp/Controller/Root.pm @@ -0,0 +1,12 @@ +package TestApp::Controller::Root; +use strict; +use warnings; + +__PACKAGE__->config(namespace => q{}); + +use base 'Catalyst::Controller'; + +# your actions replace this one +sub main :Path { $_[1]->res->body('

It works

') } + +1; diff --git a/t/lib/script/testapp_server.pl b/t/lib/script/testapp_server.pl new file mode 100644 index 0000000..701d39f --- /dev/null +++ b/t/lib/script/testapp_server.pl @@ -0,0 +1,121 @@ +#!/usr/bin/env perl + +BEGIN { + $ENV{CATALYST_ENGINE} ||= 'HTTP'; + $ENV{CATALYST_SCRIPT_GEN} = 31; + require Catalyst::Engine::HTTP; +} + +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; +use FindBin; +use lib "$FindBin::Bin/.."; + +my $debug = 0; +my $fork = 0; +my $help = 0; +my $host = undef; +my $port = 3000; +my $keepalive = 0; +my $restart = 0; +my $restart_delay = 1; +my $restart_regex = '\.yml$|\.yaml$|\.pm$'; +my $restart_directory = undef; +my $background = 0; +my $pidfile = "/tmp/testapp.pid"; + +my @argv = @ARGV; + +GetOptions( + 'debug|d' => \$debug, + 'fork' => \$fork, + 'help|?' => \$help, + 'host=s' => \$host, + 'port=s' => \$port, + 'keepalive|k' => \$keepalive, + 'restart|r' => \$restart, + 'restartdelay|rd=s' => \$restart_delay, + 'restartregex|rr=s' => \$restart_regex, + 'restartdirectory=s' => \$restart_directory, + 'daemon' => \$background, + 'pidfile=s' => \$pidfile, +); + +pod2usage(1) if $help; + +if ( $restart ) { + $ENV{CATALYST_ENGINE} = 'HTTP::Restarter'; +} +if ( $debug ) { + $ENV{CATALYST_DEBUG} = 1; +} + +# This is require instead of use so that the above environment +# variables can be set at runtime. +require TestApp; + +TestApp->run( $port, $host, { + argv => \@argv, + 'fork' => $fork, + keepalive => $keepalive, + restart => $restart, + restart_delay => $restart_delay, + restart_regex => qr/$restart_regex/, + restart_directory => $restart_directory, + background => $background, + pidfile => $pidfile, +} ); + +1; + +=head1 NAME + +testapp_server.pl - Catalyst Testserver + +=head1 SYNOPSIS + +testapp_server.pl [options] + + Options: + -d -debug force debug mode + -f -fork handle each request in a new process + (defaults to false) + -? -help display this help and exits + -host host (defaults to all) + -p -port port (defaults to 3000) + -k -keepalive enable keep-alive connections + -r -restart restart when files get modified + (defaults to false) + -rd -restartdelay delay between file checks + -rr -restartregex regex match files that trigger + a restart when modified + (defaults to '\.yml$|\.yaml$|\.pm$') + -restartdirectory the directory to search for + modified files + (defaults to '../') + + -daemon background the server + -pidfile=filename store the pid if the server in filename, if + daemonizing + + See also: + perldoc Catalyst::Manual + perldoc Catalyst::Manual::Intro + +=head1 DESCRIPTION + +Run a Catalyst Testserver for this application. + +=head1 AUTHOR + +Sebastian Riedel, C +Maintained by the Catalyst Core Team. + +=head1 COPYRIGHT + +This library is free software, you can redistribute it and/or modify +it under the same terms as Perl itself. + +=cut diff --git a/t/lib/script/testapp_test.pl b/t/lib/script/testapp_test.pl new file mode 100644 index 0000000..1cc8d04 --- /dev/null +++ b/t/lib/script/testapp_test.pl @@ -0,0 +1,12 @@ +#!/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; diff --git a/t/live-test.t b/t/live-test.t new file mode 100644 index 0000000..88a3380 --- /dev/null +++ b/t/live-test.t @@ -0,0 +1,19 @@ +#!/usr/bin/env perl + +use strict; +use warnings; +use Test::More tests => 3; + +# 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'); +