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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
#!perl
use 5.14.1;
use strict;
use Test::Fatal;
use Test::Spec;
package Foo {
use Moo;
use Carp;
use Ref::Util qw/is_hashref/;
with 'Twitter::API::Role::RequestArgs';
sub request {
my ( $self, $http_method, $url, $args ) = @_;
croak 'too many args' if @_ > 4;
croak 'too few args' if @_ < 4;
croak 'final arg must be HASH' unless is_hashref($args);
return $args;
}
}
describe request_with_pos_args => sub {
my $client;
before each => sub {
$client = Foo->new;
};
it 'croaks without args' => sub{
like exception {
$client->request_with_pos_args([':ID'], 'get', 'path');
}, qr/missing required screen_name or user_id/;
};
it ':ID croaks with both screen_name or user_id' => sub {
exception {
$client->request_with_pos_args([':ID'], GET => 'path', {
screen_name => 'twinsies',
user_id => '666',
});
}, qr/only one of screen_name or user_id allowed/;
},
it 'croaks with too many args' => sub {
like exception {
$client->request_with_pos_args([':ID'], 'GET', 'path', 'who', 'extra');
}, qr/too many args/;
},
it ':ID croaks without user_id or screen_name' => sub {
like exception {
$client->request_with_pos_args([':ID'], GET => 'path', { foo => 'bar' });
}, qr/missing required screen_name or user_id/;
},
it 'croaks without required args' => sub {
like exception {
$client->request_with_pos_args([ qw/foo bar/ ], GET => 'path', {
foo => 'baz',
});
}, qr/missing required 'bar' arg/;
},
it 'croaks with duplicate args' => sub {
like exception {
$client->request_with_pos_args(['foo'], GET => 'path', 'bar', {
foo => 'baz',
});
}, qr/'foo' specified in both positional and named args/;
};
it 'croaks with duplicate :ID' => sub {
like exception {
$client->request_with_pos_args([':ID'], GET => 'path', 'bar', {
screen_name => 'baz',
});
}, qr/'screen_name' specified in both positional and named args/;
};
it ':ID handles user_id' => sub {
my $args = $client->request_with_pos_args([':ID'], GET => 'path', 666, {
foo => 'bar',
});
is_deeply $args, { user_id => 666, foo => 'bar' };
};
it ':ID handles screen_name' => sub {
my $args = $client->request_with_pos_args([':ID'], GET => 'path', 'evil', {
foo => 'bar',
});
is_deeply $args, { screen_name => 'evil', foo => 'bar' };
};
it 'handles pos args in the hash' => sub {
my $args = $client->request_with_pos_args([ qw/foo bar/ ], GET => 'path',
'baz', { bar => 'bop', and => 'more' }
);
is_deeply $args, { foo => 'baz', bar => 'bop', and => 'more' };
};
describe 'request_with_id' => sub {
it 'handles optional :ID when it exists' => sub {
my $args = $client->request_with_id(get => 'path', 'just_me');
is_deeply $args, { screen_name => 'just_me' };
},
it 'handles optional :ID when it does not exist' => sub {
my $args = $client->request_with_id(get => 'path');
is_deeply $args, {};
},
};
};
runtests;
|
