View | Details | Raw Unified | Return to bug 8837
Collapse All | Expand All

(-)a/t/ClassSortRoutine_Dewey.t (-2 / +10 lines)
Lines 6-12 Link Here
6
use strict;
6
use strict;
7
use warnings;
7
use warnings;
8
8
9
use Test::More tests => 7;
9
use Test::More tests => 10;
10
10
11
BEGIN {
11
BEGIN {
12
        use_ok('C4::ClassSortRoutine::Dewey');
12
        use_ok('C4::ClassSortRoutine::Dewey');
Lines 30-32 is($cn_sort,"AB_C123_45_600000000000000","testing middle whitespace"); Link Here
30
$cn_sort     = C4::ClassSortRoutine::Dewey::get_class_sort_key("YR DVD 800.1","");
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","");
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" );
32
ok( $cn_sort lt $cn_sort2, "testing prefix plus decimal" );
33
- 
33
34
$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("971/P23w/v.1-2/pt.8","");
35
is($cn_sort,"971_000000000000000_P23W_V_12_PT_8", "Test 1 for bug 8836");
36
37
$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("971.01 P23w v.1-2 pt.6-7","");
38
is($cn_sort,"971_010000000000000_P23W_V_12_PT_67", "Test 2 for bug 8836");
39
40
$cn_sort = C4::ClassSortRoutine::Dewey::get_class_sort_key("971.01 P23w v.1-2 pt.7","");
41
is($cn_sort,"971_010000000000000_P23W_V_12_PT_7", "Test 3 for bug 8836");

Return to bug 8837