@@ -, +, @@ --- t/db_dependent/Koha/Objects.t | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) --- a/t/db_dependent/Koha/Objects.t +++ a/t/db_dependent/Koha/Objects.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 24; +use Test::More tests => 25; use Test::Exception; use Test::MockModule; use Test::Warn; @@ -1277,3 +1277,32 @@ subtest 'delete() tests' => sub { $schema->storage->txn_rollback; }; + +subtest '_new_from_dbic() tests' => sub { + + plan tests => 7; + + $schema->storage->txn_begin; + + my $biblio = $builder->build_sample_biblio(); + + my $items_scalar = $biblio->items; + my @items_list = $biblio->items; + + is( ref($items_scalar), 'Koha::Items', 'Blessed object type is correct' ); + is( $items_scalar->count, 0, 'No items in resultset' ); + is( scalar @items_list, 0, 'Empty list in list context' ); + + my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber }); + my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber }); + + $items_scalar = $biblio->items; + @items_list = $biblio->items; + + is( $items_scalar->count, 2, 'No items in resultset' ); + is( scalar @items_list, 2, 'Empty list in list context' ); + is( $items_list[0]->itemnumber, $item_1->itemnumber, 'First element correct' ); + is( $items_list[1]->itemnumber, $item_2->itemnumber, 'Second element correct' ); + + $schema->storage->txn_rollback; +}; --