view release on metacpan or  search on metacpan

t/chrome.t  view on Meta::CPAN

            },
            {
              "name": "expires",
              "value": "Fri, 13 Apr 2018 21:17:02 GMT"
            }
          ],
          "cookies": [],
          "content": {
            "size": 7325,
            "mimeType": "image/png",
            "text": "iVBORw0KGgoAAAANSUhEUgAAAhAAAABECAYAAADQgAxBAAAcZElEQVR4Ae3dB2wbV57H8RFFSYxsS5StRGed7Uy8K2VtxQ7tOPW8WXrT45xX8G3x4Rqvty28kuB6iEV6ZZqdrWZ67pSia2n2HYjgeuX1nuXVrdgwbXeNLe++D/gLeBg8jIbjGZEi3x/4YDxv3qPLlvnpvZlHz5UrV71TN9xww8+3wRNtj3Mcx...
            "encoding": "base64"
          },
          "redirectURL": "",
          "headersSize": -1,
          "bodySize": 0,
          "_transferSize": 0
        },
        "cache": {},
        "timings": {
          "blocked": 0.191999999969994,

t/fiddler2.t  view on Meta::CPAN

#!perl -T

use Test::More tests => 6;
use Archive::Har();
use JSON();

my $har = Archive::Har->new();

my $fiddler_string = <<'_FIDDLER2_RESULTS_';
{"log":{"creator":{"comment":"http://www.fiddler2.com", "version":"4.6.0.2", "name":"Fiddler"}, "entries":[{"startedDateTime":"2015-09-05T17:11:08.5888671+10:00", "response":{"headersSize":306, "httpVersion":"HTTP/1.1", "content":{"compression":0,...
_FIDDLER2_RESULTS_
ok($har->string($fiddler_string), "Successfully read Fiddler har archive for http://search.cpan.org/recent");
ok($har->version() eq '1.2', "INPUT: Fiddler produces a version 1.2 http archive");
ok($har->creator()->name() eq 'Fiddler', "INPUT: Fiddler's creator name is 'Fiddler'");
ok($har->creator()->version() eq '4.6.0.2', "INPUT: Fiddler's creator version is '4.6.0.2'");
ok($har->creator()->comment() eq 'http://www.fiddler2.com', "INPUT: Fiddler's creator comment is 'http://www.fiddler2.com'");
my $fiddler_ref = $har->hashref();
ok(!exists $fiddler_ref->{log}->{entries}->[0]->{request}->{postData}, "Empty postData entry stripped from Fiddler output");