Bug 22455: Unit tests
Signed-off-by: Michal Denar <black23@gmail.com> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
This commit is contained in:
parent
f5270a792c
commit
5c2f3d236a
|
|
@ -17,7 +17,9 @@
|
|||
|
||||
use Modern::Perl;
|
||||
|
||||
use Test::More tests => 3;
|
||||
use Test::More tests => 4;
|
||||
|
||||
use t::lib::TestBuilder;
|
||||
|
||||
use C4::Biblio;
|
||||
use Koha::Database;
|
||||
|
|
@ -27,7 +29,8 @@ BEGIN {
|
|||
use_ok('Koha::Biblios');
|
||||
}
|
||||
|
||||
my $schema = Koha::Database->new->schema;
|
||||
my $schema = Koha::Database->new->schema;
|
||||
my $builder = t::lib::TestBuilder->new;
|
||||
|
||||
subtest 'metadata() tests' => sub {
|
||||
|
||||
|
|
@ -55,3 +58,31 @@ subtest 'metadata() tests' => sub {
|
|||
|
||||
$schema->storage->txn_rollback;
|
||||
};
|
||||
|
||||
subtest 'hidden_in_opac() tests' => sub {
|
||||
|
||||
plan tests => 3;
|
||||
|
||||
$schema->storage->txn_begin;
|
||||
|
||||
my $biblio = $builder->build_sample_biblio();
|
||||
my $item_1 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
|
||||
my $item_2 = $builder->build_sample_item({ biblionumber => $biblio->biblionumber });
|
||||
|
||||
$item_1->withdrawn( 1 )->store->discard_changes;
|
||||
$item_2->withdrawn( 1 )->store->discard_changes;
|
||||
|
||||
ok( !$biblio->hidden_in_opac({ rules => { withdrawn => [ 2 ] } }), 'Biblio not hidden' );
|
||||
|
||||
$item_2->withdrawn( 2 )->store->discard_changes;
|
||||
$biblio->discard_changes; # refresh
|
||||
|
||||
ok( !$biblio->hidden_in_opac({ rules => { withdrawn => [ 2 ] } }), 'Biblio not hidden' );
|
||||
|
||||
$item_1->withdrawn( 2 )->store->discard_changes;
|
||||
$biblio->discard_changes; # refresh
|
||||
|
||||
ok( $biblio->hidden_in_opac({ rules => { withdrawn => [ 2 ] } }), 'Biblio hidden' );
|
||||
|
||||
$schema->storage->txn_rollback;
|
||||
};
|
||||
|
|
|
|||
Loading…
Reference in New Issue