Bug 20199: Add tests for Koha::Acq::Order->store

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2018-02-14 14:13:15 -03:00
parent c1df9aad54
commit 912824a9b1

View file

@ -19,7 +19,7 @@
use Modern::Perl;
use Test::More tests => 1;
use Test::More tests => 2;
use t::lib::TestBuilder;
use t::lib::Mocks;
@ -55,3 +55,43 @@ subtest 'basket() tests' => sub {
$schema->storage->txn_rollback;
};
subtest 'store' => sub {
plan tests => 1;
$schema->storage->txn_begin;
my $o = $builder->build_object(
{
class => 'Koha::Acquisition::Orders'
}
);
subtest 'entrydate' => sub {
plan tests => 2;
my $order;
t::lib::Mocks::mock_preference( 'TimeFormat', '12hr' );
$order = Koha::Acquisition::Order->new(
{
basketno => $o->basketno,
biblionumber => $o->biblionumber,
budget_id => $o->budget_id,
}
)->store;
$order->discard_changes;
like( $order->entrydate, qr|^\d{4}-\d{2}-\d{2}$| );
t::lib::Mocks::mock_preference( 'TimeFormat', '24hr' );
$order = Koha::Acquisition::Order->new(
{
basketno => $o->basketno,
biblionumber => $o->biblionumber,
budget_id => $o->budget_id,
}
)->store;
$order->discard_changes;
like( $order->entrydate, qr|^\d{4}-\d{2}-\d{2}$| );
};
$schema->storage->txn_rollback;
};