|
Lines 1299-1308
subtest '_new_from_dbic() tests' => sub {
Link Here
|
| 1299 |
$items_scalar = $biblio->items; |
1299 |
$items_scalar = $biblio->items; |
| 1300 |
@items_list = $biblio->items; |
1300 |
@items_list = $biblio->items; |
| 1301 |
|
1301 |
|
| 1302 |
is( $items_scalar->count, 2, 'No items in resultset' ); |
1302 |
is( $items_scalar->count, 2, 'Check count on resultset' ); |
| 1303 |
is( scalar @items_list, 2, 'Empty list in list context' ); |
1303 |
is( scalar @items_list, 2, 'Check number of entries returned in list context' ); |
| 1304 |
is( $items_list[0]->itemnumber, $item_1->itemnumber, 'First element correct' ); |
1304 |
is( $items_list[0]->itemnumber, $item_1->itemnumber, 'First element correct' ); |
| 1305 |
is( $items_list[1]->itemnumber, $item_2->itemnumber, 'Second element correct' ); |
1305 |
is( $items_list[1]->itemnumber, $item_2->itemnumber, 'Second element correct' ); |
| 1306 |
|
1306 |
|
| 1307 |
$schema->storage->txn_rollback; |
1307 |
$schema->storage->txn_rollback; |
| 1308 |
}; |
1308 |
}; |
| 1309 |
- |
|
|