|
Lines 2-8
Link Here
|
| 2 |
|
2 |
|
| 3 |
use Modern::Perl; |
3 |
use Modern::Perl; |
| 4 |
|
4 |
|
| 5 |
use Test::More tests => 24; |
5 |
use Test::More tests => 25; |
|
|
6 |
use Test::Warn; |
| 6 |
|
7 |
|
| 7 |
use C4::Context; |
8 |
use C4::Context; |
| 8 |
|
9 |
|
|
Lines 126-133
is_deeply(
Link Here
|
| 126 |
); |
127 |
); |
| 127 |
|
128 |
|
| 128 |
#Test GetClassSort |
129 |
#Test GetClassSort |
| 129 |
my $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' ) |
130 |
my $getclassSort; |
| 130 |
; #Note: Create a warning:" attempting to use non-existent class sorting routine $sort_routine" |
131 |
#Note: Create a warning:" attempting to use non-existent class sorting routine $sort_routine" |
|
|
132 |
warning_like |
| 133 |
{ $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' ) } |
| 134 |
qr/attempting to use non-existent class sorting routine/, |
| 135 |
'Non-existent class warning caught'; |
| 131 |
is( $getclassSort, "SORTRULE1_ITEM1", |
136 |
is( $getclassSort, "SORTRULE1_ITEM1", |
| 132 |
" the sort key corresponding to Source1 and sortrule1 and item1 is SORTRULE1_ITEM1" |
137 |
" the sort key corresponding to Source1 and sortrule1 and item1 is SORTRULE1_ITEM1" |
| 133 |
); |
138 |
); |
| 134 |
- |
|
|