use Modern::Perl;
-use Test::More tests => 42;
+use Test::More tests => 41;
use Koha::Database;
message_transport_type => {
message_transport_type => 'my msg_t_t',
},
- letternumber => 1,
- branchcode => {
+ overduerules_id => {
branchcode => 'codeB',
categorycode => 'codeC',
},
'build stores the message_transport_type correctly'
);
is(
- $overduerules_transport_type->{letternumber},
- $my_overduerules_transport_type->{letternumber},
- 'build stores the letternumber correctly'
-);
-is(
$overduerules_transport_type->{branchcode},
$my_overduerules_transport_type->{branchcode}->{branchcode},
'build stores the branchcode correctly'
'build links the branchcode and the categorycode correctly'
);
isnt(
- $overduerules_transport_type->{_fk}->{branchcode}->{letter2},
+ $overduerules_transport_type->{_fk}->{overduerules_id}->{letter2},
undef,
'build generates values if they are not given'
);