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

Update tests for UPS driver. Cleanup diags.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-03 20:57:53 -08:00
parent 547d1714a5
commit b4112e8d3d
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
t/Shop/Ship.t
View file

@ -93,8 +93,9 @@ cmp_bag(
[
'WebGUI::Shop::ShipDriver::FlatRate',
'WebGUI::Shop::ShipDriver::USPS',
'WebGUI::Shop::ShipDriver::UPS',
],
'getDrivers: WebGUI only ships with 1 default shipping driver',
'getDrivers: WebGUI ships with 3 default shipping drivers',
);
#######################################################################

8
t/Shop/ShipDriver/UPS.t
View file

@ -434,7 +434,7 @@ SKIP: {
my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],);
ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful');
ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned');
diag($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue});
#diag($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue});
}
@ -451,7 +451,7 @@ SKIP: {
my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],);
ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful');
ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned');
diag($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue});
#diag($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue});
}
@ -475,7 +475,7 @@ $xmlRate = XMLin( $xmlR,
ForceArray => ['Package'],
);
diag Dumper $xmlRate;
#diag Dumper $xmlRate;
cmp_deeply(
$xmlRate, {
@ -517,7 +517,7 @@ SKIP: {
my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],);
ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful');
ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned');
diag $xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue};
#diag $xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue};
}