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