1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
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" );
|
