view release on metacpan or  search on metacpan

t/00-authentication.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More qw(no_plan);
use FindBin;
use lib $FindBin::Bin;
use Net::Evernote;

use Common qw(:DEFAULT $config);

BEGIN { use_ok('Net::Evernote') };

my $evernote = Net::Evernote->new({
    authentication_token  => $$config{'authentication_token'},
    use_sandbox => 1,
});

ok($evernote->authenticated eq 1, 'Successfully authenticated user');