X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FClassSortRoutine_Dewey.t;h=ae3549eb76ff5a959cfb66b32fe8a91d46ff73dc;hb=5d6c092921919526ade501facb1220f8a108a08f;hp=a2d3dc168187ee06ea9d8c0faddc177b8aac796d;hpb=8af6165f537c6324fa9184f3b0788ebf287820f8;p=koha_fer

diff --git a/t/ClassSortRoutine_Dewey.t b/t/ClassSortRoutine_Dewey.t
index a2d3dc1681..ae3549eb76 100755
--- a/t/ClassSortRoutine_Dewey.t
+++ b/t/ClassSortRoutine_Dewey.t
@@ -6,9 +6,27 @@
 use strict;
 use warnings;
 
-use Test::More tests => 1;
+use Test::More tests => 7;
 
 BEGIN {
         use_ok('C4::ClassSortRoutine::Dewey');
 }
 
+my $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key(undef, undef );
+is($cn_sort,"","testing whitespace");
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("....",".....");
+is($cn_sort,"","testing fullstops");
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("123","456");
+is($cn_sort,"123_456000000000000","testing numbers");
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("abc123","456");
+is($cn_sort,"ABC_123_456000000000000","testing alphanumeric");
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("ab         c123","45   6");
+is($cn_sort,"AB_C123_45_600000000000000","testing middle whitespace");
+
+$cn_sort     = C4::ClassSortRoutine::Dewey::get_class_sort_key("YR DVD 800.1","");
+my $cn_sort2 = C4::ClassSortRoutine::Dewey::get_class_sort_key("YR DVD 900","");
+ok( $cn_sort lt $cn_sort2, "testing prefix plus decimal" );