1
0
Fork 0
mirror of https://gitlab.alpinelinux.org/alpine/aports.git synced 2025-07-19 01:05:15 +03:00
aports/testing/perl-mail-sendmail/test-localhost.patch
Natanael Copa 84fa53cb3e testing/perl-mail-sendmail: run test against dummy smtp
the test suite will send an actual email to the atuthor. We don't want
to do that and some of the build servers may have smtp port blocked.

Create a dummy smtp server on localhost and patch test to use that.
2018-08-07 18:55:20 +00:00

22 lines
582 B
Diff

diff --git a/t/original.t b/t/original.t
index bba3fa0..2765eba 100755
--- a/t/original.t
+++ b/t/original.t
@@ -14,7 +14,8 @@ $mail{To} = 'Sendmail Test <sendmail@alma.ch>';
# if you want to get a copy of the test mail, you need to specify your
# own server here, by name or IP address
-$server = 'mail.alma.ch';
+$server = '127.0.0.1';
+$port = 2525;
#$server = 'my.usual.mail.server';
BEGIN { $| = 1; print "1..2\n"; }
@@ -42,6 +43,7 @@ print "ok 1\n";
if ($server) {
$mail{Smtp} = $server;
+ $mail{Port} = $port;
print "Server set to: $server\n";
}