view release on metacpan or  search on metacpan

t/tokenize.t  view on Meta::CPAN

    my %content = %orig_content;
    $content{'action'} = 'Tokenize';

    my $tx = Business::OnlinePayment->new("Litle", @opts);
    $tx->test_transaction(1);
    $tx->content(%content);
    my $ret = $tx->submit;
    $token_result = $tx->result_code;
    skip "contact litle support to enable tokens",4 if defined $token_result && $token_result == 821;
    like( $tx->result_code,   qr/^(000|802)$/,   "result_code(): ".($tx->result_code||'').' - '.($tx->error_message||'') );
    skip "transaction did not process (check litle credentials)",3 if ! defined $tx->result_code && $tx->error_message =~ /System Error/;
    like( $tx->order_number, qr/^\w{5,19}/, "order_number(): ".($tx->order_number||'') );
    is( $tx->is_success,    1,    "is_success: 1" );
    like( $tx->card_token, qr/^\w{5,19}/, "card_token(): ".($tx->card_token||'') );
}

print '-'x70; print "AUTH CARD TOKEN TEST\n";
SKIP: {
    skip "No Test Account setup",4 if ! $authed;
    skip "first transaction did not process",4 if ! defined $token_result;
    skip "contact litle support to enable tokens",4 if $token_result == 821;