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

(-)a/t/Koha/Email.t (-9 / +8 lines)
Lines 107-113 subtest 'create() tests' => sub { Link Here
107
            'Koha::Exceptions::BadParameter',
107
            'Koha::Exceptions::BadParameter',
108
            'Exception thrown correctly';
108
            'Exception thrown correctly';
109
109
110
        is( "$@", q{Invalid 'from' parameter: not_an_email}, 'Exception message correct' );
110
        like( "$@", qr/Invalid 'from' parameter: not_an_email/, 'Exception message correct' );
111
111
112
        t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'not_an_email' );
112
        t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'not_an_email' );
113
113
Lines 116-122 subtest 'create() tests' => sub { Link Here
116
            'Koha::Exceptions::BadParameter',
116
            'Koha::Exceptions::BadParameter',
117
            'Exception thrown correctly';
117
            'Exception thrown correctly';
118
118
119
        is( "$@", q{Invalid 'from' parameter: not_an_email}, 'Exception message correct' );
119
        like( "$@", qr/Invalid 'from' parameter: not_an_email/, 'Exception message correct' );
120
120
121
        t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'tomasito@mail.com' );
121
        t::lib::Mocks::mock_preference( 'KohaAdminEmailAddress', 'tomasito@mail.com' );
122
        t::lib::Mocks::mock_preference( 'SendAllEmailsTo', undef );
122
        t::lib::Mocks::mock_preference( 'SendAllEmailsTo', undef );
Lines 126-132 subtest 'create() tests' => sub { Link Here
126
            'Koha::Exceptions::BadParameter',
126
            'Koha::Exceptions::BadParameter',
127
            'Exception thrown correctly';
127
            'Exception thrown correctly';
128
128
129
        is( "$@", q{Invalid 'to' parameter: not_an_email}, 'Exception message correct' );
129
        like( "$@", qr/Invalid 'to' parameter: not_an_email/, 'Exception message correct' );
130
130
131
        t::lib::Mocks::mock_preference( 'SendAllEmailsTo', 'not_an_email' );
131
        t::lib::Mocks::mock_preference( 'SendAllEmailsTo', 'not_an_email' );
132
132
Lines 135-141 subtest 'create() tests' => sub { Link Here
135
            'Koha::Exceptions::BadParameter',
135
            'Koha::Exceptions::BadParameter',
136
            'Exception thrown correctly';
136
            'Exception thrown correctly';
137
137
138
        is( "$@", q{Invalid 'to' parameter: not_an_email}, 'Exception message correct' );
138
        like( "$@", qr/Invalid 'to' parameter: not_an_email/, 'Exception message correct' );
139
139
140
        t::lib::Mocks::mock_preference( 'SendAllEmailsTo', undef );
140
        t::lib::Mocks::mock_preference( 'SendAllEmailsTo', undef );
141
141
Lines 149-155 subtest 'create() tests' => sub { Link Here
149
            'Koha::Exceptions::BadParameter',
149
            'Koha::Exceptions::BadParameter',
150
            'Exception thrown correctly';
150
            'Exception thrown correctly';
151
151
152
        is( "$@", q{Invalid 'reply_to' parameter: not_an_email}, 'Exception message correct' );
152
        like( "$@", qr/Invalid 'reply_to' parameter: not_an_email/, 'Exception message correct' );
153
153
154
        throws_ok
154
        throws_ok
155
            { Koha::Email->create(
155
            { Koha::Email->create(
Lines 161-167 subtest 'create() tests' => sub { Link Here
161
            'Koha::Exceptions::BadParameter',
161
            'Koha::Exceptions::BadParameter',
162
            'Exception thrown correctly';
162
            'Exception thrown correctly';
163
163
164
        is( "$@", q{Invalid 'sender' parameter: not_an_email}, 'Exception message correct' );
164
        like( "$@", qr/Invalid 'sender' parameter: not_an_email/, 'Exception message correct' );
165
165
166
        throws_ok
166
        throws_ok
167
            { Koha::Email->create(
167
            { Koha::Email->create(
Lines 173-179 subtest 'create() tests' => sub { Link Here
173
            'Koha::Exceptions::BadParameter',
173
            'Koha::Exceptions::BadParameter',
174
            'Exception thrown correctly';
174
            'Exception thrown correctly';
175
175
176
        is( "$@", q{Invalid 'cc' parameter: not_an_email}, 'Exception message correct' );
176
        like( "$@", qr/Invalid 'cc' parameter: not_an_email/, 'Exception message correct' );
177
177
178
        throws_ok
178
        throws_ok
179
            { Koha::Email->create(
179
            { Koha::Email->create(
Lines 185-191 subtest 'create() tests' => sub { Link Here
185
            'Koha::Exceptions::BadParameter',
185
            'Koha::Exceptions::BadParameter',
186
            'Exception thrown correctly';
186
            'Exception thrown correctly';
187
187
188
        is( "$@", q{Invalid 'bcc' parameter: not_an_email}, 'Exception message correct' );
188
        like( "$@", qr/Invalid 'bcc' parameter: not_an_email/, 'Exception message correct' );
189
    };
189
    };
190
};
190
};
191
191
192
- 

Return to bug 29857