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

(-)a/t/db_dependent/Koha/Patrons.t (-2 / +32 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 41;
22
use Test::More tests => 42;
23
use Test::Warn;
23
use Test::Warn;
24
use Test::Exception;
24
use Test::Exception;
25
use Test::MockModule;
25
use Test::MockModule;
Lines 2204-2206 subtest 'extended_attributes' => sub { Link Here
2204
2204
2205
    $schema->storage->txn_rollback;
2205
    $schema->storage->txn_rollback;
2206
};
2206
};
2207
- 
2207
2208
subtest 'fixup_cardnumber' => sub {
2209
2210
    plan tests => 3;
2211
2212
    $schema->storage->txn_begin;
2213
2214
    Koha::Holds->search->delete;
2215
    Koha::Checkouts->search->delete;
2216
    Koha::Patrons->search->delete;
2217
2218
    my $new_patron = Koha::Patron->new->fixup_cardnumber;
2219
    is( $new_patron->cardnumber, 1, "NULL+1=1" );
2220
2221
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => "a string"} });
2222
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => 10} });
2223
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => 100} });
2224
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => 20} });
2225
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => "a big 9999 string"} });
2226
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => "P13000"} });
2227
2228
    $new_patron = Koha::Patron->new->fixup_cardnumber;
2229
    is( $new_patron->cardnumber, 101, "100+1=101" );
2230
2231
    $builder->build_object({ class => 'Koha::Patrons', value => {cardnumber => 603628999632182575912} });
2232
2233
    $new_patron = Koha::Patron->new->fixup_cardnumber;
2234
    is( $new_patron->cardnumber, 603628999632182575914, "603628999632182575912+1=603628999632182575913" );
2235
2236
    $schema->storage->txn_rollback;
2237
};

Return to bug 26035