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