X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FClassSortRoutine_Dewey.t;h=f4dc8e72e13cd5dd59b66f4c92be1d496d39085b;hb=075ef09f48b66df7766c22e1c9ecf1d3cf7a039a;hp=7a4d7f4e4c3b1c51b99dc1bc5379ed4510892fcb;hpb=f053ca0c22fdc0429fdcb1a7a67fde6171c971a9;p=srvgit

diff --git a/t/ClassSortRoutine_Dewey.t b/t/ClassSortRoutine_Dewey.t
index 7a4d7f4e4c..f4dc8e72e1 100755
--- a/t/ClassSortRoutine_Dewey.t
+++ b/t/ClassSortRoutine_Dewey.t
@@ -6,10 +6,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 6;
+use Test::More tests => 10;
 
 BEGIN {
-        use_ok('C4::ClassSortRoutine::Dewey');
+        use_ok('C4::ClassSortRoutine::Dewey', qw( get_class_sort_key ));
 }
 
 my $cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key(undef, undef );
@@ -26,3 +26,16 @@ 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" );
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("971/P23w/v.1-2/pt.8","");
+is($cn_sort,"971_000000000000000_P23W_V_12_PT_8", "Test 1 for bug 8836");
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("971.01 P23w v.1-2 pt.6-7","");
+is($cn_sort,"971_010000000000000_P23W_V_12_PT_67", "Test 2 for bug 8836");
+
+$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("971.01 P23w v.1-2 pt.7","");
+is($cn_sort,"971_010000000000000_P23W_V_12_PT_7", "Test 3 for bug 8836");