t/capture_us.t

   1 #!/usr/bin/perl -w
   2
   3 # B:OP eSelectPlus USA 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;  # Generate inside B:OP; cf. capture_ca.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,  # Generate inside B:OP
  22 #    description    => 'Business::OnlinePayment visa test',
  23     amount         => $amount,
  24 #    name           => 'eSelectPlus Tester',
  25     card_number    => '4242424242424242',
  26     expiration     => '12/12',
  27 #    invoice_number   => 'freeform',
  28 );
  29
  30 $tx->test_transaction(1); # test, dont really charge
  31
  32 $tx->submit();
  33
  34 my $flag =
  35     ok($tx->is_success(), 'Pre-Auth') or diag $tx->error_message;
  36
  37 # note: long
  38 # use Data::Dumper;
  39 # diag(Dumper $tx);
  40
  41 my $auth = $tx->authorization;     # TransID
  42 my $order_number = $tx->order_number;
  43 #$order_id = $tx->order_id;
  44 like $auth, qr/\d+/, 'authorization';
  45 like $order_number, qr/\d+/, 'order number';
  46 #ok $order_id, 'order ID';
  47
  48 #warn "auth: $auth\n";
  49 #warn "order_number: $order_number\n";
  50 SKIP: {
  51     skip 'Need pre-auth success, in order to test capture', 1
  52         unless $flag;
  53
  54 my $settle_tx = new Business::OnlinePayment("eSelectPlus");
  55 $settle_tx->content(
  56     login          => 'moot',
  57     password       => 'moot',
  58     action         => 'Post Authorization',
  59 #    description    => 'Business::OnlinePayment visa test',
  60     amount         => $amount,
  61     authorization  => $auth,
  62 #    order_id       => $order_id,
  63     order_number   => $order_number,
  64 #    name           => 'eSelectPlus Tester',
  65 #    card_number    => '4242424242424242',  # not required
  66 #    expiration     => '12/12',
  67 );
  68
  69 $settle_tx->test_transaction(1); # test, dont really charge
  70 $settle_tx->submit();
  71
  72 ok($settle_tx->is_success(), 'Capture') || diag $settle_tx->error_message;
  73 }  # /skip or test