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

(-)a/t/db_dependent/Koha/Patrons.t (-2 / +12 lines)
Lines 1526-1532 subtest 'Test Koha::Patrons::merge' => sub { Link Here
1526
};
1526
};
1527
1527
1528
subtest '->store' => sub {
1528
subtest '->store' => sub {
1529
    plan tests => 3;
1529
    plan tests => 5;
1530
    my $schema = Koha::Database->new->schema;
1530
    my $schema = Koha::Database->new->schema;
1531
    $schema->storage->txn_begin;
1531
    $schema->storage->txn_begin;
1532
1532
Lines 1550-1555 subtest '->store' => sub { Link Here
1550
    $patron_1->surname('xxx')->store;
1550
    $patron_1->surname('xxx')->store;
1551
    is( $patron_1->password, $digest, 'Password should not have changed on ->store');
1551
    is( $patron_1->password, $digest, 'Password should not have changed on ->store');
1552
1552
1553
    # Test uppercasesurname
1554
    t::lib::Mocks::mock_preference( 'uppercasesurname', 1 );
1555
    my $surname = lc $patron_1->surname;
1556
    $patron_1->surname($surname)->store;
1557
    isnt( $patron_1->surname, $surname,
1558
        'Surname converts to uppercase on store.');
1559
    t::lib::Mocks::mock_preference( 'uppercasesurname', 0 );
1560
    $patron_1->surname($surname)->store;
1561
    is( $patron_1->surname, $surname,
1562
        'Surname remains unchanged on store.');
1563
1553
    $schema->storage->dbh->{PrintError} = $print_error;
1564
    $schema->storage->dbh->{PrintError} = $print_error;
1554
    $schema->storage->txn_rollback;
1565
    $schema->storage->txn_rollback;
1555
};
1566
};
1556
- 

Return to bug 23199