|
Lines 999-1005
subtest '->orders, ->uncancelled_orders and ->acq_status tests' => sub {
Link Here
|
| 999 |
is( $biblio->acq_status, 'processing', 'Still processing for presence of new lines' ); |
999 |
is( $biblio->acq_status, 'processing', 'Still processing for presence of new lines' ); |
| 1000 |
$orders->filter_out_cancelled->update( { orderstatus => 'complete' } ); |
1000 |
$orders->filter_out_cancelled->update( { orderstatus => 'complete' } ); |
| 1001 |
is( $biblio->acq_status, 'acquired', 'Acquired: some complete, rest cancelled' ); |
1001 |
is( $biblio->acq_status, 'acquired', 'Acquired: some complete, rest cancelled' ); |
| 1002 |
$orders->cancel; |
1002 |
$orders->update( { orderstatus => 'cancelled', datecancellationprinted => dt_from_string() } ); |
| 1003 |
is( $biblio->acq_status, 'cancelled', 'Cancelled for only cancelled lines' ); |
1003 |
is( $biblio->acq_status, 'cancelled', 'Cancelled for only cancelled lines' ); |
| 1004 |
|
1004 |
|
| 1005 |
$schema->storage->txn_rollback; |
1005 |
$schema->storage->txn_rollback; |
| 1006 |
- |
|
|