1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
#!perl -T
use Library::CallNumber::LC;
use Test::More qw(no_plan);
use Math::BigInt;
my $a = Library::CallNumber::LC->new('A');
is($a->normalize, 'A', "Basic normalization");
is($a->normalize, $a->start_of_range, "Equvalent functions");
is($a->end_of_range, 'A~', "End of range");
$a->call_number('B11 A543');
is($a->normalize, 'B0011 A543', "Change call number");
is($a->call_number, 'B11 A543', "Retrieve call number text");
is($a->topper, ' ', "Retrieve 'topper'");
is($a->bottomer, '~', "Retrieve 'bottomer'");
my $LC = Library::CallNumber::LC->new();
is($LC->normalize('A11.1'), 'A00111', "Basic normalization");
is($LC->end_of_range('A11.1'), 'A00111~', "End of range");
is($a->normalize('B11'), 'B0011', "Passed in arg");
is($a->normalize('A 123.4 .c11'), 'A01234 C11', "Cutter");
is($a->normalize('B11 A543 B6'), 'B0011 A543 B6', "Two cutters");
is($a->start_of_range('B11 .c13 .d11'), 'B0011 C13 D11', "Two cutters start");
is($a->end_of_range('B11 .c13 .d11'), 'B0011 C13 D11~', "Two cutters end");
# try some alternate sort chars
# instance level
$a->topper('!');
$a->bottomer('_');
is($a->normalize('A0610.5 C75 M5'), 'A06105!C75!M5', "Instance level 'topper' setting");
is($a->end_of_range('A610.5'), 'A06105_', "Instance level 'bottomer' setting");
# instance level at construction
my $b = Library::CallNumber::LC->new('A123 C44', '$', ']');
is($b->end_of_range, 'A0123$C44]', "Instance level 'topper'/'bottomer'");
# class level
Library::CallNumber::LC->topper('#');
Library::CallNumber::LC->bottomer('^');
is(Library::CallNumber::LC->normalize('A0610.5 C75 M5'), 'A06105#C75#M5', "Class level 'topper' setting");
is(Library::CallNumber::LC->end_of_range('A610.5'), 'A06105^', "Class level 'bottomer' setting");
# reset back to defaults
Library::CallNumber::LC->topper(' ');
Library::CallNumber::LC->bottomer('~');
$a->topper(' ');
$a->bottomer('~');
is($a->normalize('A0610.5 C75 M5'), 'A06105 C75 M5', "Instance level 'topper' setting");
is(Library::CallNumber::LC->normalize('A0610.5 C75 M5'), 'A06105 C75 M5', "Class level 'topper' setting");
my @test = (
"a 0",
"a 1 1923",
"a 8 f166",
"a19 f96",
"a19f99g15",
"a19 .f99 g15 1997",
"a242 83 i65",
"a610 h18",
"a610.5 c75 m5 1910",
"a610.8 e8f 0",
"a610.9 c27pr 0",
"a610.9 c38tr 0",
"a610.9 f16",
"a610.9 g38n 0",
"a610.9 m96",
"a612.601 c8",
"a614.2 f36",
"a614.4972 c12 es 0",
"a615.1 n84",
"a615.11 f23",
"a615.3 s68pl 0",
"a615.7 o5l 0",
"a618.2 l58n 0",
"a618.2 r7g 0",
"a820.3 b 0",
"aa 0",
"aa39",
"aa102 ottawapt 1-final 0",
"ab 0",
"abc 0",
"ac 1 a52",
"ac 1 a671 2000",
"ac 1 a6713 2000",
"ac 1 a926 r 0",
"ac 1 b26",
"ac 1 c2",
"ac 1 c212",
"ac 1 e45",
"ac 1 f142",
"ac 1 g78",
"hd205 1974.m3",
"hd205 1974.m83",
"hd205 1974 .s74",
"tk5105.87 .g57 1993",
"tk5105.875 .i57 c92 2005",
"tk5105.888 .s43 1997",
"zzz19f99g15",
"zzz 1945 f99g15 d11 1990",
);
my @testints;
foreach my $t (@test) {
my $l = $a->toLongInt($t);
next unless ($l);
push @testints, Math::BigInt->new($l);
}
for ($j = 0; $j < scalar(@test) -1; $j++) {
my $n1 = $a->normalize($test[$j]);
my $n2 = $a->normalize($test[$j+1]);
my $i1 = new Math::BigInt $a->toLongInt($test[$j]);
my $i2 = new Math::BigInt $a->toLongInt($test[$j+1]);
next unless ($n1 and $n2); # skip the invalids
ok($n1 lt $n2, $test[$j] . ' < ' . $test[$j+1] . ' (normalize)');
# must allow "or equal" due to lack of precision
ok($i1->bcmp($i2) <= 0, $test[$j] . ' < ' . $test[$j+1] . " (toLongInt $i1 vs $i2)");
}
|
