mirror of
https://github.com/bryanthaboi/gen1recomp.git
synced 2026-08-19 12:15:31 +02:00
bryanthaboi
96 lines
3.0 KiB
Lua
96 lines
3.0 KiB
Lua
package.path = "./?.lua;./?/init.lua;" .. package.path
|
|
|
|
local T = require("tests.harness")
|
|
local check, eq = T.check, T.eq
|
|
love = love or require("tests.love_stub")
|
|
|
|
local HostShell = require("src.core.HostShell")
|
|
|
|
local MARK = "\n__gen1recomp_http__"
|
|
local SAVE_DIR = "/tmp/pokeport-stub-save"
|
|
local TOKEN = "0123456789abcdef0123456789abcdef"
|
|
local BODY = '{"blob":"return {}"}'
|
|
|
|
local realOpen = io.open
|
|
local realPopen = io.popen
|
|
local realRemove = os.remove
|
|
local realHaveCurl = HostShell.haveCurl
|
|
|
|
local files, removed = {}, {}
|
|
local popenCommand
|
|
|
|
HostShell.haveCurl = function() return true end
|
|
os.remove = function(path)
|
|
removed[path] = true
|
|
return true
|
|
end
|
|
io.open = function(path, mode)
|
|
local entry = { path = path, mode = mode, text = "" }
|
|
files[#files + 1] = entry
|
|
return {
|
|
write = function(_, value)
|
|
entry.text = entry.text .. value
|
|
return true
|
|
end,
|
|
close = function() return true end,
|
|
}
|
|
end
|
|
io.popen = function(command)
|
|
popenCommand = command
|
|
return {
|
|
read = function() return '{"ok":true}' .. MARK .. "200" end,
|
|
close = function() return true end,
|
|
}
|
|
end
|
|
|
|
local body, err, code = HostShell.httpRequest("https://sync.example/sync/save", {
|
|
method = "PUT",
|
|
body = BODY,
|
|
headers = {
|
|
["x-sync-account"] = "aa11bb22cc33dd44",
|
|
["x-sync-token"] = TOKEN,
|
|
["Content-Type"] = "application/json",
|
|
},
|
|
})
|
|
|
|
io.open = realOpen
|
|
io.popen = realPopen
|
|
os.remove = realRemove
|
|
HostShell.haveCurl = realHaveCurl
|
|
|
|
eq(code, 200, "the request completes: " .. tostring(err))
|
|
eq(body, '{"ok":true}', "and the response body comes back without the marker")
|
|
|
|
check(popenCommand:find(TOKEN, 1, true) == nil,
|
|
"the device token never reaches the command line")
|
|
check(popenCommand:find("aa11bb22cc33dd44", 1, true) == nil,
|
|
"and neither does the account id")
|
|
check(popenCommand:find(BODY, 1, true) == nil,
|
|
"the save blob stays out of the command line too")
|
|
|
|
local headerFile, bodyFile
|
|
for _, entry in ipairs(files) do
|
|
if entry.text:find("x-sync-token", 1, true) then headerFile = entry end
|
|
if entry.text == BODY then bodyFile = entry end
|
|
end
|
|
check(headerFile ~= nil, "the headers are staged in a file")
|
|
check(bodyFile ~= nil, "and so is the body")
|
|
eq(headerFile.mode, "wb", "the header file is written as bytes")
|
|
check(headerFile.text:find("x%-sync%-token: " .. TOKEN) ~= nil,
|
|
"with one header per line for curl to read")
|
|
check(headerFile.text:find("User%-Agent: ") ~= nil,
|
|
"including the user agent curl would otherwise take on argv")
|
|
check(popenCommand:find("-H '@" .. headerFile.path .. "'", 1, true) ~= nil,
|
|
"and curl is pointed at that file")
|
|
|
|
check(headerFile.path:find(SAVE_DIR, 1, true) == 1,
|
|
"staging happens in the user-private save directory, not shared /tmp")
|
|
check(bodyFile.path:find(SAVE_DIR, 1, true) == 1,
|
|
"for the body as well")
|
|
check(headerFile.path ~= bodyFile.path,
|
|
"two concurrent requests cannot collide on one name")
|
|
eq(removed[headerFile.path], true, "the staged headers are deleted afterwards")
|
|
eq(removed[bodyFile.path], true, "and so is the staged body")
|
|
|
|
T.finish("host shell request headers")
|