Bug 20912: (QA follow-up) Move Fees to Charges::

[koha.git] / t / Biblio.t

diff --git a/t/Biblio.t b/t/Biblio.t
index 1bf7895..0d140be 100755 (executable)
--- a/t/Biblio.t
+++ b/t/Biblio.t
@@ -21,31 +21,10 @@ use Test::More;
 use Test::MockModule;
 use Test::Warn;
 
-use Module::Load::Conditional qw/check_install/;
-
-BEGIN {
-    if ( check_install( module => 'Test::DBIx::Class' ) ) {
-        plan tests => 46;
-    } else {
-        plan skip_all => "Need Test::DBIx::Class"
-    }
-}
+plan tests => 47;
 
 use_ok('C4::Biblio');
 
-#use Test::DBIx::Class {}, 'Biblio';
-use Test::DBIx::Class; #No difference between these two invocations in time taken to execute tests.
-
-sub fixtures {
-    my ( $data ) = @_;
-    fixtures_ok [
-        Biblio => [
-            [ qw/ biblionumber datecreated timestamp  / ],
-            @$data,
-        ],
-    ], 'add fixtures';
-}
-
 my $db = Test::MockModule->new('Koha::Database');
 $db->mock( _new_schema => sub { return Schema(); } );
 
@@ -181,6 +160,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";
 
@@ -193,4 +176,3 @@ warnings_like { $ret = UpdateTotalIssues() }
 
 ok( !defined $ret, 'UpdateTotalIssues returns carped warning if biblio record does not exist');
 
-1;