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::FlatRate',
'WebGUI::Shop::ShipDriver::USPS', '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/],); my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],);
ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful'); ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful');
ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned'); 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/],); my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],);
ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful'); ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful');
ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned'); 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'], ForceArray => ['Package'],
); );
diag Dumper $xmlRate; #diag Dumper $xmlRate;
cmp_deeply( cmp_deeply(
$xmlRate, { $xmlRate, {
@ -517,7 +517,7 @@ SKIP: {
my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],); my $xmlData = XMLin($response->content, ForceArray => [qw/RatedPackage/],);
ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful'); ok($xmlData->{Response}->{ResponseStatusCode}, '... responseCode is successful');
ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned'); ok($xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}, '... total charges returned');
diag $xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue}; #diag $xmlData->{RatedShipment}->{TotalCharges}->{MonetaryValue};
} }