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