@@ -, +, @@ --- t/db_dependent/Koha/Acquisition/Booksellers.t | 22 ++++++++++++++++++- 1 file changed, 21 insertions(+), 1 deletion(-) --- a/t/db_dependent/Koha/Acquisition/Booksellers.t +++ a/t/db_dependent/Koha/Acquisition/Booksellers.t @@ -17,7 +17,7 @@ use Modern::Perl; -use Test::More tests => 3; +use Test::More tests => 4; use t::lib::TestBuilder; @@ -172,3 +172,23 @@ subtest '->contacts() tests' => sub { $schema->storage->txn_rollback(); }; + +subtest 'aliases' => sub { + + plan tests => 3; + + $schema->storage->txn_begin(); + + my $vendor = $builder->build_object( { class => 'Koha::Acquisition::Booksellers' } ); + + is( $vendor->aliases->count, 0, 'Vendor has no aliases' ); + + $vendor->aliases( [ { alias => 'alias 1' }, { alias => 'alias 2' } ] ); + + $vendor = $vendor->get_from_storage; + my $aliases = $vendor->aliases; + is( $aliases->count, 2 ); + is( ref($aliases), 'Koha::Acquisition::Bookseller::Aliases', 'Type is correct' ); + + $schema->storage->txn_rollback(); +}; --