projects
/
Business-OnlinePayment-AuthorizeNet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update tests with new test accounts
[Business-OnlinePayment-AuthorizeNet.git]
/
t
/
capture.t
diff --git
a/t/capture.t
b/t/capture.t
index
8e1d913
..
de46ac1
100644
(file)
--- a/
t/capture.t
+++ b/
t/capture.t
@@
-8,6
+8,9
@@
plan tests => 4;
use_ok 'Business::OnlinePayment';
use_ok 'Business::OnlinePayment';
+#avoid dup checking in case "make test" is run too close to the last
+my $amount = sprintf('%.2f', rand(100));
+
my $tx = Business::OnlinePayment->new("AuthorizeNet");
$tx->server('test.authorize.net');
$tx->content(
my $tx = Business::OnlinePayment->new("AuthorizeNet");
$tx->server('test.authorize.net');
$tx->content(
@@
-16,7
+19,7
@@
$tx->content(
password => $password,
action => 'Authorization Only',
description => 'Business::OnlinePayment visa test',
password => $password,
action => 'Authorization Only',
description => 'Business::OnlinePayment visa test',
- amount =>
'49.95'
,
+ amount =>
$amount
,
invoice_number => '100100',
customer_id => 'jsk',
first_name => 'Tofu',
invoice_number => '100100',
customer_id => 'jsk',
first_name => 'Tofu',
@@
-28,14
+31,24
@@
$tx->content(
card_number => '4007000000027',
expiration => expiration_date(),
);
card_number => '4007000000027',
expiration => expiration_date(),
);
-$tx->test_transaction(1); # test, dont really charge
+
+# don't set test_transaction (using test server though, still a test)
+# as per authorize.net:
+# "You need to be in Live Mode to get back a transaction ID"
+#$tx->test_transaction(1); # test, dont really charge
+
$tx->submit();
ok($tx->is_success()) or diag $tx->error_message;
$tx->submit();
ok($tx->is_success()) or diag $tx->error_message;
+my $auth = $tx->authorization;
+
my $order_number = $tx->order_number;
like $order_number, qr/^\d+$/;
my $order_number = $tx->order_number;
like $order_number, qr/^\d+$/;
+#warn "auth: $auth\n";
+#warn "order_number: $order_number\n";
+
my $settle_tx = Business::OnlinePayment->new("AuthorizeNet");
$settle_tx->server('test.authorize.net');
$settle_tx->content(
my $settle_tx = Business::OnlinePayment->new("AuthorizeNet");
$settle_tx->server('test.authorize.net');
$settle_tx->content(
@@
-44,14
+57,15
@@
$settle_tx->content(
password => $password,
action => 'Post Authorization',
description => 'Business::OnlinePayment visa test',
password => $password,
action => 'Post Authorization',
description => 'Business::OnlinePayment visa test',
- amount =>
'49.95'
,
+ amount =>
$amount
,
invoice_number => '100100',
invoice_number => '100100',
- order_number => '111',
+ authorization => $auth,
+ order_number => $order_number,
card_number => '4007000000027',
expiration => expiration_date(),
);
card_number => '4007000000027',
expiration => expiration_date(),
);
-$settle_tx->test_transaction(1); # test, dont really charge
+
#
$settle_tx->test_transaction(1); # test, dont really charge
$settle_tx->submit();
ok($settle_tx->is_success()) || diag $settle_tx->error_message;
$settle_tx->submit();
ok($settle_tx->is_success()) || diag $settle_tx->error_message;