NPO-Accounting/perl-business-paypal-api
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Indentation change & Emacs variables to enforce it

Browse source 
The indentation style of this test file should match that of other
indentation in other tests.

I've also herein added Emacs variable settings to make sure Emacs users
have the same style enforced.
This commit is contained in:
Bradley M. Kuhn 2015-01-02 12:55:05 -05:00
parent 6c544426dd
commit dd0ff8e2f4
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
t/OptionFields.t
View file

@ -69,14 +69,23 @@ 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;
%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');
foreach my $options ($detail{PaymentItems}[0]{Options}, $detail{PII_Options}) {
ok((scalar(@$options) == 2 and $options->[0] eq '' and $options->[0] eq ''),
"PaymentItems's Options has 2 elements with empty strings");
ok((scalar(@$options) == 2 and $options->[0] eq '' and $options->[0] eq ''),
"PaymentItems's Options has 2 elements with empty strings");
}
# Local Variables:
# Mode: CPerl
# indent-tabs-mode: nil
# cperl-indent-level: 4
# cperl-brace-offset: 0
# cperl-continued-brace-offset: 0
# cperl-label-offset: -4
# cperl-continued-statement-offset: 4
# End: