Lines 19-25
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 42; |
22 |
use Test::More tests => 41; |
23 |
|
23 |
|
24 |
use Koha::Database; |
24 |
use Koha::Database; |
25 |
|
25 |
|
Lines 49-56
my $my_overduerules_transport_type = {
Link Here
|
49 |
message_transport_type => { |
49 |
message_transport_type => { |
50 |
message_transport_type => 'my msg_t_t', |
50 |
message_transport_type => 'my msg_t_t', |
51 |
}, |
51 |
}, |
52 |
letternumber => 1, |
52 |
overduerules_id => { |
53 |
branchcode => { |
|
|
54 |
branchcode => 'codeB', |
53 |
branchcode => 'codeB', |
55 |
categorycode => 'codeC', |
54 |
categorycode => 'codeC', |
56 |
}, |
55 |
}, |
Lines 67-77
is(
Link Here
|
67 |
'build stores the message_transport_type correctly' |
66 |
'build stores the message_transport_type correctly' |
68 |
); |
67 |
); |
69 |
is( |
68 |
is( |
70 |
$overduerules_transport_type->{letternumber}, |
|
|
71 |
$my_overduerules_transport_type->{letternumber}, |
72 |
'build stores the letternumber correctly' |
73 |
); |
74 |
is( |
75 |
$overduerules_transport_type->{branchcode}, |
69 |
$overduerules_transport_type->{branchcode}, |
76 |
$my_overduerules_transport_type->{branchcode}->{branchcode}, |
70 |
$my_overduerules_transport_type->{branchcode}->{branchcode}, |
77 |
'build stores the branchcode correctly' |
71 |
'build stores the branchcode correctly' |
Lines 102-108
is_deeply(
Link Here
|
102 |
'build links the branchcode and the categorycode correctly' |
96 |
'build links the branchcode and the categorycode correctly' |
103 |
); |
97 |
); |
104 |
isnt( |
98 |
isnt( |
105 |
$overduerules_transport_type->{_fk}->{branchcode}->{letter2}, |
99 |
$overduerules_transport_type->{_fk}->{overduerules_id}->{letter2}, |
106 |
undef, |
100 |
undef, |
107 |
'build generates values if they are not given' |
101 |
'build generates values if they are not given' |
108 |
); |
102 |
); |
109 |
- |
|
|