Lines 19-25
use Modern::Perl;
Link Here
|
19 |
|
19 |
|
20 |
use utf8; |
20 |
use utf8; |
21 |
|
21 |
|
22 |
use Test::More tests => 6; |
22 |
use Test::More tests => 7; |
23 |
use Test::Exception; |
23 |
use Test::Exception; |
24 |
|
24 |
|
25 |
use t::lib::TestBuilder; |
25 |
use t::lib::TestBuilder; |
Lines 372-374
subtest 'pending_count() and pending() tests' => sub {
Link Here
|
372 |
|
372 |
|
373 |
$schema->storage->txn_rollback; |
373 |
$schema->storage->txn_rollback; |
374 |
}; |
374 |
}; |
375 |
- |
375 |
|
|
|
376 |
subtest 'dateofbirth tests' => sub { |
377 |
plan tests => 3; |
378 |
|
379 |
$schema->storage->txn_begin; |
380 |
|
381 |
# Cleaning the field |
382 |
my $patron = $builder->build_object( { class => 'Koha::Patrons', value => { dateofbirth => '1980-01-01' } } ); |
383 |
my $patron_modification = Koha::Patron::Modification->new( { borrowernumber => $patron->borrowernumber, dateofbirth => undef } |
384 |
)->store; |
385 |
$patron_modification->approve; |
386 |
|
387 |
$patron->discard_changes; |
388 |
is( $patron->dateofbirth, undef, 'dateofbirth must a been set to NULL if required' ); |
389 |
|
390 |
# FIXME ->approve must have been removed it, but it did not. There may be an hidden bug here. |
391 |
Koha::Patron::Modifications->search({ borrowernumber => $patron->borrowernumber })->delete; |
392 |
|
393 |
# Adding a dateofbirth |
394 |
$patron_modification = Koha::Patron::Modification->new( { borrowernumber => $patron->borrowernumber, dateofbirth => '1980-02-02' } |
395 |
)->store; |
396 |
$patron_modification->approve; |
397 |
|
398 |
$patron->discard_changes; |
399 |
is( $patron->dateofbirth, '1980-02-02', 'dateofbirth must a been set' ); |
400 |
|
401 |
# FIXME ->approve must have been removed it, but it did not. There may be an hidden bug here. |
402 |
Koha::Patron::Modifications->search({ borrowernumber => $patron->borrowernumber })->delete; |
403 |
|
404 |
# Modifying a dateofbirth |
405 |
$patron_modification = Koha::Patron::Modification->new( { borrowernumber => $patron->borrowernumber, dateofbirth => '1980-03-03' } |
406 |
)->store; |
407 |
$patron_modification->approve; |
408 |
|
409 |
$patron->discard_changes; |
410 |
is( $patron->dateofbirth, '1980-03-03', 'dateofbirth must a been updated' ); |
411 |
|
412 |
$schema->storage->txn_rollback; |
413 |
}; |