View | Details | Raw Unified | Return to bug 14693
Collapse All | Expand All

(-)a/t/db_dependent/Contract.t (-3 / +8 lines)
Lines 18-25 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
use C4::Context;
22
use C4::Context;
22
use C4::Bookseller;
23
use C4::Bookseller;
24
use Koha::DateUtils;
25
26
use DateTime::Duration;
23
27
24
use Test::More tests => 43;
28
use Test::More tests => 43;
25
29
Lines 70-79 is( $contract->{contractname}, $my_contract1->{contractname}, 'AddContract store Link Here
70
is( $contract->{contractdescription}, $my_contract1->{contractdescription}, 'AddContract stores the contract description correctly.' );
74
is( $contract->{contractdescription}, $my_contract1->{contractdescription}, 'AddContract stores the contract description correctly.' );
71
is( $contract->{booksellerid}, $my_contract1->{booksellerid}, 'AddContract stores the bookseller id correctly.' );
75
is( $contract->{booksellerid}, $my_contract1->{booksellerid}, 'AddContract stores the bookseller id correctly.' );
72
76
77
my $now = dt_from_string;
78
my $three_more_days = $now + DateTime::Duration->new( days => 3 );
73
79
74
$my_contract1 = {
80
$my_contract1 = {
75
    contractstartdate   => '2015-07-02',
81
    contractstartdate   => $now->ymd,
76
    contractenddate     => '2015-07-31',
82
    contractenddate     => $three_more_days->ymd,
77
    contractname        => 'My modified contract name',
83
    contractname        => 'My modified contract name',
78
    contractdescription => 'My modified contract description',
84
    contractdescription => 'My modified contract description',
79
    booksellerid        => $bookseller_id2,
85
    booksellerid        => $bookseller_id2,
80
- 

Return to bug 14693