view release on metacpan or  search on metacpan

t/order-reports.t  view on Meta::CPAN

#!perl
use strict;
use warnings;
use utf8;

use Amazon::MWS::Uploader;
use Amazon::MWS::XML::Response::OrderReport;
use Test::More;
use Data::Dumper;
use File::Spec;

if (-d 'schemas') {
    plan tests => 106;
}
else {
    plan skip_all => q{Missing "schemas" directory with the xsd from Amazon, skipping feeds tests};
}

use_ok('Amazon::MWS::XML::Response::OrderReport::Item');


my $test_obj = Amazon::MWS::XML::Response::OrderReport::Item->new;
ok $test_obj;
$test_obj = Amazon::MWS::XML::Response::OrderReport::Item->new(AmazonOrderItemCode => '113241234',
                                                               Title => 'bac');
is $test_obj->Title, 'bac';



my %constructor = (
                   merchant_id => '__MERCHANT_ID__',
                   access_key_id => '12341234',
                   secret_key => '123412341234',
                   marketplace_id => '123412341234',
                   endpoint => 'https://mws-eu.amazonservices.com',
                   schema_dir => 'schemas',
                   feed_dir => File::Spec->catdir(qw/t feeds/),
                  );
my $uploader = Amazon::MWS::Uploader->new(%constructor);

ok($uploader);

my $xml = <<'AMAZONXML';
<AmazonEnvelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="amzn-envelope.xsd">
  <Header>
    <DocumentVersion>1.01</DocumentVersion>
      <MerchantIdentifier>XXXXX_666666666</MerchantIdentifier>
  </Header>
  <MessageType>OrderReport</MessageType>
<Message>
    <MessageID>1</MessageID>
    <OrderReport>
        <AmazonOrderID>028-1111111-1111111</AmazonOrderID>
        <AmazonSessionID>028-2222222-2222222</AmazonSessionID>
        <OrderDate>2015-03-24T13:59:43+00:00</OrderDate>
        <OrderPostedDate>2015-03-24T13:59:43+00:00</OrderPostedDate>
        <BillingData>
            <BuyerEmailAddress>asdfalklkasdfdh@marketplace.amazon.de</BuyerEmailAddress>
            <BuyerName>Pinco Pallino</BuyerName>
            <BuyerPhoneNumber>07777777777</BuyerPhoneNumber>
            <Address>
                <Name>Pinco Pallino</Name>
                <AddressFieldOne>Via del Piff 3</AddressFieldOne>
                <City>Trieste</City>