1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/perl -w
# B:OP eSelectPlus USA Pre-Auth & Capture
# Portions loosely adapted from B:OP AuthorizeNet via B:OP Exact
use Test::More;
plan tests => 5;
use_ok 'Business::OnlinePayment';
my $amount;
$amount = '1.00';
my $order_id;
#$order_id = 'B:OP' . time; # Generate inside B:OP; cf. capture_ca.t
my $tx = new Business::OnlinePayment("eSelectPlus");
$tx->content(
login => 'moot',
password => 'moot',
action => 'Authorization Only',
# order_id => $order_id, # Generate inside B:OP
# description => 'Business::OnlinePayment visa test',
amount => $amount,
# name => 'eSelectPlus Tester',
card_number => '4242424242424242',
expiration => '12/12',
cvv2 => '123',
address => '1234 Tofu Lane',
zip => '543215454',
# invoice_number => 'freeform',
);
$tx->test_transaction(1); # test, dont really charge
$tx->submit();
my $flag =
ok($tx->is_success(), 'Pre-Auth') or diag $tx->error_message;
# note: long
# use Data::Dumper;
# diag(Dumper $tx);
my $auth = $tx->authorization; # TransID
my $order_number = $tx->order_number;
#$order_id = $tx->order_id;
like $auth, qr/\d+/, 'authorization';
like $order_number, qr/\d+/, 'order number';
#ok $order_id, 'order ID';
#warn "auth: $auth\n";
#warn "order_number: $order_number\n";
SKIP: {
skip 'Need pre-auth success, in order to test capture', 1
unless $flag;
my $settle_tx = new Business::OnlinePayment("eSelectPlus");
$settle_tx->content(
login => 'moot',
password => 'moot',
action => 'Post Authorization',
# description => 'Business::OnlinePayment visa test',
amount => $amount,
authorization => $auth,
# order_id => $order_id,
order_number => $order_number,
# name => 'eSelectPlus Tester',
# card_number => '4242424242424242', # not required
# expiration => '12/12',
);
$settle_tx->test_transaction(1); # test, dont really charge
$settle_tx->submit();
ok($settle_tx->is_success(), 'Capture') || diag $settle_tx->error_message;
} # /skip or test
|
