Lines 46-52
subtest 'Use cn_sort rather than callnumber to determine correct location' => su
Link Here
|
46 |
plan tests => 1; |
46 |
plan tests => 1; |
47 |
|
47 |
|
48 |
my $builder = t::lib::TestBuilder->new; |
48 |
my $builder = t::lib::TestBuilder->new; |
49 |
Koha::Items->delete; |
|
|
50 |
|
49 |
|
51 |
my $class_rule = $builder->build({ |
50 |
my $class_rule = $builder->build({ |
52 |
source => 'ClassSortRule', |
51 |
source => 'ClassSortRule', |
Lines 58-63
subtest 'Use cn_sort rather than callnumber to determine correct location' => su
Link Here
|
58 |
class_sort_rule => $class_rule->{class_sort_rule}, |
57 |
class_sort_rule => $class_rule->{class_sort_rule}, |
59 |
} |
58 |
} |
60 |
}); |
59 |
}); |
|
|
60 |
|
61 |
#Find if we have any items in our test range before we start |
62 |
my( undef, $pre_item_count) = GetItemsForInventory({ |
63 |
maxlocation => 'GT100', |
64 |
minlocation => 'GT90', |
65 |
class_source => $class_source->{cn_source}, |
66 |
}); |
67 |
|
61 |
my $item_1 = $builder->build({ |
68 |
my $item_1 = $builder->build({ |
62 |
source => 'Item', |
69 |
source => 'Item', |
63 |
value => { |
70 |
value => { |
Lines 71-77
subtest 'Use cn_sort rather than callnumber to determine correct location' => su
Link Here
|
71 |
minlocation => 'GT90', |
78 |
minlocation => 'GT90', |
72 |
class_source => $class_source->{cn_source}, |
79 |
class_source => $class_source->{cn_source}, |
73 |
}); |
80 |
}); |
74 |
is($item_count,1,"We should return GT95 as between GT90 and GT100"); |
81 |
is($item_count,$pre_item_count + 1,"We should return GT95 as between GT90 and GT100"); |
75 |
|
82 |
|
76 |
}; |
83 |
}; |
77 |
|
84 |
|
78 |
- |
|
|