gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 8837 [QA Followup] - Add unit tests 

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
This commit is contained in:
Kyle M Hall 2014-10-24 08:59:52 -04:00 committed by Tomas Cohen Arazi
parent a61c3a7688
commit 5aa6953cc4
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
t/ClassSortRoutine_Dewey.t
View File

@ -6,7 +6,7 @@
use strict;
use warnings;
use Test::More tests => 7;
use Test::More tests => 10;
BEGIN {
use_ok('C4::ClassSortRoutine::Dewey');
@ -30,3 +30,12 @@ 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");