View | Details | Raw Unified | Return to bug 15601
Collapse All | Expand All

(-)a/t/db_dependent/TestBuilder.t (-10 / +3 lines)
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
- 

Return to bug 15601