| Subject: | Test with Expired Credit Card |
Make-test reports PASS despite expired credit card in t/credit-card.t .
We have applied the following patches in-house.
-Randall
Index: LinkPoint.pm
===================================================================
RCS file: /usr/local/cvs/cpan-contribs/Business-OnlinePayment-LinkPoint/LinkPoint.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -w -u -r1.2 -r1.3
--- LinkPoint.pm 1 Oct 2010 21:34:31 -0000 1.2
+++ LinkPoint.pm 1 Oct 2010 21:58:48 -0000 1.3
@@ -129,8 +129,10 @@
my $result = $content{'result'};
if ( $self->test_transaction) {
- $result ||= 'GOOD';
- #$self->server('staging.linkpt.net');
+ # if $result is empty, results will be on web
+ #$result ||= 'GOOD'; # test will return approved; not on web
+ #$result ||= 'DECLINE'; # test will return declined; not on web
+ $self->server('staging.linkpt.net');
} else {
$result ||= 'LIVE';
}
Index: t/credit_card.t
===================================================================
RCS file: /usr/local/cvs/cpan-contribs/Business-OnlinePayment-LinkPoint/t/credit_card.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -w -u -r1.1 -r1.2
--- t/credit_card.t 1 Oct 2010 21:34:39 -0000 1.1
+++ t/credit_card.t 1 Oct 2010 22:07:08 -0000 1.2
@@ -22,7 +22,7 @@
country => 'US',
email => 'ivan-linkpoint@420.am',
card_number => '4007000000027',
- expiration => '12/2008',
+ expiration => '12/2020',
);
$tx->test_transaction(1);