|
Lines 1-7
Link Here
|
| 1 |
#!/usr/bin/perl |
1 |
#!/usr/bin/perl |
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
use Test::More tests => 17; |
4 |
use Test::More tests => 16; |
| 5 |
use Try::Tiny; |
5 |
use Try::Tiny; |
| 6 |
|
6 |
|
| 7 |
use t::lib::TestBuilder; |
7 |
use t::lib::TestBuilder; |
|
Lines 137-144
is( @$limits, 2, 'library_limits functions correctly both as setter and getter'
Link Here
|
| 137 |
|
137 |
|
| 138 |
my @categories = Koha::AuthorisedValues->new->categories; |
138 |
my @categories = Koha::AuthorisedValues->new->categories; |
| 139 |
is( @categories, @existing_categories+3, 'There should have 3 categories inserted' ); |
139 |
is( @categories, @existing_categories+3, 'There should have 3 categories inserted' ); |
| 140 |
is( $categories[0], $av4->category, 'The first category should be correct (ordered by category name)' ); |
140 |
is_deeply( |
| 141 |
is( $categories[1], $av1->category, 'The second category should be correct (ordered by category name)' ); |
141 |
\@categories, |
|
|
142 |
[ sort { uc $a cmp uc $b } @categories ], |
| 143 |
'categories must be ordered by category names' |
| 144 |
); |
| 142 |
|
145 |
|
| 143 |
subtest 'search_by_*_field + find_by_koha_field + get_description' => sub { |
146 |
subtest 'search_by_*_field + find_by_koha_field + get_description' => sub { |
| 144 |
plan tests => 5; |
147 |
plan tests => 5; |
| 145 |
- |
|
|