1
0
mirror of https://github.com/graygnuorg/pound.git synced 2026-10-25 10:19:36 +03:00
Files
pound/tests/lua-service.at
Sergey Poznyakoff 818a31cb69 Fixes in http.service interface.
The possibility to address services by ordinal number is removed.
First, it is unreliable (after each config modification involving
a change in services, one will have to remember to revamp one's
lua sources as well), secondly it is not quite clear how to distinguish
between per-listener and global services.

Add support for global services (distinguished by '/' prefix in
their names).

Add more meta-methods. Test everything.

* src/pndlua.c (service_set_index, service_get_index): Remove.
(service_get_name): Return empty string if service has no name.
Prefix the name with '/' for global services.
(service_set_name): If the service name starts with '/', remove
it and look up the resulting name in global services.
(service_get_locus): Fix use after free.
(pndlua_service_index): Don't allow to address services by index.
(pndlua_dcl_service): Implement __len, __pairs, and __tostring.

* tests/lua-service.at: New file.
* tests/Makefile.am: Add new test.
* tests/testsuite.at: Add new test.
2026-02-21 10:46:39 +02:00

83 lines
1.9 KiB
Plaintext

# This file is part of pound testsuite. -*- autotest -*-
# Copyright (C) 2026 Sergey Poznyakoff
#
# Pound is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Pound is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with pound. If not, see <http://www.gnu.org/licenses/>.
AT_SETUP([service field])
AT_KEYWORDS([cond lua lua-service])
AT_SKIP_IF([test "$LUA_AVAILABLE" != 1])
AT_DATA([srv.lua],
[[function reveal_service()
http.resp.headers['x-service-name'] = http.service.name
http.resp.headers['x-service-locus'] = http.service.locus
http.resp.headers['x-service-string'] = tostring(http.service)
for k,v in pairs(http.service) do
http.resp.headers['x-service-pairs-' .. k] = v
end
end
]])
PT_CHECK([Lua
Load "srv.lua"
End
Service "fallback"
Rewrite response
LuaModify "reveal_service"
End
Backend
Address
Port
End
End
ListenHTTP
Service "first"
Host "foo.bar"
Rewrite response
LuaModify "reveal_service"
End
Backend
Address
Port
End
End
End
],
[GET /echo/test1
Host: foo.bar
end
200
x-service-name: first
x-service-locus: pound.cfg:22.17-33.11
x-service-string: service first @ pound.cfg:22.17-33.11
x-service-pairs-name: first
x-service-pairs-locus: pound.cfg:22.17-33.11
end
GET /echo/test2
end
200
x-service-name: /fallback
x-service-locus: pound.cfg:9.9-18.3
x-service-string: service /fallback @ pound.cfg:9.9-18.3
x-service-pairs-name: /fallback
x-service-pairs-locus: pound.cfg:9.9-18.3
end
])
AT_CLEANUP