From 21773ec5acb73387a04255979ce6148534629f84 Mon Sep 17 00:00:00 2001 From: jeff Date: Thu, 5 Apr 2007 22:59:27 +0000 Subject: add check capability --- t2/bad_auth.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 't2/bad_auth.t') diff --git a/t2/bad_auth.t b/t2/bad_auth.t index 2374eaf..689b0cc 100644 --- a/t2/bad_auth.t +++ b/t2/bad_auth.t @@ -3,7 +3,7 @@ BEGIN { $| = 1; print "1..1\n"; } use Business::OnlinePayment; my $tx = new Business::OnlinePayment("LinkPoint", - 'storename' => '1909100155', + 'storename' => '1909922411', 'keyfile' => './test.pem', ); @@ -21,7 +21,7 @@ $tx->content( country => 'US', email => 'ivan-linkpoint@420.am', card_number => '4007000000027', - expiration => '12/2005', + expiration => '12/2008', result => 'DECLINE', ); -- cgit v1.2.1