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
|
#!perl
use warnings;
use strict;
use Try::Tiny;
use Test::More;
use Net::Twitter;
eval "use LWP::UserAgent 5.819";
plan skip_all => 'LWP::UserAgent >= 5.819 required' if $@;
plan tests => 2;
my $req;
my $ua = LWP::UserAgent->new;
$ua->add_handler(request_send => sub {
$req = shift;
my $res = HTTP::Response->new(200);
$res->content('{"test":"OK"}');
return $res;
});
sub params {
my $uri = URI->new;
$uri->query($req->content);
my %params = $uri->query_form;
return \%params;
}
my $nt = Net::Twitter->new(
traits => [qw/API::REST/],
username => 'fred',
password => 'secret',
ua => $ua,
);
my $r = $nt->update({
status => 'Hello, world!',
lat => 37.78215,
long => -122.40060,
display_coordinates => 1,
});
my $params = params();
is params()->{display_coordinates}, 'true', "1 promoted to true";
$r = $nt->update({
status => 'Hello, world!',
lat => 37.78215,
long => -122.40060,
display_coordinates => 0,
});
$params = params();
is params()->{display_coordinates}, 'false', "0 promoted to false";
|
