view release on metacpan or  search on metacpan

t/003_publish/04_create_test_users.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Mock::Furl;
use JSON 2 qw(encode_json decode_json);
use Facebook::OpenGraph;
use URI;

subtest 'create single test user' => sub {

    my $data_ref = [
        +{
            id           => 123456789,
            access_token => '5678uiop',
            login_url    => 'https://www.facebook.com/platform/test_account_login?user_id=123456789&n=asdfghh',
            email        => 'saffasdffad@tfbnw.net',
            password     => 67890,
        },
    ];

    $Mock_furl_http->mock(
        request => sub {
            my ($mock, %args) = @_;

            is $args{url}, 'https://graph.facebook.com/', 'end point';
            is $args{method}, 'POST', 'method';
            is_deeply $args{headers}, ['Authorization', 'OAuth 12345qwerty'], 'headers';
            ok $args{content}->{batch};
            my $decoded_content = decode_json($args{content}->{batch});
            my $body = +{URI->new('?'.$decoded_content->[0]->{body})->query_form};
            is_deeply $body, +{
                permissions => 'publish_actions',
                installed   => 'true',
                locale      => 'en_US',
            }, 'body';
            is $decoded_content->[0]->{relative_url}, '/1234556/accounts/test-users', 'relative_url';
            is uc $decoded_content->[0]->{method}, 'POST', 'method';
            is_deeply $args{content}->{access_token}, '12345qwerty', 'access_token';
    
            return (
                1,
                200,
                'OK',
                ['Content-Type' => 'text/javascript; charset=UTF8'],
                encode_json([
                    +{
                        code    => 200,
                        headers => [],
                        body    => encode_json($data_ref->[0]),
                    },
                ]),
            );

        },
    );

    my $fb = Facebook::OpenGraph->new(+{
        app_id       => 1234556,
        secret       => 'secret',
        access_token => '12345qwerty',
    });
    my $res = $fb->create_test_users(
        +{
            permissions => [qw/publish_actions/],
            locale      => 'en_US',
            installed   => 'true',
        },
    );
    is_deeply $res, $data_ref, 'data';

};

subtest 'create multiple test user' => sub {

    my $data_ref = [
        +{
            id           => 123456789,
            access_token => '5678uiop',
            login_url    => 'https://www.facebook.com/platform/test_account_login?user_id=123456789&n=asdfghh',
            email        => 'saffasdffad@tfbnw.net',
            password     => 67890,
        },
        +{
            id           => 1234567890,
            access_token => '5678uiopasadfasdfa',
            login_url    => 'https://www.facebook.com/platform/test_account_login?user_id=1234567890&n=asdfghdasdfash',
            email        => 'asdfghdasdfash@tfbnw.net',
            password     => 12345,
        },
    ];

    $Mock_furl_http->mock(
        request => sub {
            my ($mock, %args) = @_;

            is $args{url}, 'https://graph.facebook.com/', 'end point';
            is $args{method}, 'POST', 'method';