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

(-)a/t/db_dependent/Koha/Biblio.t (-1 / +6 lines)
Lines 213-218 subtest 'pickup_locations' => sub { Link Here
213
    my $library7 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 1 } } );
213
    my $library7 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 1 } } );
214
    my $library8 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 0 } } );
214
    my $library8 = $builder->build_object( { class => 'Koha::Libraries', value => { pickup_location => 0 } } );
215
215
216
    our @created = ($library1, $library2, $library3, $library4, $library5, $library6, $library7, $library8);
216
    Koha::CirculationRules->set_rules(
217
    Koha::CirculationRules->set_rules(
217
        {
218
        {
218
            branchcode => $library1->branchcode,
219
            branchcode => $library1->branchcode,
Lines 384-389 subtest 'pickup_locations' => sub { Link Here
384
            is( ref($pickup_location), 'Koha::Library', 'Object type is correct' );
385
            is( ref($pickup_location), 'Koha::Library', 'Object type is correct' );
385
        }
386
        }
386
387
388
        my %set = map {$_->branchcode => 1} @created;
389
        my @not_in = grep {not $set{$_->branchcode}} @pl;
390
        for (@not_in){
391
            warn "FOUND";use Data::Printer colored => 1; warn p $_->unblessed;
392
        }
387
        ok(
393
        ok(
388
            scalar(@pl) == $results->{ $cbranch . '-'
394
            scalar(@pl) == $results->{ $cbranch . '-'
389
                  . $biblio->title . '-'
395
                  . $biblio->title . '-'
390
- 

Return to bug 25540