premake/tests/base/test_http.lua
Jusonex b2ec8b1b9a Use Schannel instead of mbedtls on Windows to avoid bundling CA certs
Also added a test that fails on the previous commit
2017-03-08 22:48:40 +01:00

81 lines
1.9 KiB
Lua

--
-- tests/base/test_http.lua
-- Tests the http API
-- Copyright (c) 2016 Jason Perkins and the Premake project
--
local p = premake
-- only declare the suite as a test if http.get is an existing method.
local suite = {}
if http.get ~= nil then
suite = test.declare("premake_http")
end
function suite.http_get()
local result, err = http.get("http://httpbin.org/user-agent")
if result then
p.out(result)
test.capture(
'{\n "user-agent": "Premake/' .. _PREMAKE_VERSION .. '"\n}'
)
else
test.fail(err);
end
end
function suite.https_get()
-- sslverifypeer = 0, so we can test from within companies like here at Blizzard where all HTTPS traffic goes through
-- some strange black box that re-signs all traffic with a custom ssl certificate.
local result, err = http.get("https://httpbin.org/user-agent", { sslverifypeer = 0 })
if result then
p.out(result)
test.capture(
'{\n "user-agent": "Premake/' .. _PREMAKE_VERSION .. '"\n}'
)
else
test.fail(err);
end
end
function suite.https_get_verify_peer()
local result, err = http.get("https://httpbin.org/user-agent")
if result then
p.out(result)
test.capture(
'{\n "user-agent": "Premake/' .. _PREMAKE_VERSION .. '"\n}'
)
else
test.fail(err);
end
end
function suite.http_responsecode()
local result, err, responseCode = http.get("http://httpbin.org/status/418")
test.isequal(responseCode, 418)
end
function suite.http_redirect()
local result, err, responseCode = http.get("http://httpbin.org/redirect/3")
if result then
test.isequal(responseCode, 200)
else
test.fail(err);
end
end
function suite.http_headers()
local result, err, responseCode = http.get("http://httpbin.org/headers", {
headers = { 'X-Premake: premake' }
})
if result then
if (not result:find('X-Premake')) then
test.fail("response doens't contain header")
test.print(result)
end
else
test.fail(err);
end
end