|
Lines 221-230
WRAPPED
Link Here
|
| 221 |
|
221 |
|
| 222 |
subtest 'patron() tests' => sub { |
222 |
subtest 'patron() tests' => sub { |
| 223 |
|
223 |
|
| 224 |
plan tests => 2; |
224 |
plan tests => 4; |
| 225 |
|
225 |
|
| 226 |
$schema->storage->txn_begin; |
226 |
$schema->storage->txn_begin; |
| 227 |
|
227 |
|
|
|
228 |
# Valid patron and message |
| 228 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
229 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
| 229 |
my $message = $builder->build_object( |
230 |
my $message = $builder->build_object( |
| 230 |
{ |
231 |
{ |
|
Lines 232-241
subtest 'patron() tests' => sub {
Link Here
|
| 232 |
value => { borrowernumber => $patron->borrowernumber } |
233 |
value => { borrowernumber => $patron->borrowernumber } |
| 233 |
} |
234 |
} |
| 234 |
); |
235 |
); |
|
|
236 |
my $message_id = $message->message_id; |
| 235 |
|
237 |
|
| 236 |
is( ref( $message->patron ), 'Koha::Patron', 'Object type is correct' ); |
238 |
is( ref( $message->patron ), 'Koha::Patron', 'Object type is correct' ); |
| 237 |
is( $message->patron->borrowernumber, $patron->borrowernumber, 'Right patron linked' ); |
239 |
is( $message->patron->borrowernumber, $patron->borrowernumber, 'Right patron linked' ); |
| 238 |
|
240 |
|
|
|
241 |
# Deleted patron |
| 242 |
$patron->delete; |
| 243 |
$message = Koha::Notice::Messages->find($message_id); |
| 244 |
is( $message, undef, 'Deleting the patron also deletes the associated message' ); |
| 245 |
|
| 246 |
# Missing patron |
| 247 |
$message = $builder->build_object( |
| 248 |
{ |
| 249 |
class => 'Koha::Notice::Messages', |
| 250 |
value => { borrowernumber => undef } |
| 251 |
} |
| 252 |
); |
| 253 |
|
| 254 |
is( $message->patron, undef, 'Returns undef if borrowernumber is missing' ); |
| 255 |
|
| 239 |
$schema->storage->txn_rollback; |
256 |
$schema->storage->txn_rollback; |
| 240 |
}; |
257 |
}; |
| 241 |
|
258 |
|
| 242 |
- |
|
|