t/capture_ca.t

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