diff options
-rw-r--r-- | lib/WWW/YNAB.pm | 15 | ||||
-rw-r--r-- | t/budget.t | 3 |
2 files changed, 18 insertions, 0 deletions
diff --git a/lib/WWW/YNAB.pm b/lib/WWW/YNAB.pm index b44e004..192b5b0 100644 --- a/lib/WWW/YNAB.pm +++ b/lib/WWW/YNAB.pm @@ -117,6 +117,21 @@ sub budget { my @transactions = map { my %transaction = %$_; + ($transaction{account_name}) = map { + $_->{name} + } grep { + $_->{id} eq $transaction{account_id} + } @{ $budget{accounts} }; + ($transaction{payee_name}) = map { + $_->{name} + } grep { + $_->{id} eq $transaction{payee_id} + } @{ $budget{payees} }; + ($transaction{category_name}) = map { + $_->{name} + } grep { + $_->{id} eq $transaction{category_id} + } @{ $budget{categories} }; $transaction{subtransactions} = [ map { $self->model_from_data('WWW::YNAB::SubTransaction', $_) @@ -97,6 +97,9 @@ is($transactions[0]->category_id, "33333333-3333-3333-3333-444444444444"); is($transactions[0]->transfer_account_id, undef); is($transactions[0]->import_id, "YNAB:-98760:2018-06-18:1"); ok(!$transactions[0]->deleted); +is($transactions[0]->account_name, "Checking Account"); +is($transactions[0]->payee_name, "the power company"); +is($transactions[0]->category_name, "Utilities"); is(scalar $transactions[0]->subtransactions, 0); my @subtransactions = $transactions[2]->subtransactions; |