From 5d831d22d2165edef8d11d840a85ec3c678fac79 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 16 Jun 2020 13:51:00 +0100 Subject: [PATCH] Bug 23092: Add unit tests --- t/db_dependent/Koha/Item/Transfers.t | 33 +++++++++++++++++++++++++++- 1 file changed, 32 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/Koha/Item/Transfers.t b/t/db_dependent/Koha/Item/Transfers.t index b49f78091a..85efd65271 100644 --- a/t/db_dependent/Koha/Item/Transfers.t +++ b/t/db_dependent/Koha/Item/Transfers.t @@ -19,7 +19,7 @@ use Modern::Perl; -use Test::More tests => 2; +use Test::More tests => 3; use Koha::Item::Transfer; use Koha::Item::Transfers; @@ -27,6 +27,7 @@ use Koha::Database; use Koha::DateUtils; use t::lib::TestBuilder; +use t::lib::Dates; my $schema = Koha::Database->new->schema; $schema->storage->txn_begin; @@ -66,3 +67,33 @@ is( $retrieved_transfer_1->itemnumber, $new_transfer_1->itemnumber, 'Find a tran $schema->storage->txn_rollback; +subtest 'daterequested tests' => sub { + + plan tests => 2; + + $schema->storage->txn_begin; + my $library_from = $builder->build( { source => 'Branch' } ); + my $library_to = $builder->build( { source => 'Branch' } ); + my $item = $builder->build( + { + source => 'Item', + value => { + holding_branch => $library_from->{branchcode}, + homebranch => $library_to->{branchcode} + } + } + ); + + my $transfer = Koha::Item::Transfer->new( + { + itemnumber => $item->{itemnumber}, + frombranch => $library_from->{branchcode}, + tobranch => $library_to->{branchcode} + } + )->store; + + ok( $transfer->daterequested, 'daterequested set on creation'); + t::lib::Dates::compare( $transfer->daterequested, dt_from_string ); + + $schema->storage->txn_rollback; +}; -- 2.20.1