Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more
1234567891011121314 use Test2::V0;use WebService::Readwise;die 'You need to set WEBSERVICE_READWISE_TOKEN' unless $ENV{WEBSERVICE_READWISE_TOKEN};my $sr = WebService::Readwise->new;my $result = $sr->auth;is $result, 204, 'Basic check of token gives a 204';done_testing;
use
Test2::V0;
WebService::Readwise;
die
'You need to set WEBSERVICE_READWISE_TOKEN'
unless
$ENV
{WEBSERVICE_READWISE_TOKEN};
my
$sr
= WebService::Readwise->new;
$result
=
->auth;
is
, 204,
'Basic check of token gives a 204'
;
done_testing;