oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add back the code for pulling testing creds out of the config file. Build a driver for testing.

Browse source
This commit is contained in:
Colin Kuskie 2010-10-02 11:50:55 -07:00
parent 4715e1c8ef
commit 1dbfd8e0b2
1 changed files with 25 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

25
t/Shop/PayDriver/ITransact.t
View file

@ -99,12 +99,35 @@ $cart->update({
shipperId => $shipper->getId, shipperId => $shipper->getId,
}); });
my $vendorId = $session->config->get("testing/ITransact/vendorId");
my $password = $session->config->get("testing/ITransact/password");
my $hasTestAccount = $vendorId && $password;
if (!$vendorId) {
$vendorId = "joeUser";
}
if (!$password) {
$password = "joePass";
}
####################################################################### #######################################################################
# #
# _generatePaymentRequestXML # _generatePaymentRequestXML
# #
####################################################################### #######################################################################
my $options = {
label => 'Fast and harmless',
enabled => 1,
groupToUse => 3,
vendorId => $vendorId,
password => $password,
useCVV2 => 1,
};
my $driver = WebGUI::Shop::PayDriver::ITransact->new( $session, $options );
$driver->write;
WebGUI::Test->addToCleanup($driver);
my $dt = WebGUI::DateTime->new($session, time()); my $dt = WebGUI::DateTime->new($session, time());
$dt->add({ years => 1, }); $dt->add({ years => 1, });
@ -139,7 +162,9 @@ TODO: {
SKIP: { SKIP: {
skip "Skipping XML requests to ITransact due to lack of real userId and password", 2 unless $hasTestAccount; skip "Skipping XML requests to ITransact due to lack of real userId and password", 2 unless $hasTestAccount;
note 'doXmlrequest'; note 'doXmlrequest';
diag $xml;
my $response = eval { $driver->doXmlRequest($xml) }; my $response = eval { $driver->doXmlRequest($xml) };
diag "got reponse";
my $ok_response = isa_ok($response, 'HTTP::Response', 'returns a HTTP::Response object'); my $ok_response = isa_ok($response, 'HTTP::Response', 'returns a HTTP::Response object');
SKIP: { SKIP: {
skip "Skipping response check since we did not get a response", 1 unless $ok_response; skip "Skipping response check since we did not get a response", 1 unless $ok_response;