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

(-)a/t/ClassSortRoutine_Generic.t (-2 / +12 lines)
Lines 6-14 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 1;
9
use Test::More tests => 3;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::ClassSortRoutine::Generic');
12
        use_ok('C4::ClassSortRoutine::Generic');
13
}
13
}
14
14
15
- 
15
my $cn_class = "My class ";
16
my $cn_item = " hellO";
17
18
my $cn_sort = C4::ClassSortRoutine::Generic::get_class_sort_key($cn_class, $cn_item); 
19
20
is($cn_sort,"MY_CLASS_HELLO","testing cnsort");
21
22
$cn_sort = C4::ClassSortRoutine::Generic::get_class_sort_key(undef, undef); 
23
24
is($cn_sort,"","Testing blank cnsort");
25

Return to bug 5327