--- /dev/null
+# 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',
+ exp_date => '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');
+