|
Lines 19-25
Link Here
|
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Test::More tests => 30; |
22 |
use Test::More tests => 31; |
| 23 |
use Test::Exception; |
23 |
use Test::Exception; |
| 24 |
use Test::Warn; |
24 |
use Test::Warn; |
| 25 |
use Time::Fake; |
25 |
use Time::Fake; |
|
Lines 29-34
use Koha::Database;
Link Here
|
| 29 |
use Koha::DateUtils qw(dt_from_string); |
29 |
use Koha::DateUtils qw(dt_from_string); |
| 30 |
use Koha::ArticleRequests; |
30 |
use Koha::ArticleRequests; |
| 31 |
use Koha::Patrons; |
31 |
use Koha::Patrons; |
|
|
32 |
use Koha::List::Patron qw(AddPatronList AddPatronsToList); |
| 32 |
use Koha::Patron::Relationships; |
33 |
use Koha::Patron::Relationships; |
| 33 |
use C4::Circulation qw( AddIssue AddReturn ); |
34 |
use C4::Circulation qw( AddIssue AddReturn ); |
| 34 |
|
35 |
|
|
Lines 2114-2116
subtest 'update_lastseen tests' => sub {
Link Here
|
| 2114 |
Time::Fake->reset; |
2115 |
Time::Fake->reset; |
| 2115 |
$schema->storage->txn_rollback; |
2116 |
$schema->storage->txn_rollback; |
| 2116 |
}; |
2117 |
}; |
| 2117 |
- |
2118 |
|
|
|
2119 |
subtest 'get_lists_with_patron() tests' => sub { |
| 2120 |
|
| 2121 |
plan tests => 4; |
| 2122 |
|
| 2123 |
$schema->storage->txn_begin; |
| 2124 |
|
| 2125 |
my $owner = $builder->build_object( { class => 'Koha::Patrons' } ); |
| 2126 |
|
| 2127 |
my $list_1 = AddPatronList( { name => ' Ya', owner => $owner->id } ); |
| 2128 |
my $list_2 = AddPatronList( { name => 'Hey!', owner => $owner->id } ); |
| 2129 |
|
| 2130 |
my $patron = $builder->build_object( { class => 'Koha::Patrons' } ); |
| 2131 |
|
| 2132 |
my @lists = $patron->get_lists_with_patron(); |
| 2133 |
|
| 2134 |
is( scalar @lists, 0, 'Patron not included in any list' ); |
| 2135 |
|
| 2136 |
AddPatronsToList( { list => $list_1, cardnumbers => [ $patron->cardnumber ] } ); |
| 2137 |
AddPatronsToList( { list => $list_2, cardnumbers => [ $patron->cardnumber ] } ); |
| 2138 |
|
| 2139 |
@lists = $patron->get_lists_with_patron(); |
| 2140 |
foreach my $list (@lists) { |
| 2141 |
is( ref($list), 'Koha::Schema::Result::PatronList', 'Type is correct' ); |
| 2142 |
} |
| 2143 |
|
| 2144 |
is( join( ' ', map { $_->name } @lists ), ' Ya Hey!', 'Lists are the correct ones, and sorted alphabetically' ); |
| 2145 |
|
| 2146 |
$schema->storage->txn_rollback; |
| 2147 |
}; |