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