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

(-)a/t/db_dependent/Koha/Patrons.t (-2 / +54 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 31;
22
use Test::More tests => 32;
23
use Test::Warn;
23
use Test::Warn;
24
use Time::Fake;
24
use Time::Fake;
25
use DateTime;
25
use DateTime;
Lines 1377-1382 subtest 'Log cardnumber change' => sub { Link Here
1377
    is( scalar @logs, 2, 'With BorrowerLogs, Change in cardnumber should be logged, as well as general alert of patron mod.' );
1377
    is( scalar @logs, 2, 'With BorrowerLogs, Change in cardnumber should be logged, as well as general alert of patron mod.' );
1378
};
1378
};
1379
1379
1380
subtest 'Patron->guarantees' => sub {
1381
    plan tests => 5;
1382
1383
    my $builder = t::lib::TestBuilder->new;
1384
1385
    my $categorycode = $builder->build({ source => 'Category' })->{categorycode};
1386
    my $branchcode = $builder->build({ source => 'Branch' })->{branchcode};
1387
1388
    my $guarantor = $builder->build_object( { class => 'Koha::Patrons' } );
1389
1390
    my $guarantee1 = $builder->build_object( { class => 'Koha::Patrons' ,  value => {
1391
            surname => 'Zebra',
1392
            guarantorid => $guarantor->borrowernumber
1393
        }
1394
    })->borrowernumber;
1395
1396
    my $guarantee2 = $builder->build_object( { class => 'Koha::Patrons' ,  value => {
1397
            surname => 'Yak',
1398
            guarantorid => $guarantor->borrowernumber
1399
        }
1400
    })->borrowernumber;
1401
1402
    my $guarantee3 = $builder->build_object( { class => 'Koha::Patrons' ,  value => {
1403
            surname => 'Xerus',
1404
            firstname => 'Walrus',
1405
            guarantorid => $guarantor->borrowernumber
1406
        }
1407
    })->borrowernumber;
1408
1409
    my $guarantee4 = $builder->build_object( { class => 'Koha::Patrons' ,  value => {
1410
            surname => 'Xerus',
1411
            firstname => 'Vulture',
1412
            guarantorid => $guarantor->borrowernumber
1413
        }
1414
    })->borrowernumber;
1415
1416
    my $guarantee5 = $builder->build_object( { class => 'Koha::Patrons' ,  value => {
1417
            surname => 'Xerus',
1418
            firstname => 'Unicorn',
1419
            guarantorid => $guarantor->borrowernumber
1420
        }
1421
    })->borrowernumber;
1422
1423
    my $guarantees = $guarantor->guarantees();
1424
1425
    is( $guarantees->next()->borrowernumber, $guarantee5, "Return first guarantor alphabetically" );
1426
    is( $guarantees->next()->borrowernumber, $guarantee4, "Return second guarantor alphabetically" );
1427
    is( $guarantees->next()->borrowernumber, $guarantee3, "Return third guarantor alphabetically" );
1428
    is( $guarantees->next()->borrowernumber, $guarantee2, "Return fourth guarantor alphabetically" );
1429
    is( $guarantees->next()->borrowernumber, $guarantee1, "Return fifth guarantor alphabetically" );
1430
1431
};
1432
1380
$schema->storage->txn_rollback;
1433
$schema->storage->txn_rollback;
1381
1434
1382
subtest 'Test Koha::Patrons::merge' => sub {
1435
subtest 'Test Koha::Patrons::merge' => sub {
1383
- 

Return to bug 18635