Bug 18260: Koha::Biblio - Remove GetBiblio

[koha.git] / t / db_dependent / Acquisition.t

diff --git a/t/db_dependent/Acquisition.t b/t/db_dependent/Acquisition.t
index 9016650..646dd78 100755 (executable)
--- a/t/db_dependent/Acquisition.t
+++ b/t/db_dependent/Acquisition.t
@@ -502,7 +502,7 @@ ok((not defined $error), "DelOrder does not fail");
 $order1 = GetOrder($order1->{ordernumber});
 ok((defined $order1->{datecancellationprinted}), "order is cancelled");
 ok((not defined $order1->{cancellationreason}), "order has no cancellation reason");
-ok((defined GetBiblio($order1->{biblionumber})), "biblio still exists");
+ok((defined Koha::Biblios->find( $order1->{biblionumber} )), "biblio still exists");
 
 $order2 = GetOrder($ordernumbers[1]);
 $error = DelOrder($order2->{biblionumber}, $order2->{ordernumber}, 1);
@@ -510,7 +510,7 @@ ok((not defined $error), "DelOrder does not fail");
 $order2 = GetOrder($order2->{ordernumber});
 ok((defined $order2->{datecancellationprinted}), "order is cancelled");
 ok((not defined $order2->{cancellationreason}), "order has no cancellation reason");
-ok((not defined GetBiblio($order2->{biblionumber})), "biblio does not exist anymore");
+ok((not defined Koha::Biblios->find( $order2->{biblionumber} )), "biblio does not exist anymore");
 
 my $order4 = GetOrder($ordernumbers[3]);
 $error = DelOrder($order4->{biblionumber}, $order4->{ordernumber}, 1, "foobar");
@@ -518,14 +518,14 @@ ok((not defined $error), "DelOrder does not fail");
 $order4 = GetOrder($order4->{ordernumber});
 ok((defined $order4->{datecancellationprinted}), "order is cancelled");
 ok(($order4->{cancellationreason} eq "foobar"), "order has cancellation reason \"foobar\"");
-ok((not defined GetBiblio($order4->{biblionumber})), "biblio does not exist anymore");
+ok((not defined Koha::Biblios->find( $order4->{biblionumber} )), "biblio does not exist anymore");
 
 my $order5 = GetOrder($ordernumbers[4]);
 C4::Items::AddItem( { barcode => '0102030405' }, $order5->{biblionumber} );
 $error = DelOrder($order5->{biblionumber}, $order5->{ordernumber}, 1);
 $order5 = GetOrder($order5->{ordernumber});
 ok((defined $order5->{datecancellationprinted}), "order is cancelled");
-ok(GetBiblio($order5->{biblionumber}), "biblio still exists");
+ok((defined Koha::Biblios->find( $order5->{biblionumber} )), "biblio still exists");
 
 # End of tests for DelOrder