perl-business-paypal-api/t/MassPay.t

use Test::More;
if ( !$ENV{WPP_TEST} || !-f $ENV{WPP_TEST} ) {
    plan skip_all =>
        'No WPP_TEST env var set. Please see README to run tests';
}
else {
    plan tests => 3;
}

use_ok( 'Business::PayPal::API::MassPay' );
#########################

require 't/API.pl';

my %args = do_args();

my $pp = new Business::PayPal::API::MassPay( %args );

#$Business::PayPal::API::Debug = 1;
my %resp = $pp->MassPay(
    EmailSubject => "This is the subject; nice eh?",
    MassPayItems => [
        {   ReceiverEmail => 'joe@test.tld',
            Amount        => '24.00',
            UniqueID      => "123456",
            Note => "Enjoy the money. Don't spend it all in one place."
        }
    ]
);

like( $resp{Ack}, qr/Success/, "successful payment" );

%resp = $pp->MassPay(
    EmailSubject => "This is the subject; nice eh?",
    MassPayItems => [
        {   ReceiverEmail => 'bob@test.tld',
            Amount        => '25.00',
            UniqueID      => "123457",
            Note => "Enjoy the money. Don't spend it all in one place."
        },
        {   ReceiverEmail => 'foo@test.tld',
            Amount        => '42.00',
            UniqueID      => "123458",
            Note => "Enjoy the money. Don't spend it all in one place."
        }
    ]
);

like( $resp{Ack}, qr/Success/, "successful payments" );