view release on metacpan or  search on metacpan

t/application.t  view on Meta::CPAN

{
    package FBTestApp;
    use Dancer qw{:syntax};
    use Dancer::Plugin::Facebook;
    get '/perl' => sub { fb->fetch ('16665510298')->{name} };
    setup_fb;
    1;
}

route_exists       [GET => '/perl'], "GET /perl endpoint exists";
route_doesnt_exist [GET => '/auth/facebook'], "GET /auth/facebook endpoint does not exist";
route_doesnt_exist [GET => '/auth/facebook/postback'], "GET /auth/facebook/postback endpoint does not exist";

my $response = dancer_response GET => '/perl';
debug "Response is ", $response;
is $response->status, 200, "GET /perl succeeded";
like $response->content, qr,perl,, "GET /perl produced expected output";

done_testing;

t/auth.t  view on Meta::CPAN

{
    package FBTestApp;
    use Dancer qw{:syntax};
    use Dancer::Plugin::Facebook;
    setting ('plugins')->{Facebook}->{application} = {app_id => $ENV{TESTING_APP_ID}, secret => $ENV{TESTING_SECRET}};
    setup_fb '/auth/facebook';
    1;
}

route_doesnt_exist [GET => '/perl'], "GET /perl endpoint does not exist";
route_exists       [GET => '/auth/facebook'], "GET /auth/facebook endpoint exists";
route_exists       [GET => '/auth/facebook/postback'], "GET /auth/facebook/postback endpoint exists";

my $response = dancer_response GET => '/auth/facebook';
debug "Response is ", $response;
is $response->status, 303, "GET /auth/facebook was redirected";
like $response->header ('Location'), qr,^https://graph.facebook.com,, "GET /auth/facebook was redirected to facebook";

done_testing;