|
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 |
- |
|
|