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 'sounds', {
23	token   => $token,
24},{
25	headers => ignore,
26	path    => '/1/sounds.json',
27	data    => {
28		token   => $token,
29	},
30}, "passing tokens to sounds() overrides the built-ins";
31
32pushover_ok 'sounds', {},{
33	headers => ignore,
34	path    => '/1/sounds.json',
35	data    => {
36		token   => $API_TOKEN,
37	},
38}, "passing no token/user to sounds() uses built-ins";
39
40done_testing;
41