BusyBird

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "BusyBird::DateTime::Format" : "0.04",
            "DBD::SQLite" : "0",
            "DBI" : "0",
            "DateTime" : "0",
            "DateTime::Duration" : "0",
            "Encode" : "0",
            "File::Temp" : "0.19",
            "FindBin" : "0",
            "HTML::TreeBuilder" : "5",
            "HTML::TreeBuilder::XPath" : "0.12",
            "HTTP::Request" : "6.00",
            "JSON" : "0",
            "Plack::Test" : "0",
            "Storable" : "0",
            "Test::Builder" : "0",
            "Test::Fatal" : "0",
            "Test::Memory::Cycle" : "1.04",
            "Test::MockObject" : "1.09",
            "Test::MockObject::Extends" : "0",
            "Test::More" : "0.98",
            "Test::Warn" : "0.24"

META.yml  view on Meta::CPAN

  BusyBird::DateTime::Format: '0.04'
  DBD::SQLite: '0'
  DBI: '0'
  DateTime: '0'
  DateTime::Duration: '0'
  Encode: '0'
  File::Temp: '0.19'
  FindBin: '0'
  HTML::TreeBuilder: '5'
  HTML::TreeBuilder::XPath: '0.12'
  HTTP::Request: '6.00'
  JSON: '0'
  Plack::Test: '0'
  Storable: '0'
  Test::Builder: '0'
  Test::Fatal: '0'
  Test::Memory::Cycle: '1.04'
  Test::MockObject: '1.09'
  Test::MockObject::Extends: '0'
  Test::More: '0.98'
  Test::Warn: '0.24'

cpanfile  view on Meta::CPAN

    requires 'Test::Fatal';
    requires 'Test::Memory::Cycle'=> '1.04';
    requires 'Test::MockObject'=> '1.09';
    requires 'Test::MockObject::Extends' => 0;
    requires 'Test::Warn'=> '0.24';
    requires 'DateTime' => 0;
    requires 'DateTime::Duration' => 0;
    requires 'BusyBird::DateTime::Format' => "0.04";
    requires 'FindBin'=> '0';
    requires 'File::Temp' => '0.19';
    requires 'HTTP::Request'=> '6.00';
    requires 'Plack::Test'=> '0';
    requires 'HTML::TreeBuilder'=> '5';
    requires 'HTML::TreeBuilder::XPath'=> '0.12';
    requires 'JSON'=> '0';
    requires 'DBI' => 0;
    requires 'DBD::SQLite' => 0;
    requires 'Encode' => 0;
    requires 'Storable';
};

t/testlib/HTTP.pm  view on Meta::CPAN

package testlib::HTTP;
use strict;
use warnings;
use BusyBird::Util 'set_param';
use HTTP::Request;
use Test::More;
use Test::Builder;
use JSON qw(from_json);
use HTML::TreeBuilder 5 -weak;
use HTML::TreeBuilder::XPath;


sub new {
    my ($class, %params) = @_;
    my $self = bless {}, $class;

t/testlib/HTTP.pm  view on Meta::CPAN

sub request_json_ok {
    my $self = shift;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    return from_json($self->request_ok(@_));
}

sub request_ok {
    my ($self, $method, $request_url, $content, $res_code_like, $msg) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    my $res = $self->{requester}->(HTTP::Request->new($method, $request_url, undef, $content));
    if(defined $res_code_like) {
        like($res->code, $res_code_like, $msg);
    }
    return $res->decoded_content(raise_error => 1);
}

sub request_htmltree_ok {
    my ($self, $method, $request_url, $content, $res_code_like, $msg) = @_;
    local $Test::Builder::Level = $Test::Builder::Level + 1;
    my $res = $self->request_ok($method, $request_url, $content, $res_code_like, $msg);