View | Details | Raw Unified | Return to bug 35717
Collapse All | Expand All

(-)a/Koha/Acquisition/Order.pm (-4 / +2 lines)
Lines 309-318 to the order. Link Here
309
=cut
309
=cut
310
310
311
sub suggestions {
311
sub suggestions {
312
    my ( $self )  = @_;
312
    my ($self) = @_;
313
    my $rs = $self->_result->suggestions;
313
    return Koha::Suggestions->_new_from_dbic( scalar $self->_result->suggestions );
314
    return unless $rs;
315
    return Koha::Suggestions->_new_from_dbic( $rs );
316
}
314
}
317
315
318
=head3 current_item_level_holds
316
=head3 current_item_level_holds
(-)a/t/db_dependent/Koha/Acquisition/Order.t (-18 / +15 lines)
Lines 211-254 subtest 'subscription' => sub { Link Here
211
};
211
};
212
212
213
subtest 'suggestions() tests' => sub {
213
subtest 'suggestions() tests' => sub {
214
214
    plan tests => 4;
215
    plan tests => 4;
215
216
216
    $schema->storage->txn_begin;
217
    $schema->storage->txn_begin;
218
217
    my $o = $builder->build_object(
219
    my $o = $builder->build_object(
218
        {
220
        {
219
            class => 'Koha::Acquisition::Orders',
221
            class => 'Koha::Acquisition::Orders',
220
        }
222
        }
221
    );
223
    );
222
224
223
    my $order = Koha::Acquisition::Orders->find( $o->ordernumber );
224
    is(
225
    is(
225
        ref( $order->suggestions ), 'Koha::Suggestions',
226
        ref( $o->suggestions ), 'Koha::Suggestions',
226
        '->suggestions should return a Koha::Suggestions object'
227
        '->suggestions should return a Koha::Suggestions object'
227
    );
228
    );
228
    is(
229
    is(
229
        $order->suggestions->count, 0,
230
        $o->suggestions->count, 0,
230
        '->suggestions should return empty set if no linked suggestion'
231
        '->suggestions should return empty set if no linked suggestion'
231
    );
232
    );
232
233
233
    $o = $builder->build_object(
234
    # Add a few suggestions
234
        {
235
    foreach ( 1..3 ) {
235
            class => 'Koha::Acquisition::Orders',
236
        $builder->build_object(
236
        }
237
            {
237
    );
238
                class => 'Koha::Suggestions',
238
    $o = $builder->build_object(
239
                value => { ordernumber => $o->id }
239
        {
240
            }
240
            class => 'Koha::Suggestions',
241
        );
241
            value => { ordernumber => $o->id }
242
    }
242
        }
243
    );
244
243
245
    $order = Koha::Acquisition::Orders->find( $o->ordernumber );
246
    is(
244
    is(
247
        ref( $order->suggestions ), 'Koha::Suggestions',
245
        ref( $o->suggestions ), 'Koha::Suggestions',
248
        '->suggestions should return a Koha::Suggestions object'
246
        '->suggestions should return a Koha::Suggestions object'
249
    );
247
    );
250
    is(
248
    is(
251
        $order->suggestions->count, 1,
249
        $o->suggestions->count, 3,
252
        '->suggestions should return linked suggestions'
250
        '->suggestions should return linked suggestions'
253
    );
251
    );
254
252
255
- 

Return to bug 35717