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 1277-1279 subtest 'delete() tests' => sub { Link Here
1277
1277
1278
    $schema->storage->txn_rollback;
1278
    $schema->storage->txn_rollback;
1279
};
1279
};
1280
- 
1280
1281
subtest '_new_from_dbic() tests' => sub {
1282
1283
    plan tests => 7;
1284
1285
    $schema->storage->txn_begin;
1286
1287
    my $biblio = $builder->build_sample_biblio();
1288
1289
    my $items_scalar = $biblio->items;
1290
    my @items_list   = $biblio->items;
1291
1292
    is( ref($items_scalar), 'Koha::Items', 'Blessed object type is correct' );
1293
    is( $items_scalar->count, 0, 'No items in resultset' );
1294
    is( scalar @items_list, 0, 'Empty list in list context' );
1295
1296
    my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
1297
    my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
1298
1299
    $items_scalar = $biblio->items;
1300
    @items_list   = $biblio->items;
1301
1302
    is( $items_scalar->count, 2, 'No items in resultset' );
1303
    is( scalar @items_list, 2, 'Empty list in list context' );
1304
    is( $items_list[0]->itemnumber, $item_1->itemnumber, 'First element correct' );
1305
    is( $items_list[1]->itemnumber, $item_2->itemnumber, 'Second element correct' );
1306
1307
    $schema->storage->txn_rollback;
1308
};

Return to bug 28883