use Mojo::Base -strict;
use Mojolicious;
use Test::Mojo;
use Test::More;

{
  use Mojolicious::Lite;
  plugin OAuth2 => {mocked => {key => '42'}};
  get '/test123' => sub {
    my $c = shift;

    my $data = eval { $c->oauth2->get_token('mocked') };
    if (my $e = $@) {
      if ($e =~ /^access_denied/) {
        return $c->render(text => $c->param('error'), status => 500);
      }
      else {
        die $e;
      }
    }
    elsif ($data) {
      return $c->render(text => "Token $data->{access_token}");
    }
    else {
      return;
    }
  };
}

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

$t->get_ok('/test123')->status_is(302);    # ->content_like(qr/bar/);
my $location     = Mojo::URL->new($t->tx->res->headers->location);
my $callback_url = Mojo::URL->new($location->query->param('redirect_uri'));
is($location->query->param('client_id'), '42', 'got client_id');

$t->get_ok($location)->status_is(200)->element_exists('a');
my $res = Mojo::URL->new($t->tx->res->dom->at('a')->{href});
is($res->path,                 $callback_url->path, 'Returns to the right place');
is($res->query->param('code'), 'fake_code',         'Includes fake code');

$t->get_ok($res)->status_is(200)->content_is('Token fake_token');
$t->get_ok('/test123?error=access_denied')->status_is(500)->content_is('access_denied');

done_testing;