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