|
Lines 208-214
subtest 'in_transit tests' => sub {
Link Here
|
| 208 |
}; |
208 |
}; |
| 209 |
|
209 |
|
| 210 |
subtest 'cancel tests' => sub { |
210 |
subtest 'cancel tests' => sub { |
| 211 |
plan tests => 6; |
211 |
plan tests => 5; |
| 212 |
|
212 |
|
| 213 |
$schema->storage->txn_begin; |
213 |
$schema->storage->txn_begin; |
| 214 |
|
214 |
|
|
Lines 256-262
subtest 'cancel tests' => sub {
Link Here
|
| 256 |
$transfer->cancel($cancellation_reason); |
256 |
$transfer->cancel($cancellation_reason); |
| 257 |
ok( $transfer->datecancelled, 'Cancellation date set upon call to cancel' ); |
257 |
ok( $transfer->datecancelled, 'Cancellation date set upon call to cancel' ); |
| 258 |
is( $transfer->cancellation_reason, 'Manual', 'Cancellation reason is set'); |
258 |
is( $transfer->cancellation_reason, 'Manual', 'Cancellation reason is set'); |
| 259 |
is( $transfer->reason, 'Manual', 'Reason is not updated by cancelling the transfer' ); |
|
|
| 260 |
|
259 |
|
| 261 |
$schema->storage->txn_rollback; |
260 |
$schema->storage->txn_rollback; |
| 262 |
}; |
261 |
}; |
| 263 |
- |
|
|