The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use Test::More;
use Mojolicious::Lite;
use Test::Mojo;
use Test::More;

unless($ENV{OAUTH_FB_KEY} && $ENV{OAUTH_FB_SECRET}) {
    plan skip_all => 'OAUTH_FB_KEY and OAUTH_FB_SECRET must be set for oauth tests';
}

plugin 'OAuth2', facebook => {
    key    => $ENV{OAUTH_FB_KEY},
    secret => $ENV{OAUTH_FB_SECRET}
};

get '/oauth' => sub { 
    my $self=shift;
   $self->get_token('facebook', callback => sub {
        my $token=shift;
        my $me=$self->client->get('https://graph.facebook.com/me?access_token='.$token)->res->json;
        $self->render(text=>'Hello '.$me->{name});
    });
};

my $t=Test::Mojo->new;

$t->get_ok('/oauth')->status_is(302); # ->content_like(qr/bar/);

done_testing;