From 2065c302e100b716f87181137dacb1fe070788c6 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 20 Jan 2020 15:59:59 -0300 Subject: [PATCH] Bug 24464: Unit tests Signed-off-by: David Nind --- t/db_dependent/Koha/Acquisition/Basket.t | 32 +++++++++++++++++++++++++++++++- 1 file changed, 31 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Acquisition/Basket.t b/t/db_dependent/Koha/Acquisition/Basket.t index 2bcf481b88..dfa7b6fab3 100644 --- a/t/db_dependent/Koha/Acquisition/Basket.t +++ b/t/db_dependent/Koha/Acquisition/Basket.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 5; +use Test::More tests => 6; use t::lib::TestBuilder; use t::lib::Mocks; @@ -109,6 +109,36 @@ subtest 'basket_group' => sub { $schema->storage->txn_rollback; }; +subtest 'creator() tests' => sub { + + plan tests => 4; + + $schema->storage->txn_begin; + + my $basket = $builder->build_object( + { + class => 'Koha::Acquisition::Baskets', + value => { authorisedby => undef } + } + ); + + is( $basket->creator, undef, 'Undef is handled as expected' ); + + my $patron = $builder->build_object({ class => 'Koha::Patrons' }); + $basket->authorisedby( $patron->borrowernumber )->store->discard_changes; + + my $creator = $basket->creator; + is( ref($creator), 'Koha::Patron', 'Return type is correct' ); + is( $creator->borrowernumber, $patron->borrowernumber, 'Returned object is the right one' ); + + # Delete the patron + $patron->delete; + + is( $basket->creator, undef, 'Undef is handled as expected' ); + + $schema->storage->txn_rollback; +}; + subtest 'to_api() tests' => sub { plan tests => 6; -- 2.11.0