use Test::More;

BEGIN {
	plan skip_all => 'MERCHANT_ID environment variable not set'
		unless defined $ENV{MERCHANT_ID};
};

BEGIN { plan tests => 1 + 2 };

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


my $txn = new Business::OnlinePayment 'InternetSecure',
		merchant_id => $ENV{MERCHANT_ID};

$txn->test_transaction(1);

$txn->content(
		action		=> 'Normal Authorization',
		type		=> 'Visa',
		card_number	=> '0000000000000000',
		exp_date	=> '2004/07',
		name		=> "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
		amount		=> 0.01,
	);

$txn->submit;

is($txn->result_code, '2000', 'is result_code 2000?');
is($txn->cardholder, "Fr\x{e9}d\x{e9}ric Bri\x{e8}re",
	'is cardholder encoded properly?');