File Coverage

File:t/ClassSortRoutine_Generic.t
Coverage:100.0%

linestmtbrancondsubtimecode
1#!/usr/bin/perl
2#
3# This Koha test module is a stub!
4# Add more tests here!!!
5
6
1
1
1
1
1.33283522375823e+15
2
25
use strict;
7
1
1
1
1
4
1
32
use warnings;
8
9
1
1
1
1
249
20784
13
use Test::More tests => 3;
10
11BEGIN {
12
1
1
1334
        use_ok('C4::ClassSortRoutine::Generic');
13}
14
15
1
203244
my $cn_class = "My class ";
16
1
2
my $cn_item = " hellO";
17
18
1
8
my $cn_sort = C4::ClassSortRoutine::Generic::get_class_sort_key($cn_class, $cn_item);
19
20
1
22
is($cn_sort,"MY_CLASS_HELLO","testing cnsort");
21
22
1
916
$cn_sort = C4::ClassSortRoutine::Generic::get_class_sort_key(undef, undef);
23
24
1
6
is($cn_sort,"","Testing blank cnsort");