|
Lines 173-179
subtest 'receive tests' => sub {
Link Here
|
| 173 |
|
173 |
|
| 174 |
subtest 'in_transit tests' => sub { |
174 |
subtest 'in_transit tests' => sub { |
| 175 |
|
175 |
|
| 176 |
plan tests => 3; |
176 |
plan tests => 4; |
| 177 |
|
177 |
|
| 178 |
$schema->storage->txn_begin; |
178 |
$schema->storage->txn_begin; |
| 179 |
|
179 |
|
|
Lines 203-208
subtest 'in_transit tests' => sub {
Link Here
|
| 203 |
$transfer->datearrived(dt_from_string)->store; |
203 |
$transfer->datearrived(dt_from_string)->store; |
| 204 |
ok( !$transfer->in_transit, 'in_transit returns false when datearrived is defined'); |
204 |
ok( !$transfer->in_transit, 'in_transit returns false when datearrived is defined'); |
| 205 |
|
205 |
|
|
|
206 |
$transfer->set( { datearrived => undef, datecancelled => dt_from_string } )->store; |
| 207 |
ok( !$transfer->in_transit, 'in_transit returns false when datecancelled is defined'); |
| 206 |
|
208 |
|
| 207 |
$schema->storage->txn_rollback; |
209 |
$schema->storage->txn_rollback; |
| 208 |
}; |
210 |
}; |
| 209 |
- |
|
|