diff --git a/t/RecurringPayments.t b/t/RecurringPayments.t index 44840cb..bd76ffb 100644 --- a/t/RecurringPayments.t +++ b/t/RecurringPayments.t @@ -4,7 +4,7 @@ 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 => 4; + plan tests => 3; } use_ok( 'Business::PayPal::API::RecurringPayments' ); @@ -16,16 +16,16 @@ my %args = do_args(); my $pp = new Business::PayPal::API::RecurringPayments(%args); -$Business::PayPal::API::Debug = 1; +#$Business::PayPal::API::Debug = 1; my %response = $pp->SetCustomerBillingAgreement ( BillingType => 'RecurringPayments', - + BillingAgreementDescription => '10.00 per month for 1 year', ReturnURL => 'http://www.google.com/', CancelURL => 'http://www.google.com/', BuyerEmail => $args{BuyerEmail}, ); -$Business::PayPal::API::Debug = 0; +#$Business::PayPal::API::Debug = 0; my $token = $response{Token}; @@ -70,14 +70,14 @@ die "Need a PayerID.\n" unless $payerid; ## CreateRecurringPaymentsProfile -$Business::PayPal::API::Debug = 1; +#$Business::PayPal::API::Debug = 1; my %profile = $pp->CreateRecurringPaymentsProfile ( Token => $token, ## RecurringPaymentProfileDetails SubscriberName => 'Joe Schmoe', - SubscriberShipperName => "Schmoe House", + SubscriberShipperName => 'Schmoe House', SubscriberShipperStreet1 => '1234 Street St.', SubscriberShipperCityName => 'Orem', SubscriberShipperStateOrProvince => 'UT', @@ -85,39 +85,39 @@ my %profile = $pp->CreateRecurringPaymentsProfile SubscriberShipperCountry => 'USA', SubscriberShipperPhone => '123-123-1234', - BillingStartDate => '12-31-08', + BillingStartDate => '2009-12-01Z', ProfileReference => 'BH12341234', ## ScheduleDetails - Description => "12 Month Hosting Package: We Love You!", + Description => '12 Month Hosting Package: We Love You!', InitialAmount => '12.34', - TrialBillingPeriod => "Month", + TrialBillingPeriod => 'Month', TrialBillingFrequency => 1, TrialTotalBillingCycles => 1, TrialAmount => 0.00, TrialShippingAmount => 0.00, TrialTaxAmount => 0.00, - PaymentBillingPeriod => "Year", + PaymentBillingPeriod => 'Year', PaymentBillingFrequency => 1, PaymentTotalBillingCycles => 1, PaymentAmount => 95.40, PaymentShippingAmount => 0.00, PaymentTaxAmount => 0.00, - MaxFailedPayments => 1, - AutoBillOutstandingAmount => 'AddToNextBilling', +# MaxFailedPayments => 1, +# AutoBillOutstandingAmount => 'AddToNextBilling', ); -$Business::PayPal::API::Debug = 0; +#$Business::PayPal::API::Debug = 0; ## GetBillingAgreementCustomerDetails #$Business::PayPal::API::Debug = 1; my %details = $pp->GetBillingAgreementCustomerDetails($token); -$Business::PayPal::API::Debug = 0; +#$Business::PayPal::API::Debug = 0; like( $details{Ack}, qr/Success/ , "details ok" ); diff --git a/t/TransactionSearch.t b/t/TransactionSearch.t index 30bd38e..3c22b61 100644 --- a/t/TransactionSearch.t +++ b/t/TransactionSearch.t @@ -12,23 +12,25 @@ use_ok( 'Business::PayPal::API::TransactionSearch' ); require 't/API.pl'; my %args = do_args(); -my $resp =''; my $pp = new Business::PayPal::API::TransactionSearch( %args ); print STDERR <<"_TRANSID_"; Please login to the PayPal Developer's site, and start a sandbox in -the Business account you want to test. +the Business account you want to test. This function will allow you +to view MassPayment transactions by transaction ID's. It may fail for +other types of transaction ID's. The GetTransactionDetails can be +used in those cases but not for Mass Payment transactions. I know, I'm +just the messenger. Review the Business accounts transaction history: My Account -> History (tab) -Click the 'Details' link for a transaction whose status is -'Completed'. Copy the Transaction ID for that transaction. The -transaction id may appear like this: - - Express Checkout Payment Received (ID # 2DE2563K55B16978M) +Click the 'Details' link for a Mass Payment transaction whose status is +'Processed'. Go to the bottom of the page and click "View Detail". It will +give you download choices. Download it however you prefer the copy the +Transaction ID from the message. _TRANSID_ @@ -38,10 +40,11 @@ my $transid = ; chomp $transid; die "Need a transaction id.\n" unless $transid; -my $startdate = '1998-01-01T00:00:00Z'; ## before PayPal +my $startdate = '1998-01-01T01:45:10.00Z'; #$Business::PayPal::API::Debug = 1; my $resp = $pp->TransactionSearch( StartDate => $startdate, - TransactionID => $transid, ); + TransactionID => $transid, + ); +ok( scalar @$resp , "Matching Transactions Found"); -ok( scalar @$resp, "matching transaction(s) found" );