view release on metacpan or  search on metacpan

t/simple.t  view on Meta::CPAN

    );
    like(
        $ua->{calls}->[1]->[0],
        qr#^\Q${base}appStoreVersions/v1/appStoreVersionLocalizations\E\?(limit=200&fields\[appStoreVersionLocalizations\]=locale,whatsNew|fields\[appStoreVersionLocalizations\]=locale,whatsNew&limit=200)$#,
        'Localization fields passed to localizations request'
    );
};

subtest 'get_beta_feedback_screenshot_submissions' => sub {
    my $ua = TestUA->new(
        '{"data":[{"type":"betaFeedbackScreenshotSubmissions","id":"s1","attributes":{"createdDate":"2026-06-24T10:00:00Z","comment":"Looks wrong","appPlatform":"IOS","screenshots":[{"url":"https://example.com/shot.png","width":1170,"height":2532}]}}...
    );
    my $asc3 = Apple::AppStoreConnect->new(%params, key => $key, ua => $ua);

    my $out = $asc3->get_beta_feedback_screenshot_submissions(
        id       => 1,
        platform => 'IOS',
        params   => {
            'fields[betaFeedbackScreenshotSubmissions]' => 'createdDate,comment,appPlatform,screenshots',
        },
    );

t/simple.t  view on Meta::CPAN

        $out,
        [
            {
                id          => 's1',
                type        => 'betaFeedbackScreenshotSubmissions',
                createdDate => '2026-06-24T10:00:00Z',
                comment     => 'Looks wrong',
                appPlatform => 'IOS',
                screenshots => [
                    {
                        url    => 'https://example.com/shot.png',
                        width  => 1170,
                        height => 2532,
                    },
                ],
            },
        ],
        'Screenshot feedback returned'
    );

    my $url = $ua->{calls}->[0]->[0];