View | Details | Raw Unified | Return to bug 16860
Collapse All | Expand All

(-)a/t/db_dependent/ClassSource.t (-4 / +8 lines)
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
- 

Return to bug 16860