# change 'tests => 1' to 'tests => last_test_to_print';
-use Test::More tests => 8;
+use Test::More;
use Term::ReadLine;
BEGIN { use_ok('Business::OnlinePayment::Exact') };
my $tx;
ok($tx = new Business::OnlinePayment('Exact'), 'New Exact');
ok($tx->content(
- amount => '9.95',
+ amount => '0.01',
card_number => $card,
expiration => $expiry,
name => $name,
),
'Add Some Content');
+my $return = eval { $tx->test_transaction(1) };
+
+my $error = $@;
+
+ok($error, 'enable test mode dies');
+
ok($tx->submit(), 'submit');
-ok($tx->is_success(), 'Success!!!');
+
+ok($tx->is_success(), 'Success!!!')
+ or diag "Card was rejected: ", $tx->error_message();
+
my $auth;
ok($auth = $tx->authorization(), "authorization $auth");
my $err;
ok($on = $tx->order_number(), "order number $on");
+done_testing();