- use CLIENTCERTID environment var for testing using (temporarily
required) X-VPS-VIT-CLIENT-CERTIFICATION-ID
my $runinfo =
"to test set environment variables:"
my $runinfo =
"to test set environment variables:"
- . " (required) PFPRO_VENDOR PFPRO_USER PFPRO_PWD;"
+ . " (required) PFPRO_VENDOR PFPRO_USER PFPRO_PWD and CLIENTCERTID (for X-VPS-VIT-CLIENT-CERTIFICATION-ID); "
. " (optional) PFPRO_PARTNER PFPRO_CERT_PATH";
plan(
. " (optional) PFPRO_PARTNER PFPRO_CERT_PATH";
plan(
- "vendor" => $ENV{PFPRO_VENDOR},
- "partner" => $ENV{PFPRO_PARTNER} || "verisign",
- "cert_path" => $ENV{PFPRO_CERT_PATH} || ".",
+ "debug" => 0,
+ "vendor" => $ENV{PFPRO_VENDOR},
+ "partner" => $ENV{PFPRO_PARTNER} || "verisign",
+ ( $ENV{PFPRO_CERT_PATH} ? ( "cert_path" => $ENV{PFPRO_CERT_PATH} ) : () ),
+ (
+ $ENV{CLIENTCERTID} ? (
+ headers => {
+ "X-VPS-VIT-CLIENT-CERTIFICATION-ID" => $ENV{CLIENTCERTID},
+
+ # "X-VPS-REQUEST-ID" => $self->request_id(),
+ # "X-VPS-CLIENT-TIMEOUT" => , # default 45 seconds
+ # "X-VPS-VIT-CLIENT-DURATION" => , # commit request
+ }
+ )
+ : ()
+ ),
);
# IF first 3 chars of STREET >= 667 THEN AVSADDR == "X" (and AVSZIP="X")
);
# IF first 3 chars of STREET >= 667 THEN AVSADDR == "X" (and AVSZIP="X")
+ $tx = new Business::OnlinePayment( "PayflowPro", %opts );
$tx->content( %content, "address" => "700 Any street" );
tx_check(
$tx,
$tx->content( %content, "address" => "700 Any street" );
tx_check(
$tx,
);
# IF ZIP <= 50001 and >= 99999 THEN AVSZIP == "N"
);
# IF ZIP <= 50001 and >= 99999 THEN AVSZIP == "N"
+ $tx = new Business::OnlinePayment( "PayflowPro", %opts );
$tx->content( %content, "zip" => "99999" );
tx_check(
$tx,
$tx->content( %content, "zip" => "99999" );
tx_check(
$tx,
);
# Both AVSADDR and AVSZIP == "N"
);
# Both AVSADDR and AVSZIP == "N"
+ $tx = new Business::OnlinePayment( "PayflowPro", %opts );
$tx->content( %content, "address" => "500 Any street", "zip" => "99999" );
tx_check(
$tx,
$tx->content( %content, "address" => "500 Any street", "zip" => "99999" );
tx_check(
$tx,
);
# IF CVV2 >= 601 THEN CVV2MATCH == "X"
);
# IF CVV2 >= 601 THEN CVV2MATCH == "X"
+ $tx = new Business::OnlinePayment( "PayflowPro", %opts );
$tx->content( %content, "cvv2" => "601" );
tx_check(
$tx,
$tx->content( %content, "cvv2" => "601" );
tx_check(
$tx,
is( $tx->authorization, $o{authorization}, "authorization() / AUTHCODE" );
is( $tx->avs_code, $o{avs_code}, "avs_code() / AVSADDR and AVSZIP" );
is( $tx->cvv2_code, $o{cvv2_code}, "cvv2_code() / CVV2MATCH" );
is( $tx->authorization, $o{authorization}, "authorization() / AUTHCODE" );
is( $tx->avs_code, $o{avs_code}, "avs_code() / AVSADDR and AVSZIP" );
is( $tx->cvv2_code, $o{cvv2_code}, "cvv2_code() / CVV2MATCH" );
-
- no warnings 'uninitialized';
like( $tx->order_number, qr/^\w{12}/, "order_number() / PNREF" );
}
like( $tx->order_number, qr/^\w{12}/, "order_number() / PNREF" );
}