t/ClassSortRoutine_Dewey.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 => 7;
  10
  11 BEGIN {
  12         use_ok('C4::ClassSortRoutine::Dewey');
  13 }
  14
  15 my $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key(undef, undef );
  16 is($cn_sort,"","testing whitespace");
  17
  18 $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("....",".....");
  19 is($cn_sort,"","testing fullstops");
  20
  21 $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("123","456");
  22 is($cn_sort,"123_456000000000000","testing numbers");
  23
  24 $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("abc123","456");
  25 is($cn_sort,"ABC_123_456000000000000","testing alphanumeric");
  26
  27 $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("ab         c123","45   6");
  28 is($cn_sort,"AB_C123_45_600000000000000","testing middle whitespace");
  29
  30 $cn_sort     = C4::ClassSortRoutine::Dewey::get_class_sort_key("YR DVD 800.1","");
  31 my $cn_sort2 = C4::ClassSortRoutine::Dewey::get_class_sort_key("YR DVD 900","");
  32 ok( $cn_sort lt $cn_sort2, "testing prefix plus decimal" );