96c8a0dbf6
Some tests failed due changes made to aqbudgets.budget_period_id. Tests failed with error: DBIx::Class::Storage::DBI::_dbh_execute(): DBI Exception: DBD::mysql::st execute failed: Field 'budget_period_id' doesn't have a default value at... This patch fixes those tests. To test run following lines: prove t/db_dependent/Acquisition/CancelReceipt.t prove t/db_dependent/Acquisition/GetBasketAsCSV.t prove t/db_dependent/Acquisition/GetBasketGroupAsCSV.t prove t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t prove t/db_dependent/Acquisition/GetOrdersByBiblionumber.t prove t/db_dependent/Acquisition/Invoices.t prove t/db_dependent/Acquisition/NewOrder.t prove t/db_dependent/Acquisition/OrderUsers.t prove t/db_dependent/Acquisition/TransferOrder.t prove t/db_dependent/Acquisition/close_reopen_basket.t prove t/db_dependent/Koha/Acquisition/Funds.t prove t/db_dependent/Letters.t Sponsored-by: Koha-Suomi Oy Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
105 lines
3.4 KiB
Perl
Executable file
105 lines
3.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use Modern::Perl;
|
|
|
|
use Test::More tests => 8;
|
|
use C4::Acquisition qw( NewBasket );
|
|
use C4::Biblio qw( AddBiblio );
|
|
use C4::Budgets qw( AddBudget GetBudget );
|
|
use MARC::Record;
|
|
use Koha::Database;
|
|
use Koha::DateUtils qw( dt_from_string output_pref );
|
|
use Koha::Acquisition::Booksellers;
|
|
use Koha::Acquisition::Orders;
|
|
use t::lib::TestBuilder;
|
|
use t::lib::Mocks;
|
|
|
|
my $schema = Koha::Database->new()->schema();
|
|
$schema->storage->txn_begin();
|
|
|
|
my $builder = t::lib::TestBuilder->new;
|
|
my $logged_in_user = $builder->build_object({ class => 'Koha::Patrons' });
|
|
t::lib::Mocks::mock_userenv({ patron => $logged_in_user });
|
|
|
|
my $bookseller = Koha::Acquisition::Bookseller->new(
|
|
{
|
|
name => "my vendor",
|
|
address1 => "bookseller's address",
|
|
phone => "0123456",
|
|
active => 1
|
|
}
|
|
)->store;
|
|
|
|
my $basketno = C4::Acquisition::NewBasket(
|
|
$bookseller->id
|
|
);
|
|
|
|
my $budget_period_id = C4::Budgets::AddBudgetPeriod(
|
|
{
|
|
budget_period_startdate => '2024-01-01',
|
|
budget_period_enddate => '2049-01-01',
|
|
budget_period_active => 1,
|
|
budget_period_description => "TEST PERIOD"
|
|
}
|
|
);
|
|
|
|
my $budgetid = C4::Budgets::AddBudget(
|
|
{
|
|
budget_code => "budget_code_test",
|
|
budget_name => "budget_name_test",
|
|
budget_period_id => $budget_period_id,
|
|
}
|
|
);
|
|
|
|
my $budget = C4::Budgets::GetBudget( $budgetid );
|
|
|
|
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
|
|
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
|
|
|
|
|
|
# returns undef and croaks if basketno, quantity, biblionumber or budget_id is missing
|
|
my $order = eval { Koha::Acquisition::Order->new->store };
|
|
my $return_error = $@;
|
|
ok(
|
|
( ! defined $order )
|
|
&& ( defined $return_error ),
|
|
"Inserting an order with no params returns undef and croaks"
|
|
);
|
|
|
|
my $mandatoryparams = {
|
|
basketno => $basketno,
|
|
quantity => 24,
|
|
biblionumber => $biblionumber1,
|
|
budget_id => $budgetid,
|
|
};
|
|
my @mandatoryparams_keys = keys %$mandatoryparams;
|
|
foreach my $mandatoryparams_key (@mandatoryparams_keys) {
|
|
my %test_missing_mandatoryparams = %$mandatoryparams;
|
|
delete $test_missing_mandatoryparams{$mandatoryparams_key};
|
|
$order = eval {
|
|
Koha::Acquisition::Order->new( \%test_missing_mandatoryparams )->store;
|
|
};
|
|
$return_error = $@;
|
|
my $expected_error = "Cannot insert order: Mandatory parameter $mandatoryparams_key is missing";
|
|
ok(
|
|
( !( defined $order ) )
|
|
&& ( index( $return_error, $expected_error ) >= 0 ),
|
|
"Inserting an order with no $mandatoryparams_key returns undef and croaks with expected error message"
|
|
);
|
|
}
|
|
|
|
$order = Koha::Acquisition::Order->new(
|
|
{
|
|
basketno => $basketno,
|
|
quantity => 24,
|
|
biblionumber => $biblionumber1,
|
|
budget_id => $budget->{budget_id},
|
|
}
|
|
)->store;
|
|
my $ordernumber = $order->ordernumber;
|
|
$order = Koha::Acquisition::Orders->find( $ordernumber );
|
|
is( $order->quantityreceived, 0, 'Koha::Acquisition::Order->insert set quantityreceivedto 0 if undef is given' );
|
|
is( $order->entrydate, output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 }), 'Koha::Acquisition::Order->store set entrydate to today' );
|
|
is( $order->created_by, $logged_in_user->borrowernumber, 'Koha::Acquisition::Order->store set created_by to logged in user if not given' );
|
|
|
|
$schema->storage->txn_rollback();
|