1#!perl -t
2
3use warnings;
4use strict;
5use Test::More;
6use Test::Deep;
7
8use lib "t/lib";
9use Test::MockPushover;
10
11
12use_ok "WebService::Pushover" or BAIL_OUT "WebService::Pushover failed. Cannot continue testing";
13
14my $API_TOKEN  = "abcdefghijklmnopqrstuvwxyz1234";
15my $USER_TOKEN = "1234abcdefghijklmnopqrstuvwxyz";
16
17spin_mock_server(user_token => $USER_TOKEN, api_token => $API_TOKEN);
18
19my $user  = '0123abcdefghijklmnopqrstuvwxyz';
20my $token = 'abcdefghijklmnopqrstuvwxyz0123';
21
22pushover_ok 'user', {
23	token   => $token,
24	user    => $user,
25},{
26	headers => ignore,
27	path    => '/1/users/validate.json',
28	data    => {
29		user    => $user,
30		token   => $token,
31	},
32}, "passing tokens to user() overrides the built-ins";
33
34pushover_ok 'user', {},{
35	headers => ignore,
36	path    => '/1/users/validate.json',
37	data    => {
38		user    => $USER_TOKEN,
39		token   => $API_TOKEN,
40	},
41}, "passing no token/user to user() uses built-ins";
42
43pushover_ok 'user', {
44	device    => 'abcdefghijklmnopqrstuvwxy',
45},{
46	headers => ignore,
47	path    => '/1/users/validate.json',
48	data    => {
49		device    => 'abcdefghijklmnopqrstuvwxy',
50		token     => $API_TOKEN,
51		user      => $USER_TOKEN,
52	},
53}, "user() with all the options gets generated properly";
54
55done_testing;
56