Lines 2694-2701
subtest 'preferred_name' => sub {
Link Here
|
2694 |
|
2694 |
|
2695 |
$schema->storage->txn_begin; |
2695 |
$schema->storage->txn_begin; |
2696 |
|
2696 |
|
2697 |
my $tmp_patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
2697 |
my $tmp_patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
2698 |
my $patron_data = $tmp_patron->unblessed; |
2698 |
my $patron_data = $tmp_patron->unblessed; |
2699 |
$tmp_patron->delete; |
2699 |
$tmp_patron->delete; |
2700 |
delete $patron_data->{borrowernumber}; |
2700 |
delete $patron_data->{borrowernumber}; |
2701 |
delete $patron_data->{preferred_name}; |
2701 |
delete $patron_data->{preferred_name}; |
Lines 2707-2713
subtest 'preferred_name' => sub {
Link Here
|
2707 |
} |
2707 |
} |
2708 |
)->store; |
2708 |
)->store; |
2709 |
|
2709 |
|
2710 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on creation when not defined"); |
2710 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on creation when not defined" ); |
2711 |
|
2711 |
|
2712 |
$patron->delete; |
2712 |
$patron->delete; |
2713 |
|
2713 |
|
Lines 2720-2731
subtest 'preferred_name' => sub {
Link Here
|
2720 |
} |
2720 |
} |
2721 |
)->store; |
2721 |
)->store; |
2722 |
|
2722 |
|
2723 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on creation when empty string"); |
2723 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on creation when empty string" ); |
2724 |
|
2724 |
|
2725 |
$patron->delete; |
2725 |
$patron->delete; |
2726 |
|
2726 |
|
2727 |
$patron_data->{preferred_name} = "Preferred"; |
2727 |
$patron_data->{preferred_name} = "Preferred"; |
2728 |
$patron_data->{firstname} = "Not Preferred"; |
2728 |
$patron_data->{firstname} = "Not Preferred"; |
2729 |
|
2729 |
|
2730 |
$patron = Koha::Patron->new( |
2730 |
$patron = Koha::Patron->new( |
2731 |
|
2731 |
|
Lines 2734-2748
subtest 'preferred_name' => sub {
Link Here
|
2734 |
} |
2734 |
} |
2735 |
)->store; |
2735 |
)->store; |
2736 |
|
2736 |
|
2737 |
is( $patron->preferred_name, "Preferred", "Preferred name set when passed on creation"); |
2737 |
is( $patron->preferred_name, "Preferred", "Preferred name set when passed on creation" ); |
2738 |
|
2738 |
|
2739 |
$patron->preferred_name("")->store; |
2739 |
$patron->preferred_name("")->store; |
2740 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on update when empty string"); |
2740 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on update when empty string" ); |
2741 |
|
2741 |
|
2742 |
$patron->preferred_name(undef)->store(); |
2742 |
$patron->preferred_name(undef)->store(); |
2743 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on update when undef"); |
2743 |
is( $patron->preferred_name, $patron->firstname, "Preferred name set to first name on update when undef" ); |
2744 |
|
2744 |
|
2745 |
$patron->preferred_name("Preferred again")->store(); |
2745 |
$patron->preferred_name("Preferred again")->store(); |
2746 |
is( $patron->preferred_name, "Preferred again", "Preferred name set on update when passed"); |
2746 |
is( $patron->preferred_name, "Preferred again", "Preferred name set on update when passed" ); |
2747 |
|
2747 |
|
2748 |
}; |
2748 |
}; |
2749 |
- |
|
|