view release on metacpan or  search on metacpan

t/business/gocardless/mandate.t  view on Meta::CPAN

		created_at
        consent_parameters
        consent_type
        funds_settlement
		id
		links
        mandate_type
		metadata
		next_possible_charge_date
        next_possible_standard_ach_charge_date
		payments_require_approval
		reference
		scheme
		status
        verified_at
        is_bank_debit
        is_instant
        is_recurring
        is_vrp_commercial
        is_vrp_sweeping
    /,
);

is( $Mandate->endpoint,'/mandates/%s','endpoint' );
$Mandate->status( 'active' );

ok( ! $Mandate->pending_customer_approval,'pending_customer_approval' );
ok( ! $Mandate->pending_submission,'pending_submission' );
ok( ! $Mandate->submitted,'submitted' );
ok( $Mandate->active,'active' );
ok( ! $Mandate->failed,'failed' );
ok( ! $Mandate->cancelled,'cancelled' );
ok( ! $Mandate->expired,'expired' );
ok( ! $Mandate->consumed,'consumed' );
ok( ! $Mandate->blocked,'blocked' );
ok( ! $Mandate->suspended_by_payer,'suspended_by_payer' );
ok( ! $Mandate->consent_parameters,'consent_parameters' );
ok( ! $Mandate->consent_type,'consent_type' );
ok( ! $Mandate->verified_at,'verified_at' );
ok( ! $Mandate->authorisation_source,'authorisation_source' );
ok( ! $Mandate->next_possible_standard_ach_charge_date,'next_possible_standard_ach_charge_date' );
is( $Mandate->funds_settlement,'managed','funds_settlement' );
ok( $Mandate->is_managed,'->is_managed' );
ok( ! $Mandate->is_direct,'! ->is_direct' );

is( $Mandate->mandate_type,'bank_debit','mandate_type' );
ok( $Mandate->is_bank_debit,'->is_bank_debit' );
ok( ! $Mandate->is_instant,'! ->is_instant' );
ok( ! $Mandate->is_recurring,'! ->is_recurring' );
ok( ! $Mandate->is_vrp_commercial,'! ->is_vrp_commercial' );
ok( ! $Mandate->is_vrp_sweeping,'! ->is_vrp_sweeping' );

$Mandate->mandate_type( 'instant' );
ok( ! $Mandate->is_bank_debit,'! ->is_bank_debit after change' );
ok( $Mandate->is_instant,'->is_instant after change' );

$Mandate->id( 123 );
is( $Mandate->uri,'https://api.gocardless.com/mandates/123','->uri' );

# monkey patching LWP here to make this test work without
# having to actually hit the endpoints or use credentials
no warnings 'redefine';
no warnings 'once';
my $mock = Test::MockObject->new;
my $request;
$mock->mock( 'is_success',sub { 1 } );
$mock->mock( 'header',sub {} );
$mock->mock( 'content',sub {
    '{"mandates":{"id":"123","status":"active","metadata":{"contract":"ABC"}}}'
} );
*LWP::UserAgent::request = sub { $request = $_[1]; $mock };

isa_ok(
    my $Updated = $Mandate->update( metadata => { contract => 'ABC' } ),
    'Business::GoCardless::Mandate',
    '->update returns a Mandate'
);

is( $request->method,'PUT','->update PUTs' );
like( $request->uri,qr!/mandates/123$!,'->update to mandate endpoint' );
is(
    $request->content,
    '{"mandates":{"metadata":{"contract":"ABC"}}}',
    '->update request body'
);
cmp_deeply( $Mandate->metadata,{ contract => 'ABC' },'->update refreshes the object' );

done_testing();

# vim: ts=4:sw=4:et