Add tests for http.get

tests/_tests.lua

@@ -17,6 +17,7 @@ return {
 	"base/test_tree.lua",
 	"base/test_uuid.lua",
 	"base/test_versions.lua",
+	"base/test_http.lua",
 
 	-- Workspace object tests
 	"workspace/test_eachconfig.lua",

tests/base/test_http.lua

@@ -0,0 +1,68 @@
+--
+-- 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.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