view release on metacpan or  search on metacpan

t/02_credentials_ecs_container.t  view on Meta::CPAN

    eval {
        my $credentials = Amazon::S3::Thin::Credentials->from_ecs_container(+{ ua => $ua });
    };

    like $@, qr/Error retrieving container credentials/;
}

{
    diag "returned content is not JSON";

    local $ENV{AWS_CONTAINER_CREDENTIALS_RELATIVE_URI} = '/not_json';

    my $ua = MockUA->new;
    eval {
        my $credentials = Amazon::S3::Thin::Credentials->from_ecs_container(+{ ua => $ua });
    };

    like $@, qr/Invalid data returned: /;
}

done_testing;