REGTEST: mailers: add new test for 'mailers' section

This test verifies the mailers section works properly by checking that
it sends the proper amount of mails when health-checks are changing and
or marking a server up/down

The test currently fails on all versions of haproxy i tried with varying
results:

- 1.9.0 produces thousands of mails.
- 1.8.14 only sends 1 mail, needs a 200ms 'timeout mail' to succeed
- 1.7.11 only sends 1 mail, needs a 200ms 'timeout mail' to succeed
- 1.6 only sends 1 mail, (does not have the 'timeout mail' setting implemented)
This commit is contained in:
PiBa-NL 2018-12-23 21:06:31 +01:00 committed by Willy Tarreau
parent a1065a1a4f
commit c3949d4c00
2 changed files with 180 additions and 0 deletions

View File

@ -0,0 +1,105 @@
local vtc_port1 = 0
local mailsreceived = 0
local mailconnectionsmade = 0
local healthcheckcounter = 0
core.register_action("bug", { "http-res" }, function(txn)
data = txn:get_priv()
if not data then
data = 0
end
data = data + 1
print(string.format("set to %d", data))
txn.http:res_set_status(200 + data)
txn:set_priv(data)
end)
core.register_service("luahttpservice", "http", function(applet)
local response = "?"
local responsestatus = 200
if applet.path == "/setport" then
vtc_port1 = applet.headers["vtcport1"][0]
response = "OK"
end
if applet.path == "/svr_healthcheck" then
healthcheckcounter = healthcheckcounter + 1
if healthcheckcounter < 2 or healthcheckcounter > 6 then
responsestatus = 403
end
end
applet:set_status(responsestatus)
if applet.path == "/checkMailCounters" then
response = "MailCounters"
applet:add_header("mailsreceived", mailsreceived)
applet:add_header("mailconnectionsmade", mailconnectionsmade)
end
applet:start_response()
applet:send(response)
end)
core.register_service("fakeserv", "http", function(applet)
applet:set_status(200)
applet:start_response()
end)
function RecieveAndCheck(applet, expect)
data = applet:getline()
if data:sub(1,expect:len()) ~= expect then
core.Info("Expected: "..expect.." but got:"..data:sub(1,expect:len()))
applet:send("Expected: "..expect.." but got:"..data.."\r\n")
return false
end
return true
end
core.register_service("mailservice", "tcp", function(applet)
core.Info("############# Mailservice Called #############")
mailconnectionsmade = mailconnectionsmade + 1
applet:send("220 Welcome\r\n")
local data
if RecieveAndCheck(applet, "EHLO") == false then
return
end
applet:send("250 OK\r\n")
if RecieveAndCheck(applet, "MAIL FROM:") == false then
return
end
applet:send("250 OK\r\n")
if RecieveAndCheck(applet, "RCPT TO:") == false then
return
end
applet:send("250 OK\r\n")
if RecieveAndCheck(applet, "DATA") == false then
return
end
applet:send("354 OK\r\n")
core.Info("#### Send your mailbody")
local endofmail = false
local subject = ""
while endofmail ~= true do
data = applet:getline() -- BODY CONTENT
--core.Info(data)
if data:sub(1, 9) == "Subject: " then
subject = data
end
if (data == "\r\n") then
data = applet:getline() -- BODY CONTENT
core.Info(data)
if (data == ".\r\n") then
endofmail = true
end
end
end
core.Info("#### Body recieved OK")
applet:send("250 OK\r\n")
if RecieveAndCheck(applet, "QUIT") == false then
return
end
applet:send("221 Mail queued for delivery to /dev/null \r\n")
core.Info("Mail queued for delivery to /dev/null subject: "..subject)
mailsreceived = mailsreceived + 1
end)

View File

@ -0,0 +1,75 @@
varnishtest "Lua: txn:get_priv() scope"
#REQUIRE_OPTIONS=LUA
#REQUIRE_VERSION=1.6
feature ignore_unknown_macro
server s1 {
rxreq
txresp
} -start
haproxy h1 -conf {
global
lua-load ${testdir}/k_healthcheckmail.lua
defaults
frontend femail
mode tcp
bind "fd@${femail}"
tcp-request content use-service lua.mailservice
frontend luahttpservice
mode http
bind "fd@${luahttpservice}"
http-request use-service lua.luahttpservice
frontend fe1
mode http
bind "fd@${fe1}"
default_backend b1
http-response lua.bug
backend b1
mode http
option httpchk /svr_healthcheck
option log-health-checks
email-alert mailers mymailers
email-alert level info
email-alert from from@domain.tld
email-alert to to@domain.tld
server broken 127.0.0.1:65535 check
server srv_lua ${h1_luahttpservice_addr}:${h1_luahttpservice_port} check inter 500
server srv1 ${s1_addr}:${s1_port} check inter 500
mailers mymailers
# timeout mail 20s
# timeout mail 200ms
mailer smtp1 ${h1_femail_addr}:${h1_femail_port}
} -start
# configure port for lua to call feluaservice
client c1 -connect ${h1_luahttpservice_sock} {
timeout 2
txreq -url "/setport" -hdr "vtcport1: ${h1_femail_port}"
rxresp
expect resp.status == 200
expect resp.body == "OK"
} -run
delay 2
server s2 -repeat 5 -start
delay 5
client c2 -connect ${h1_luahttpservice_sock} {
timeout 2
txreq -url "/checkMailCounters"
rxresp
expect resp.status == 200
expect resp.body == "MailCounters"
expect resp.http.mailsreceived == 16
expect resp.http.mailconnectionsmade == 16
} -run