use strict;
use warnings;

use Test::More tests => 3;                      # last test to print

BEGIN { use_ok( 'WebService::NotifyMyAndroid' ); }

use Data::Dumper;

my $APIKEY = '67f9b6dbd5cc00f245ff677e288f4e3aecc97f49cbf3b2a3';

my $nma = WebService::NotifyMyAndroid->new;

my( $verify ) = $nma->verify( apikey => $APIKEY );

ok( $verify->{success}->{code} == 200, 'API accepts valid key' );

$verify = $nma->verify( apikey => 'abcdefabcdefabcdefabcdefabcdefabcdefabcdefabcdef' );

ok( $verify->{error}->{code} == 401, 'API rejects valid but nonexistent key' );