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 |
- |
|
|