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

(-)a/t/db_dependent/Koha/Biblio.t (-3 / +33 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 3;
20
use Test::More tests => 4;
21
22
use t::lib::TestBuilder;
21
23
22
use C4::Biblio;
24
use C4::Biblio;
23
use Koha::Database;
25
use Koha::Database;
Lines 27-33 BEGIN { Link Here
27
    use_ok('Koha::Biblios');
29
    use_ok('Koha::Biblios');
28
}
30
}
29
31
30
my $schema = Koha::Database->new->schema;
32
my $schema  = Koha::Database->new->schema;
33
my $builder = t::lib::TestBuilder->new;
31
34
32
subtest 'metadata() tests' => sub {
35
subtest 'metadata() tests' => sub {
33
36
Lines 55-57 subtest 'metadata() tests' => sub { Link Here
55
58
56
    $schema->storage->txn_rollback;
59
    $schema->storage->txn_rollback;
57
};
60
};
58
- 
61
62
subtest 'hidden_in_opac() tests' => sub {
63
64
    plan tests => 3;
65
66
    $schema->storage->txn_begin;
67
68
    my $biblio = $builder->build_sample_biblio();
69
    my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
70
    my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
71
72
    $item_1->withdrawn( 1 )->store->discard_changes;
73
    $item_2->withdrawn( 1 )->store->discard_changes;
74
75
    ok( !$biblio->hidden_in_opac({ rules => { withdrawn => [ 2 ] } }), 'Biblio not hidden' );
76
77
    $item_2->withdrawn( 2 )->store->discard_changes;
78
    $biblio->discard_changes; # refresh
79
80
    ok( !$biblio->hidden_in_opac({ rules => { withdrawn => [ 2 ] } }), 'Biblio not hidden' );
81
82
    $item_1->withdrawn( 2 )->store->discard_changes;
83
    $biblio->discard_changes; # refresh
84
85
    ok( $biblio->hidden_in_opac({ rules => { withdrawn => [ 2 ] } }), 'Biblio hidden' );
86
87
    $schema->storage->txn_rollback;
88
};

Return to bug 22455