X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2FBiblio.t;h=c298349e18f1470b27e9af566cf930d7a9355e5c;hb=a11633379f8d9f6a933da7fa887b2e7966e3765a;hp=0550ce782623f31788b39cf1986446c8f07eea5f;hpb=5b1ed49baa49927768dc004d1d56684651bb6d79;p=koha-ffzg.git

diff --git a/t/Biblio.t b/t/Biblio.t
index 0550ce7826..c298349e18 100755
--- a/t/Biblio.t
+++ b/t/Biblio.t
@@ -21,9 +21,10 @@ use Test::More;
 use Test::MockModule;
 use Test::Warn;
 
-plan tests => 43;
+plan tests => 34;
 
-use_ok('C4::Biblio');
+
+use_ok('C4::Biblio', qw( AddBiblio ModBiblio BiblioAutoLink LinkBibHeadingsToAuthorities GetMarcPrice GetMarcQuantity GetMarcControlnumber GetMarcISBN GetMarcISSN GetMarcSubjects GetMarcUrls GetMarcSeries TransformMarcToKoha ModBiblioMarc RemoveAllNsb UpdateTotalIssues ));
 
 my $db = Test::MockModule->new('Koha::Database');
 $db->mock( _new_schema => sub { return Schema(); } );
@@ -87,24 +88,12 @@ 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";
 
 ok( !defined $ret, 'GetMarcSubjects returns undef if not passed rec');
 
-warning_is { $ret = GetMarcAuthors() }
-           { carped => 'GetMarcAuthors called on undefined record'},
-           "GetMarcAuthors returns carped warning on undef record";
-
-ok( !defined $ret, 'GetMarcAuthors returns undef if not passed rec');
-
 warning_is { $ret = GetMarcUrls() }
            { carped => 'GetMarcUrls called on undefined record'},
            "GetMarcUrls returns carped warning on undef record";
@@ -117,12 +106,6 @@ warning_is { $ret = GetMarcSeries() }
 
 ok( !defined $ret, 'GetMarcSeries returns undef if not passed rec');
 
-warning_is { $ret = GetMarcHosts() }
-           { carped => 'GetMarcHosts called on undefined record'},
-           "GetMarcHosts returns carped warning on undef record";
-
-ok( !defined $ret, 'GetMarcHosts returns undef if not passed rec');
-
 my $hash_ref;
 
 warning_is { $hash_ref = TransformMarcToKoha( undef) }
@@ -147,20 +130,10 @@ warning_is { $ret = RemoveAllNsb() }
 
 ok( !defined $ret, 'RemoveAllNsb returns undef if not passed rec');
 
-warning_is { $ret = GetMarcBiblio() }
-           { carped => 'GetMarcBiblio called without parameters'},
-           "GetMarcBiblio returns carped warning on no parameters";
-
-warning_is { $ret = GetMarcBiblio({ biblionumber => undef }) }
-           { carped => 'GetMarcBiblio called with undefined biblionumber'},
-           "GetMarcBiblio returns carped warning on undef biblionumber";
-
-ok( !defined $ret, 'GetMarcBiblio returns undef if not passed a biblionumber');
 
 warnings_like { $ret = UpdateTotalIssues() }
-              [ { carped => qr/GetMarcBiblio called with undefined biblionumber/ },
-                { carped => qr/UpdateTotalIssues could not get biblio record/ } ],
+              [
+                { carped => qr/UpdateTotalIssues could not get biblio/ } ],
     "UpdateTotalIssues returns carped warnings if biblio record does not exist";
 
 ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist');
-