view release on metacpan or  search on metacpan

t/10-api.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;

package MockUA;

    sub new {
        my ($class, $params) = @_;
        return bless $params, $class;
    }

    sub request {
        my ($self, $req) = @_;
        die 'no tests available' unless exists $self->{tests}[$self->{current_test}];

        my $current_test = $self->{tests}[$self->{current_test}];
        Test::More::is(
            $req->method,
            $current_test->{http_method},
            "HTTP::Request method #" . $self->{current_test}
        );
        Test::More::is(
            $req->uri,
            $current_test->{http_uri},
            "HTTP::Request uri #" . $self->{current_test}
        );
        foreach my $header_key (sort keys %{$current_test->{http_headers}}) {
            Test::More::is(
                $req->header($header_key),
                $current_test->{http_headers}{$header_key},
                "HTTP::Request has proper header value for '$header_key'",
            );
        }
        Test::More::is(
            $req->content,
            $current_test->{http_content},
            "HTTP::Request has proper content set for test $self->{current_test}"
        );

        $self->{current_test}++;
        return $self;
    }

    sub is_success { 1 }
    sub content { '{}' }

package main;

use Business::Stripe;

my $rand_auth = 'dummy' . int(rand(1000));

my @tests = (
    {
        api_args         => [ 'delete', 'plans/gold' ],
        http_method      => 'DELETE',
        http_uri         => 'https://api.stripe.com/v1/plans/gold',
        http_content     => '',
        http_headers     => {
            'Authorization' => $rand_auth,
            'Stripe-Version' => undef,
            'Stripe-Account' => undef,
        },
    },
    {
        api_args         => [ 'delete', 'plans', 'gold' ],
        http_method      => 'DELETE',
        http_uri         => 'https://api.stripe.com/v1/plans/gold',
        http_content     => '',
        http_headers     => {
            'Authorization' => $rand_auth,
            'Stripe-Version' => undef,
            'Stripe-Account' => undef,
        },
    },
    {
        api_args => [ 'post', 'customers',
            email       => 'myuser@example.com',
            name        => 'Jane Doe',
            description => 'Test description',
            source      => 1234,
        ],
        http_method      => 'POST',
        http_uri         => 'https://api.stripe.com/v1/customers',
        http_headers     => {
            'Authorization' => $rand_auth,
            'Stripe-Version' => undef,
            'Stripe-Account' => undef,
        },
        http_content => 'email=myuser%40example.com&name=Jane+Doe&description=Test+description&source=1234',
    },
    {
        api_args => [ 'get', 'subscriptions', '1234' ],
        http_method      => 'GET',
        http_uri         => 'https://api.stripe.com/v1/subscriptions/1234',
        http_content     => '',
        http_headers     => {