# This file is part of Business:PayPal:API Module. License: Same as Perl. See its README for details. # -*- mode: cperl -*- use Test::More; use strict; 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; } use_ok( 'Business::PayPal::API::TransactionSearch' ); use_ok( 'Business::PayPal::API::GetTransactionDetails' ); ######################### require 't/API.pl'; my %args = do_args(); =pod These tests verify the options work. =cut open(OPTIONS_PAY_HTML, ">", "options-payment.html") or die "unable to open options-payment.html: $!"; print OPTIONS_PAY_HTML <<_OPTIONS_PAYMENT_DATA_ _OPTIONS_PAYMENT_DATA_ ; close(OPTIONS_PAY_HTML); die "unable to write options-payment.html: $!" if ($? != 0); use Cwd; my $cwd = getcwd; print STDERR <<"_OPTIONS_LINK_"; Please note the next series of tests will not succeeed unless there is at least one transaction that is part of a subscription payments in your business account. if you haven't made one yet, you can visit: file://$cwd/options-payment.html and use the sandbox buyer account to make the payment. _OPTIONS_LINK_ my $startdate = '1998-01-01T01:45:10.00Z'; my $ts = new Business::PayPal::API::TransactionSearch( %args ); my $td = new Business::PayPal::API::GetTransactionDetails( %args ); my $resp = $ts->TransactionSearch(StartDate => $startdate); my %detail; foreach my $record (@{$resp}) { %detail = $td->GetTransactionDetails(TransactionID => $record->{TransactionID}); last if $detail{PII_Name} =~ /Field\s+Options/i; } like($detail{PaymentItems}[0]{Name}, qr/Field\s+Options/i, 'Found field options test transaction'); like($detail{PII_Name}, qr/Field\s+Options/i, 'Found field options test transaction');