Result:
found more than 590 distributions - search limited to the first 2001 files matching your query
( run in 1.504 )
Catalyst-Plugin-CSRFToken
view release on metacpan or search on metacpan
}
},
"test" : {
"requires" : {
"Catalyst::Test" : "0",
"HTTP::Request::Common" : "0",
"Test::Most" : "0"
}
}
},
"release_status" : "stable",
Catalyst-Plugin-Cache-HTTP-Preempt
view release on metacpan or search on metacpan
Catalyst::Runtime: 0
DateTime::Format::HTTP: 0
Digest::MD5: 0
ExtUtils::MakeMaker: 6.59
FindBin: 0
HTTP::Request::Common: 0
Test::More: 0.88
Test::WWW::Mechanize::Catalyst: 0
URI: 0
ok: 0
configure_requires:
Catalyst-Plugin-CheckFileUploadTypes
view release on metacpan or search on metacpan
Catalyst::Controller: '0'
Catalyst::Plugin::ConfigLoader: '0'
Catalyst::Runtime: '5.80'
Catalyst::Test: '0'
FindBin: '0'
HTTP::Request::Common: '0'
HTTP::Status: '0'
Test::More: '0'
lib: '0'
strict: '0'
warnings: '0'
Catalyst-Plugin-ClamAV
view release on metacpan or search on metacpan
t/01-clamscan.t view on Meta::CPAN
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::More;
use Catalyst::Test 'TestApp';
use HTTP::Request::Common;
use Data::Dumper;
plan tests => 6;
my $no_scan;
Catalyst-Plugin-Compress
view release on metacpan or search on metacpan
abstract: 'Compress response'
author:
- 'Yiyi Hu C<yiyihu@gmail.com>'
build_requires:
ExtUtils::MakeMaker: 6.36
HTTP::Request::Common: 0
configure_requires:
ExtUtils::MakeMaker: 6.36
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.14'
Catalyst-Plugin-DefaultEnd
view release on metacpan or search on metacpan
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
# test first available view
{
my $expected = 'View';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/test_firstview' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->header( 'Content-Type' ), 'text/html; charset=utf-8', 'Content Type' );
is( $response->code, 200, 'Response Code' );
# test view
{
my $expected = 'View';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/test_view' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->header( 'Content-Type' ), 'text/html; charset=utf-8', 'Content Type' );
is( $response->code, 200, 'Response Code' );
# test skip view
{
my $expected = 'Skipped View';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/test_skipview' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->header( 'Content-Type' ), 'text/html; charset=utf-8', 'Content Type' );
is( $response->code, 200, 'Response Code' );
Catalyst-Plugin-DetachIfNotModified
view release on metacpan or search on metacpan
"Catalyst" : "5.90018",
"Catalyst::Controller" : "0",
"Catalyst::Test" : "0",
"File::Spec" : "0",
"HTTP::Date" : "0",
"HTTP::Request::Common" : "0",
"Module::Metadata" : "0",
"Moose" : "0",
"Plack::Middleware::MethodOverride" : "0",
"Term::Size::Any" : "0",
"Test::Log::Dispatch" : "0",
Catalyst-Plugin-EnableMiddleware
view release on metacpan or search on metacpan
- 'John Napiorkowski <jjnapiork@cpan.org>'
build_requires:
Catalyst: 0
Catalyst::Test: 0
FindBin: 0
HTTP::Request::Common: 0
Plack::App::File: 0
Plack::Middleware::Static: 0
Test::Most: 0.25
configure_requires:
ExtUtils::MakeMaker: 6.30
Catalyst-Plugin-ErrorCatcher
view release on metacpan or search on metacpan
File::Find::Rule: '0'
File::Path: '0'
File::Slurp: '0'
File::Spec::Functions: '0'
FindBin::libs: '0'
HTTP::Request::Common: '0'
IO::File: '0'
MIME::Lite: '0'
MRO::Compat: '0'
Path::Class: '0'
Sys::Hostname: '0'
Catalyst-Plugin-FormValidator-Simple-Auto
view release on metacpan or search on metacpan
t/02_basic.t view on Meta::CPAN
use lib "$Bin/lib";
use Catalyst::Test 'TestApp02';
use Test::More tests => 14;
use HTTP::Request::Common;
# action driven validation
ok( my $res = request('/action1'), 'request ok' );
is( $res->content, 'NOT_BLANK', 'is NOT_BLANK error');
Catalyst-Plugin-FormValidator
view release on metacpan or search on metacpan
t/04basic.t view on Meta::CPAN
#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use HTTP::Request::Common;
use FindBin;
use lib "$FindBin::Bin/TestPDV/lib";
use HTTP::Request::Common;
BEGIN { use_ok 'Catalyst::Test', 'TestPDV' }
my $response = request GET "/form_test";
ok( $response->is_success, "got initial url" );
Catalyst-Plugin-HTML-Scrubber
view release on metacpan or search on metacpan
Catalyst: '0'
Catalyst::Controller: '0'
Catalyst::Controller::REST: '0'
Catalyst::Test: '0'
FindBin: '0'
HTTP::Request::Common: '0'
HTTP::Status: '0'
Test::More: '0'
lib: '0'
strict: '0'
configure_requires:
Catalyst-Plugin-HTML-Widget
view release on metacpan or search on metacpan
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
sub run_tests {
# test nameless
{
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/nameless' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
}
# test named
{
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/named' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
}
# test nameless_result
{
my $request =
HTTP::Request->new(
GET => 'http://localhost:3000/nameless_result?foo=bar' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
}
# test nameless_noresult
{
my $request =
HTTP::Request->new(
GET => 'http://localhost:3000/nameless_noresult' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
}
# test nameless_res_nores
{
my $request =
HTTP::Request->new(
GET => 'http://localhost:3000/nameless_res_nores' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
Catalyst-Plugin-HashedCookies
view release on metacpan or search on metacpan
"Catalyst" : "0",
"Catalyst::Controller" : "0",
"Data::Dumper" : "0",
"File::Spec::Functions" : "0",
"HTTP::Headers::Util" : "0",
"HTTP::Request::Common" : "0",
"Scalar::Util" : "0",
"Test::More" : "0"
}
}
},
Catalyst-Plugin-I18N-PathPrefix
view release on metacpan or search on metacpan
t/lib/TestUtils.pm view on Meta::CPAN
use strict;
use warnings;
use base qw/ Exporter /;
use HTTP::Request::Common;
use Catalyst::Test 'TestApp';
use Data::Dumper;
use Test::Most;
use Test::Deep;
Catalyst-Plugin-I18N-PathPrefixGeoIP
view release on metacpan or search on metacpan
t/lib/TestUtils.pm view on Meta::CPAN
use strict;
use warnings;
use base qw/ Exporter /;
use HTTP::Request::Common;
use Catalyst::Test 'TestApp';
use Data::Dumper;
use Test::Most;
use Test::Deep;
Catalyst-Plugin-I18N-Request
view release on metacpan or search on metacpan
t/02-live.t view on Meta::CPAN
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
t/02-live.t view on Meta::CPAN
# test maketext
{
my $expected = 'search';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/maketext/PATH_delocalize_recherche' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/02-live.t view on Meta::CPAN
# test delocalized parameter name
{
my $expected = 'search';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_parameter_name?recherche=foo' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/02-live.t view on Meta::CPAN
# test delocalized path name
{
my $expected = 'current_request_path/search';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_request_path/recherche' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/02-live.t view on Meta::CPAN
# test localized uri_for
{
my $expected = 'http://localhost:3000/recherche?recherche=search';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/localized_uri_for/search/search' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
t/02-live.t view on Meta::CPAN
# test localized uri_with
{
my $expected = 'http://localhost:3000/localized_uri_with/recherche?recherche=search';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/localized_uri_with/search' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
Catalyst-Plugin-I18N
view release on metacpan or search on metacpan
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
# test Lexicon
{
my $expected = 'Bonjour';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# test .po
{
my $expected = 'Hallo';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );
$request->header( 'Accept-Language' => 'de' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# test language()
{
my $expected = 'fr';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
$request->header( 'Accept-Language' => 'fr' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# test language()/language_tag()
{
my $expected = 'en_us';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
$request->header( 'Accept-Language' => 'en-us' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->content, $expected, 'Content OK' );
}
{
my $expected = 'en-us';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_language_tag' );
$request->header( 'Accept-Language' => 'en-us' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# test fallback (i.e. fr-ca => fr)
{
my $expected = 'fr';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
$request->header( 'Accept-Language' => 'fr-ca' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# Test languages_list
{
my $expected = "de=German, en_us=US English, fr=French";
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/current_languages_list' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
# test fallback to i_default
{
my $expected = 'Hello - default';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/maketext/messages.hello' );
$request->header( 'Accept-Language' => 'fr-ca' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# test AUTO in i_default
{
my $expected = 'no.key';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/maketext/no.key' );
$request->header( 'Accept-Language' => 'fr-ca' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
Catalyst-Plugin-InjectionHelpers
view release on metacpan or search on metacpan
"test" : {
"requires" : {
"Catalyst::Plugin::Session" : "0.40",
"Catalyst::Plugin::Session::State::Cookie" : "0.17",
"Catalyst::Test" : "0",
"HTTP::Request::Common" : "0",
"Scalar::Util" : "0",
"Test::Most" : "0"
}
}
},
Catalyst-Plugin-JSONRPC
view release on metacpan or search on metacpan
t/01_server.t view on Meta::CPAN
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
t/01_server.t view on Meta::CPAN
sub run_tests {
# test echo
{
my $content = JSON::objToJson({ method => 'echo', params => [ 'hello' ], id => 1 });
my $request = HTTP::Request->new( POST => $entrypoint );
$request->header( 'Content-Length' => length($content) );
$request->header( 'Content-Type' => 'text/javascript+json' );
$request->content($content);
ok( my $response = request($request), 'Request' );
t/01_server.t view on Meta::CPAN
}
# test add
{
my $content = JSON::objToJson({ method => 'add', params => [ 1, 2 ], id => 2 });
my $request = HTTP::Request->new( POST => $entrypoint );
$request->header( 'Content-Length' => length($content) );
$request->header( 'Content-Type' => 'text/xml' );
$request->content($content);
ok( my $response = request($request), 'Request' );
Catalyst-Plugin-Log-Message
view release on metacpan or search on metacpan
t/inc/local_request.pl view on Meta::CPAN
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
use Data::Dumper;
require HTTP::Request::AsCGI;
require Catalyst::Utils;
$request = ref($request) ? $request : Catalyst::Utils::request($request);
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
Catalyst-Plugin-MobileAgent
view release on metacpan or search on metacpan
t/01-request.t view on Meta::CPAN
package main;
use Catalyst::Test 'TestApp';
use HTTP::Headers;
use HTTP::Request::Common;
my @Tests = (
{
class => 'HTTP::MobileAgent::DoCoMo',
user_agent => 'DoCoMo/2.0 N2001(c10;ser0123456789abcde;icc01234567890123456789)',
Catalyst-Plugin-OIDC
view release on metacpan or search on metacpan
"Catalyst::Test" : "0",
"Catalyst::View::JSON" : "0",
"Config::General" : "0",
"File::Spec" : "0",
"HTTP::Cookies" : "0",
"HTTP::Request::Common" : "0",
"IO::Handle" : "0",
"IPC::Open3" : "0",
"Mojolicious" : "8.24",
"Test::MockModule" : "v0.177.0",
"Test::More" : "0"
Catalyst-Plugin-OpenIDConnect
view release on metacpan or search on metacpan
CHANGELOG.md view on Meta::CPAN
- Perl 5.20 or higher
- Catalyst 5.90100 or higher
- Moose and related modules
- Crypt::OpenSSL modules
- JSON::MaybeXS
- HTTP::Request and LWP stack
### Testing
All modules have unit test coverage. Run tests with:
Catalyst-Plugin-OrderedParams
view release on metacpan or search on metacpan
t/04params.t view on Meta::CPAN
use FindBin;
use lib "$FindBin::Bin/lib";
use Test::More tests => 7;
use Catalyst::Test 'TestApp';
use HTTP::Request::Common;
use Tie::Hash::Indexed;
my $creq;
my %params;
Catalyst-Plugin-PageCache
view release on metacpan or search on metacpan
sub run_tests {
# cache a page localized for a language
{
my $expected = 'hello 1';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/count' );
$request->header( 'Accept-Language' => 'en' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# request the same page with same language
{
my $expected = 'hello 1';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/count' );
$request->header( 'Accept-Language' => 'en' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# request same page, different language.
{
my $expected = 'hola 2';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/count' );
$request->header( 'Accept-Language' => 'es' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# request the same page with same language different from first...
{
my $expected = 'hola 2';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/count' );
$request->header( 'Accept-Language' => 'es' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
}
# clearing the cached page should affect *both* languages
{
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/clear_cache' );
ok( my $response = request($request), 'request ok' );
}
# the previous request to clear_cache also incremented the counter so we skip that one.
# first ask for a fresh copy for 'en'
{
my $expected = 'hello 4';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/count' );
$request->header( 'Accept-Language' => 'en' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
# next ask for a fresh copy for 'es'
{
my $expected = 'hola 5';
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/cache/count' );
$request->header( 'Accept-Language' => 'es' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
Catalyst-Plugin-Params-Profile
view release on metacpan or search on metacpan
t/inc/local_request.pl view on Meta::CPAN
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
use Data::Dumper;
require HTTP::Request::AsCGI;
require Catalyst::Utils;
$request = ref($request) ? $request : Catalyst::Utils::request($request);
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
Catalyst-Plugin-Pluggable
view release on metacpan or search on metacpan
no warnings 'redefine';
*Catalyst::Test::local_request = sub {
my ( $class, $request ) = @_;
require HTTP::Request::AsCGI;
my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
$class->handle_request;
return $cgi->restore->response;
};
# test normal execution
{
my $expected = "A\nB\nC\n";
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/runtest' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
# test normal execution w/ args
{
my $expected = "AX\nBX\nCX\n";
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/runtest_args' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
# test reverse execution
{
my $expected = "C\nB\nA\n";
my $request =
HTTP::Request->new( GET => 'http://localhost:3000/runtest_reverse' );
ok( my $response = request($request), 'Request' );
ok( $response->is_success, 'Response Successful 2xx' );
is( $response->code, 200, 'Response Code' );
Catalyst-Plugin-PrometheusTiny
view release on metacpan or search on metacpan
t/lib/TestApp/Helper.pm view on Meta::CPAN
use strict;
use Test::More;
use Test::Deep;
use HTTP::Request::Common;
use Plack::Test;
use TestApp;
sub get_metrics {
my ( $test, $endpoint ) = @_;
Catalyst-Plugin-RedirectTo
view release on metacpan or search on metacpan
---
abstract: 'Easily set a Catalyst redirect response to an action object or private path'
author:
- 'John Napiorkowski <jjnapiork@cpan.org>'
build_requires:
HTTP::Request::Common: '0'
Test::Most: '0'
configure_requires:
ExtUtils::MakeMaker: '0'
dynamic_config: 0
generated_by: 'Dist::Zilla version 6.025, CPAN::Meta::Converter version 2.150010'
( run in 1.504 second using v1.01-cache-2.11-cpan-acf6aa7dc9e )