# vim:set syntax=perl encoding=utf-8:

# get_remap_fields() used to be destructive (via remap_fields), and thus
# to_xml couldn't be called by itself.

use Test::More tests => 1 + 1;

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

use constant TRANSACTION =>
	(
		action		=> 'Normal Authorization',

		card_number	=> '5111-1111-1111-1111',
		expiration	=> '0704',

		name		=> "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",

		amount		=> 13.95,
	);


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

$txn->content(TRANSACTION);

is($txn->to_xml, $txn->to_xml, 'idempotence');