1 BEGIN { $| = 1; print "1..4\n"; }
3 eval "use Net::SSLeay;";
5 print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit;
8 use Business::OnlinePayment;
10 my $tx = new Business::OnlinePayment("Skipjack");
12 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
13 #$Business::OnlinePayment::HTTPS::DEBUG = 1;
14 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
15 #$Business::OnlinePayment::Skipjack::DEBUG = 1;
19 login => '000368452762', # "HTML serial number"
20 action => 'Normal Authorization',
21 description => 'Business::OnlinePayment::Skipjack test',
23 card_number => '4445999922225',
24 expiration => '03/10',
31 phone => '415-420-5454',
32 email => 'ivan-skipjack-test@420.am',
34 $tx->test_transaction(1); # test, dont really charge
37 if($tx->is_success()) {
40 #warn $tx->server_response."\n";
41 warn $tx->error_message. "\n";
47 my $pa_tx = new Business::OnlinePayment("Skipjack");
51 login => '000368452762', # "HTML serial number"
52 password => '100594217288', # "developer serial number"
53 action => 'Post Authorization',
54 description => 'Business::OnlinePayment::Skipjack test',
55 order_number => $tx->order_number(),
58 $pa_tx->test_transaction(1); #test
61 if($pa_tx->is_success()) {
64 # warn "STATUS : ". $st_tx->status(). "\n";
65 # warn "PENDING: ". $st_tx->pending_status(). "\n";
68 #warn $pa_tx->server_response."\n";
69 warn $pa_tx->error_message. "\n";
75 my $st_tx = new Business::OnlinePayment("Skipjack");
79 login => '000368452762', # "HTML serial number"
80 password => '100594217288', # "developer serial number"
82 description => 'Business::OnlinePayment::Skipjack test',
83 order_number => $tx->order_number(),
86 $st_tx->test_transaction(1); #test
89 if($st_tx->is_success()) {
92 #warn "STATUS : ". $st_tx->status(). "\n";
93 #warn "PENDING: ". $st_tx->pending_status(). "\n";
96 #warn $st_tx->server_response."\n";
97 warn $st_tx->error_message. "\n";
103 print "ok 4 # Skipped: Credit needs a settled transaction\n"; exit;
105 my $cr_tx = new Business::OnlinePayment("Skipjack");
109 login => '000368452762', # "HTML serial number"
110 password => '100594217288', # "developer serial number"
112 description => 'Business::OnlinePayment::Skipjack test',
114 order_number => $tx->order_number(),
117 $cr_tx->test_transaction(1); # test, dont really charge
120 if($cr_tx->is_success()) {
123 #warn $cr_tx->server_response."\n";
124 warn $cr_tx->error_message. "\n";