view release on metacpan or  search on metacpan

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

#

use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

use JSON;
use Cwd 'abs_path';
use Akamai::Edgegrid;
use HTTP::Request;
use HTTP::Headers;
use URI;
use Data::Dumper;

sub load_testdata {
    my $json_input;
    {
        local ($/, *FH);
        open FH, abs_path($0 .'/../testdata.json') or die "can't open testdata.json";
        $json_input = <FH>;

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

    my $headers = new HTTP::Headers;
    if (exists $testcase->{request}->{headers}) {
        for my $h (@{$testcase->{request}->{headers}}) {
            while (my ($k,$v) = each %$h) {
                $headers->header($k => $v);
            }
        }
    }

    my $request = new HTTP::Request(
        $testcase->{request}->{method},
        $uri,
        $headers,
        $testcase->{request}->{data}
    );

    my $auth_header = eval {
        return $ua->_make_auth_header(
            $request, $testdata->{timestamp}, $testdata->{nonce}
        );