Lines 97-103
subtest 'smtp_server() tests' => sub {
Link Here
|
97 |
}; |
97 |
}; |
98 |
|
98 |
|
99 |
subtest 'opac_info tests' => sub { |
99 |
subtest 'opac_info tests' => sub { |
100 |
plan tests => 8; |
100 |
plan tests => 14; |
101 |
$schema->storage->txn_begin; |
101 |
$schema->storage->txn_begin; |
102 |
my $library01 = $builder->build_object( { class => 'Koha::Libraries' } ); |
102 |
my $library01 = $builder->build_object( { class => 'Koha::Libraries' } ); |
103 |
my $library02 = $builder->build_object( { class => 'Koha::Libraries' } ); |
103 |
my $library02 = $builder->build_object( { class => 'Koha::Libraries' } ); |
Lines 160-180
subtest 'opac_info tests' => sub {
Link Here
|
160 |
|
160 |
|
161 |
# Start testing |
161 |
# Start testing |
162 |
my @opac_info1 = $library01->opac_info->as_list; |
162 |
my @opac_info1 = $library01->opac_info->as_list; |
163 |
is( $opac_info1[0]->content, '2', 'specific library, default language' ); |
163 |
is( scalar @opac_info1, 2, 'specific library returns 2' ); |
|
|
164 |
ok( ( grep { $_->content eq '2' } @opac_info1 ), 'specific library, default language' ); |
164 |
|
165 |
|
165 |
my @opac_info2 = $library01->opac_info( { lang => 'nl-NL' } )->as_list; |
166 |
my @opac_info2 = $library01->opac_info( { lang => 'nl-NL' } )->as_list; |
166 |
is( $opac_info2[0]->content, '3', 'specific library, specific language' ); |
167 |
is( scalar @opac_info2, 2, 'specific library with nl-NL returns 2' ); |
|
|
168 |
ok( ( grep { $_->content eq '3' } @opac_info2 ), 'specific library, specific language' ); |
167 |
|
169 |
|
168 |
my @opac_info3 = $library01->opac_info( { lang => 'nl-BE' } )->as_list; |
170 |
my @opac_info3 = $library01->opac_info( { lang => 'nl-BE' } )->as_list; |
169 |
is( $opac_info3[0]->content, '2', 'specific library, unknown language' ); |
171 |
is( scalar @opac_info3, 2, 'specific library with unknown language returns 2' ); |
|
|
172 |
ok( ( grep { $_->content eq '2' } @opac_info3 ), 'specific library, unknown language' ); |
170 |
|
173 |
|
171 |
my @opac_info4 = $library02->opac_info->as_list; |
174 |
my @opac_info4 = $library02->opac_info->as_list; |
|
|
175 |
is( scalar @opac_info4, 1, 'unknown library returns 1' ); |
172 |
is( $opac_info4[0]->content, '1', 'unknown library, default language' ); |
176 |
is( $opac_info4[0]->content, '1', 'unknown library, default language' ); |
173 |
|
177 |
|
174 |
my @opac_info5 = $library02->opac_info( { lang => 'fr-FR' } )->as_list; |
178 |
my @opac_info5 = $library02->opac_info( { lang => 'fr-FR' } )->as_list; |
175 |
is( $opac_info5[0]->content, '4', 'unknown library, specific language' ); |
179 |
is( scalar @opac_info5, 2, 'unknown library with fr-FR returns 2' ); |
|
|
180 |
ok( ( grep { $_->content eq '4' } @opac_info5 ), 'unknown library, specific language' ); |
176 |
|
181 |
|
177 |
my @opac_info6 = $library02->opac_info( { lang => 'de-DE' } )->as_list; |
182 |
my @opac_info6 = $library02->opac_info( { lang => 'de-DE' } )->as_list; |
|
|
183 |
is( scalar @opac_info6, 1, 'unknown library with unknown language returns 1' ); |
178 |
is( $opac_info6[0]->content, '1', 'unknown library, unknown language' ); |
184 |
is( $opac_info6[0]->content, '1', 'unknown library, unknown language' ); |
179 |
|
185 |
|
180 |
$html01->delete; |
186 |
$html01->delete; |
181 |
- |
|
|