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