view release on metacpan or  search on metacpan

t/20emit.t  view on Meta::CPAN

my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';

foreach (TRANSACTIONS) {
	$txn->test_transaction(delete $_->{_test});
	$txn->content(%$_);

	my $data = do {
		# Work around bug #17687
		local $/ = '';
		scalar <DATA>;
	};

	is_deeply(
		xml_in($txn->to_xml),
		xml_in($data)
	);
}

t/30parse.t  view on Meta::CPAN

use Test::More tests => 1 + scalar(RESULTS) * (1 + 1 + scalar(FIELDS));

BEGIN { use_ok('Business::OnlinePayment') };



my $txn = new Business::OnlinePayment 'InternetSecure', merchant_id => '0000';

$/ = '';
foreach my $results (RESULTS) {
	my $xml = <DATA>;
	$txn->parse_response($xml);

	is($txn->server_response, $xml, 'server_response');

	if ($results->{is_success}) {
		ok($txn->is_success, 'expecting success');
	} else {
		ok(!$txn->is_success, 'expecting failure');