view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension API::ParallelsWPB

0.03    Tue Jul 1 08:40:44 2014 +0000

    - fixed utf8 flag in request
    - JSON replaced with JSON::XS
    - If error is not in JSON, it is returned "as is"


0.01    Tue Nov 26 12:22:16 2013
        - first release;

t/03_f_request.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More tests => 5;
use Data::Dumper;
use API::ParallelsWPB;
use API::ParallelsWPB::Response;
use utf8;

my %transfered_params = ();

{
    no warnings 'redefine';

    *API::ParallelsWPB::_send_request = sub {
        my ( $self, $data, $url, $post_data ) = @_;
        %transfered_params = (
            self      => $self,

t/03_f_request.t  view on Meta::CPAN

    like(
        $transfered_params{post_data},
        qr/Василиус Пупкинус/,
        'Unicode char is ok in request'
    );
};


subtest 'Test utf-8' => sub {
    no utf8;
    plan tests => 1;

    $client->f_request(
        [ 'sites', '123' ],
        {
            req_type  => 'put',
            post_data => [
                {
                    ownerInfo => {
                        personalName => 'Василиус Пупкинус'
                    }
                }
            ],
        }
    );

    like(
        $transfered_params{post_data},
        qr/Василиус Пупкинус/,
        'utf8 char is ok in request'
    );
};