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"); |