Lines 18-24
Link Here
|
18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
19 |
|
19 |
|
20 |
use Test::NoWarnings; |
20 |
use Test::NoWarnings; |
21 |
use Test::More tests => 9; |
21 |
use Test::More tests => 10; |
22 |
use Test::MockModule; |
22 |
use Test::MockModule; |
23 |
|
23 |
|
24 |
use C4::ClassSource; |
24 |
use C4::ClassSource; |
Lines 37-42
$schema->storage->txn_begin;
Link Here
|
37 |
|
37 |
|
38 |
use_ok('Koha::UI::Form::Builder::Biblio'); |
38 |
use_ok('Koha::UI::Form::Builder::Biblio'); |
39 |
|
39 |
|
|
|
40 |
subtest 'new' => sub { |
41 |
plan tests => 1; |
42 |
|
43 |
# No warning |
44 |
Koha::UI::Form::Builder::Biblio->new(); |
45 |
|
46 |
# No warning if passing CGI->param('biblionumber') |
47 |
Koha::UI::Form::Builder::Biblio->new( { biblionumber => undef } ); |
48 |
|
49 |
ok(1); |
50 |
}; |
51 |
|
40 |
subtest 'generate_subfield_form default value' => sub { |
52 |
subtest 'generate_subfield_form default value' => sub { |
41 |
my $builder = Koha::UI::Form::Builder::Biblio->new(); |
53 |
my $builder = Koha::UI::Form::Builder::Biblio->new(); |
42 |
|
54 |
|
43 |
- |
|
|