Lines 19-38
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 8; |
22 |
use Test::More tests => 10; |
23 |
|
23 |
|
24 |
BEGIN { |
24 |
BEGIN { |
25 |
use_ok('Koha::ItemType'); |
25 |
use_ok('Koha::ItemType'); |
26 |
} |
26 |
} |
27 |
|
27 |
|
28 |
my $data = { |
28 |
my $data = { |
29 |
itemtype => 'CODE', |
29 |
itemtype => 'CODE', |
30 |
description => 'description', |
30 |
description => 'description', |
31 |
rentalcharge => 'rentalcharge', |
31 |
rentalcharge => 'rentalcharge', |
32 |
imageurl => 'imageurl', |
32 |
imageurl => 'imageurl', |
33 |
summary => 'summary', |
33 |
summary => 'summary', |
34 |
checkinmsg => 'checkinmsg', |
34 |
checkinmsg => 'checkinmsg', |
35 |
checkinmsgtype => 'checkinmsgtype', |
35 |
checkinmsgtype => 'checkinmsgtype', |
|
|
36 |
checkoutmsg => 'checkoutmsg', |
37 |
checkoutmsgtype => 'checkoutmsgtype', |
36 |
}; |
38 |
}; |
37 |
|
39 |
|
38 |
my $type = Koha::ItemType->new($data); |
40 |
my $type = Koha::ItemType->new($data); |
Lines 44-46
is( $type->imageurl, 'imageurl', 'imageurl' );
Link Here
|
44 |
is( $type->summary, 'summary', 'summary' ); |
46 |
is( $type->summary, 'summary', 'summary' ); |
45 |
is( $type->checkinmsg, 'checkinmsg', 'checkinmsg' ); |
47 |
is( $type->checkinmsg, 'checkinmsg', 'checkinmsg' ); |
46 |
is( $type->checkinmsgtype, 'checkinmsgtype', 'checkinmsgtype' ); |
48 |
is( $type->checkinmsgtype, 'checkinmsgtype', 'checkinmsgtype' ); |
47 |
- |
49 |
is( $type->checkoutmsg, 'checkoutmsg', 'checkoutmsg' ); |
|
|
50 |
is( $type->checkoutmsgtype, 'checkoutmsgtype', 'checkoutmsgtype' ); |