Bug 17600: Standardize our EXPORT_OK

[srvgit] / t / Biblio.t

diff --git a/t/Biblio.t b/t/Biblio.t
index a847eda..91080bd 100755 (executable)
--- a/t/Biblio.t
+++ b/t/Biblio.t
@@ -21,9 +21,10 @@ use Test::More;
 use Test::MockModule;
 use Test::Warn;
 
-plan tests => 41;
+plan tests => 39;
 
-use_ok('C4::Biblio');
+
+use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcControlnumber GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcAuthors GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb GetMarcBiblio UpdateTotalIssues ));
 
 my $db = Test::MockModule->new('Koha::Database');
 $db->mock( _new_schema => sub { return Schema(); } );
@@ -87,12 +88,6 @@ warning_is { $ret = GetMarcISSN() }
 
 ok( !defined $ret, 'GetMarcISSN returns undef if not passed rec');
 
-warning_is { $ret = GetMarcNotes() }
-           { carped => 'GetMarcNotes called on undefined record'},
-           "GetMarcNotes returns carped warning on undef record";
-
-ok( !defined $ret, 'GetMarcNotes returns undef if not passed rec');
-
 warning_is { $ret = GetMarcSubjects() }
            { carped => 'GetMarcSubjects called on undefined record'},
            "GetMarcSubjects returns carped warning on undef record";
@@ -157,4 +152,3 @@ warnings_like { $ret = UpdateTotalIssues() }
     "UpdateTotalIssues returns carped warnings if biblio record does not exist";
 
 ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist');
-1;