View | Details | Raw Unified | Return to bug 28633
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Patron.t (-10 / +9 lines)
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
- 

Return to bug 28633