view release on metacpan or  search on metacpan

t/response-sale.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Fatal;
use Test::Deep;
use Test::Method;
use Module::Runtime qw( use_module );

# this test uses a response from a sale

my $res
	= new_ok( use_module('Business::CyberSource::Response') => [{
		'ccAuthReply' => {
			'processorResponse' => '00',
			'authorizedDateTime' => '2012-10-30T00:25:38Z',
				'reasonCode' => '100',
				'authorizationCode' => '841000',
				'amount' => '3000.01',
				authRecord => my $auth_record = '0110322000000E10003840979308471'
					. '907091389487900270728165933335487401834987091873407037490'
					. '173409710734104400183498397490379470730947109740701734053'
					. '0373033383032303934734070970137490713904709',
				'avsCodeRaw' => 'Y',
				'avsCode' => 'Y',
				'reconciliationID' => 'Y37080808BUW'
		},
		'purchaseTotals' => {
			'currency' => 'USD'
		},
		'ccCaptureReply' => {
			'amount' => '3000.01',
			'requestDateTime' => '2012-10-30T00:25:38Z',
			'reconciliationID' => '51142857',
			'reasonCode' => '100'
		},
		'decision' => 'ACCEPT',
		'reasonCode' => '100',
		'requestID' => '3515567380160176056470',
		requestToken => my $token = 'Ahj/7omgletsmakesurethisissecurebychangi'
			. 'ngitsguts/Imnotgivingyouarealcode/Icanthearyouu2AAAA/QAO',
		merchantReferenceCode => 'test-1349678423',
	}]);

ok ! $res->can('serialize'), 'can not serialize';

can_ok $res, qw(
		auth
		purchase_totals
		capture
		decision
		reason_code
		request_id
		request_token
		reference_code
	);

method_ok $res, decision       => [], 'ACCEPT';
method_ok $res, reason_code    => [], '100';
method_ok $res, request_id     => [], '3515567380160176056470';
method_ok $res, request_token  => [], $token;
method_ok $res, reference_code => [], 'test-1349678423';
method_ok $res, is_accept      => [], bool(1);
method_ok $res, is_reject      => [], bool(0);
method_ok $res, is_error       => [], bool(0);