View | Details | Raw Unified | Return to bug 28883
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Objects.t (-2 / +30 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 24;
22
use Test::More tests => 25;
23
use Test::Exception;
23
use Test::Exception;
24
use Test::MockModule;
24
use Test::MockModule;
25
use Test::Warn;
25
use Test::Warn;
Lines 1280-1282 subtest 'delete() tests' => sub { Link Here
1280
1280
1281
    $schema->storage->txn_rollback;
1281
    $schema->storage->txn_rollback;
1282
};
1282
};
1283
- 
1283
1284
subtest '_new_from_dbic() tests' => sub {
1285
1286
    plan tests => 7;
1287
1288
    $schema->storage->txn_begin;
1289
1290
    my $biblio = $builder->build_sample_biblio();
1291
1292
    my $items_scalar = $biblio->items;
1293
    my @items_list   = $biblio->items;
1294
1295
    is( ref($items_scalar), 'Koha::Items', 'Blessed object type is correct' );
1296
    is( $items_scalar->count, 0, 'No items in resultset' );
1297
    is( scalar @items_list, 0, 'Empty list in list context' );
1298
1299
    my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
1300
    my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
1301
1302
    $items_scalar = $biblio->items;
1303
    @items_list   = $biblio->items;
1304
1305
    is( $items_scalar->count, 2, 'No items in resultset' );
1306
    is( scalar @items_list, 2, 'Empty list in list context' );
1307
    is( $items_list[0]->itemnumber, $item_1->itemnumber, 'First element correct' );
1308
    is( $items_list[1]->itemnumber, $item_2->itemnumber, 'Second element correct' );
1309
1310
    $schema->storage->txn_rollback;
1311
};

Return to bug 28883