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 |
- |
|
|