/
01_basic.t
64 lines (59 loc) · 1.78 KB
/
01_basic.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
use strict;
use warnings;
use Test::More;
use Facebook::OpenGraph::Response;
subtest 'initialize' => sub {
my $res = Facebook::OpenGraph::Response->new;
isa_ok($res, 'Facebook::OpenGraph::Response');
isa_ok($res->json, 'JSON');
};
subtest 'accessor' => sub {
my $headers = [
'etag',
'"a376a57cb3a4bd3a3c6a53fca06b0fd5badee50b"',
'content-type',
'text/javascript; charset=UTF-8',
'pragma',
'no-cache',
'access-control-allow-origin',
'*',
'x-fb-rev',
'1220390',
'cache-control',
'private, no-cache, no-store, must-revalidate',
'expires',
'Sat, 01 Jan 2000 00:00:00 GMT',
'x-fb-debug',
'oyi19Zu1f4q0fcjowQrrmu8Lby+AgrNcmfLfpMBWcuQ=',
'date',
'Thu, 24 Apr 2014 13:15:31 GMT',
'connection',
'keep-alive',
'content-length',
'185'
];
my $req_headers = qq{GET /go.hagiwara HTTP/1.1\n}
. qq{Connection: keep-alive\n}
. qq{User-Agent: Facebook::OpenGraph/1.13\n}
. qq{Content-Length: 0\n}
. qq{Host: graph.facebook.com\n}
. qq{\n};
my $content = '{"id":"12345"}';
my $res = Facebook::OpenGraph::Response->new(+{
code => 200,
message => 'OK',
headers => $headers,
req_headers => $req_headers,
req_content => '',
content => $content,
});
is($res->code, 200);
is($res->message, 'OK');
is($res->req_headers, $req_headers);
is($res->req_content, '');
is($res->content, $content);
is($res->etag, '"a376a57cb3a4bd3a3c6a53fca06b0fd5badee50b"');
isa_ok($res->json, 'JSON');
is_deeply($res->headers, $headers);
};
done_testing;