t/ClassSortRoutine_Generic.t

   1 #!/usr/bin/perl
   2 #
   3 # This Koha test module is a stub!
   4 # Add more tests here!!!
   5
   6 use strict;
   7 use warnings;
   8
   9 use Test::More tests => 3;
  10
  11 BEGIN {
  12         use_ok('C4::ClassSortRoutine::Generic', qw( get_class_sort_key ));
  13 }
  14
  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");