@@ -, +, @@ --- t/db_dependent/Koha/Acquisition/Basket.t | 32 +++++++++++++++++++++++- 1 file changed, 31 insertions(+), 1 deletion(-) --- a/t/db_dependent/Koha/Acquisition/Basket.t +++ a/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; --