Catalyst-Plugin-SmartURI

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "test" : {
         "requires" : {
            "Catalyst" : "0",
            "Catalyst::Action::REST" : "0",
            "Catalyst::Controller" : "0",
            "Catalyst::Test" : "0",
            "File::Spec" : "0",
            "FindBin" : "0",
            "HTTP::Request" : "0",
            "IO::Handle" : "0",
            "IPC::Open3" : "0",
            "Test::More" : "0",
            "Test::Warnings" : "0",
            "Time::HiRes" : "0",
            "Time::Out" : "0",
            "URI::SmartURI" : "0",
            "blib" : "1.01",
            "lib" : "0",
            "parent" : "0",

META.yml  view on Meta::CPAN

abstract: 'Configurable URIs for Catalyst'
author:
  - 'Rafael Kitover <rkitover@cpan.org>'
build_requires:
  Catalyst: '0'
  Catalyst::Action::REST: '0'
  Catalyst::Controller: '0'
  Catalyst::Test: '0'
  File::Spec: '0'
  FindBin: '0'
  HTTP::Request: '0'
  IO::Handle: '0'
  IPC::Open3: '0'
  Test::More: '0'
  Test::Warnings: '0'
  Time::HiRes: '0'
  Time::Out: '0'
  URI::SmartURI: '0'
  blib: '1.01'
  lib: '0'
  parent: '0'

Makefile.PL  view on Meta::CPAN

    "mro" => 0,
    "namespace::clean" => 0
  },
  "TEST_REQUIRES" => {
    "Catalyst" => 0,
    "Catalyst::Action::REST" => 0,
    "Catalyst::Controller" => 0,
    "Catalyst::Test" => 0,
    "File::Spec" => 0,
    "FindBin" => 0,
    "HTTP::Request" => 0,
    "IO::Handle" => 0,
    "IPC::Open3" => 0,
    "Test::More" => 0,
    "Test::Warnings" => 0,
    "Time::HiRes" => 0,
    "Time::Out" => 0,
    "URI::SmartURI" => 0,
    "blib" => "1.01",
    "lib" => 0,
    "parent" => 0,

Makefile.PL  view on Meta::CPAN

  "Catalyst" => 0,
  "Catalyst::Action::REST" => 0,
  "Catalyst::Controller" => 0,
  "Catalyst::Exception" => 0,
  "Catalyst::Request" => 0,
  "Catalyst::Test" => 0,
  "Class::C3::Componentised" => 0,
  "Class::Load" => 0,
  "File::Spec" => 0,
  "FindBin" => 0,
  "HTTP::Request" => 0,
  "IO::Handle" => 0,
  "IPC::Open3" => 0,
  "Moose" => 0,
  "Scalar::Util" => 0,
  "Test::More" => 0,
  "Test::Warnings" => 0,
  "Time::HiRes" => 0,
  "Time::Out" => 0,
  "URI::SmartURI" => 0,
  "blib" => "1.01",

t/01-basic.t  view on Meta::CPAN

#!perl

use strict;
use warnings;
use Test::More;
use FindBin '$Bin';
use lib "$Bin/lib";
use Catalyst::Test 'TestApp';
use HTTP::Request;

is(request('/test_uri_for_redirect')->header('location'),
    '/test_uri_for_redirect', 'redirect location');

is(get('/per_request'), 'dummy', 'per-request disposition');

is(get('/test_req_uri_with'),
    '/test_req_uri_with?the_word_that_must_be_heard=mtfnpy',
    '$c->req->uri_with test, and disposition reset');

is(get('/test_uri_object'), '/test_uri_object',
    'URI objects are functional');

my $req = HTTP::Request->new(GET => '/host_header');
$req->header(Host => 'www.dongs.com');
is(request($req)->content, 'http://www.dongs.com/dummy',
    'host-header disposition');

$req = HTTP::Request->new(GET => '/host_header_with_port');
$req->header(Host => 'www.hlagh.com:8080');
is(request($req)->content, 'http://www.hlagh.com:8080/dummy',
    'host-header disposition with port');

my %try_referers = (
    foo     => 'foo',
    blank   => '',
    'undef' => undef
);

while (my ($referer_val_name, $referer_val) = each %try_referers) {
    $req = HTTP::Request->new(GET => '/say_referer');
    $req->header(Referer => $referer_val);

    my $content = request($req)->content;

    is($content, $referer_val_name,
        "Referer: $referer_val_name gives \$c->req->referer of '$content'");
}

is(get('/req_uri_class'), 'MyURI::http http://localhost/req_uri_class',
    'overridden $c->req->uri');

$req = HTTP::Request->new(GET => '/req_referer_class');
$req->header(Referer => 'dummy');
like(get($req), qr/^MyURI::/,
    'overridden $c->req->referer');

done_testing;

# vim: expandtab shiftwidth=4: