projects
/
Business-OnlinePayment-Network1Financial.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed silly bug with expiration dates
[Business-OnlinePayment-Network1Financial.git]
/
t
/
credit_card.t
diff --git
a/t/credit_card.t
b/t/credit_card.t
index
d2ed2d1
..
ec8f7f8
100644
(file)
--- a/
t/credit_card.t
+++ b/
t/credit_card.t
@@
-5,8
+5,8
@@
use Business::OnlinePayment;
my $tx = new Business::OnlinePayment("Network1Financial");
$tx->content(
type => 'VISA',
my $tx = new Business::OnlinePayment("Network1Financial");
$tx->content(
type => 'VISA',
- login => '99999999999
9
',
- password => '
AAAAAAAAAAAA
',
+ login => '99999999999
6
',
+ password => '
J4BGW3Q2K8N4
',
action => 'Normal Authorization',
description => 'Business::OnlinePayment visa test',
amount => '49.95',
action => 'Normal Authorization',
description => 'Business::OnlinePayment visa test',
amount => '49.95',
@@
-14,12
+14,13
@@
$tx->content(
customer_id => 'jsk',
first_name => 'Tofu',
last_name => 'Beast',
customer_id => 'jsk',
first_name => 'Tofu',
last_name => 'Beast',
+ 'name' => 'Tofu Beast',
address => '123 Anystreet',
city => 'Anywhere',
state => 'UT',
zip => '84058',
address => '123 Anystreet',
city => 'Anywhere',
state => 'UT',
zip => '84058',
- card_number => '4111111111111',
- expiration => '0
1
/05',
+ card_number => '4111111111111
111
',
+ expiration => '0
4
/05',
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();