Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

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;