Lines 143-149
subtest 'Use cn_sort rather than callnumber to determine correct location' => su
Link Here
|
143 |
plan tests => 1; |
143 |
plan tests => 1; |
144 |
|
144 |
|
145 |
my $builder = t::lib::TestBuilder->new; |
145 |
my $builder = t::lib::TestBuilder->new; |
146 |
Koha::Items->delete; |
|
|
147 |
|
146 |
|
148 |
my $class_rule = $builder->build({ |
147 |
my $class_rule = $builder->build({ |
149 |
source => 'ClassSortRule', |
148 |
source => 'ClassSortRule', |
Lines 155-160
subtest 'Use cn_sort rather than callnumber to determine correct location' => su
Link Here
|
155 |
class_sort_rule => $class_rule->{class_sort_rule}, |
154 |
class_sort_rule => $class_rule->{class_sort_rule}, |
156 |
} |
155 |
} |
157 |
}); |
156 |
}); |
|
|
157 |
|
158 |
#Find if we have any items in our test range before we start |
159 |
my( undef, $pre_item_count) = GetItemsForInventory({ |
160 |
maxlocation => 'GT100', |
161 |
minlocation => 'GT90', |
162 |
class_source => $class_source->{cn_source}, |
163 |
}); |
164 |
|
158 |
my $item_1 = $builder->build({ |
165 |
my $item_1 = $builder->build({ |
159 |
source => 'Item', |
166 |
source => 'Item', |
160 |
value => { |
167 |
value => { |
Lines 168-174
subtest 'Use cn_sort rather than callnumber to determine correct location' => su
Link Here
|
168 |
minlocation => 'GT90', |
175 |
minlocation => 'GT90', |
169 |
class_source => $class_source->{cn_source}, |
176 |
class_source => $class_source->{cn_source}, |
170 |
}); |
177 |
}); |
171 |
is($item_count,1,"We should return GT95 as between GT90 and GT100"); |
178 |
is($item_count,$pre_item_count + 1,"We should return GT95 as between GT90 and GT100"); |
172 |
$schema->storage->txn_rollback; |
179 |
$schema->storage->txn_rollback; |
173 |
|
180 |
|
174 |
}; |
181 |
}; |
175 |
- |
|
|