repo/luan: http/src/luan/modules/http/HttpTest.luan comparison

make _ENV optional

author	Franklin Schmidt <fschmidt@gmail.com>
date	Wed, 20 May 2015 23:24:46 -0600
parents
children	7bc63886d4f2

comparison

equal deleted inserted replaced

-:d3183a330ff5
+:92c3d22745b8
+local Io = require "luan:Io"
+local Http = require "luan:http/Http"
+local M = {}
+M.welcome_file = "index.html"
+M.cookies = {}
+function M.get_page(path)
+	if M.welcome_file ~= nil and path.matches ".*/" then
+		path = path .. M.welcome_file
+	end
+	local old_out = Io.stdout
+	local mod = require("site:"..path)
+	mod.respond()
+	M.text_writer.close()
+	Io.stdout = old_out
+	return M.result.read_text()
+end
+function M.init()
+	Http.request = Http.new_request{}
+	Http.request.cookies = M.cookies
+	Http.response = Http.new_response{
+		text_writer = function()
+			M.result = Io.uri "string:"
+			M.text_writer = M.result.text_writer()
+			return M.text_writer
+		end;
+		set_cookie = function(name,value)
+			M.cookies[name] = value
+		end;
+		remove_cookie = function(name)
+			M.cookies[name] = nil
+		end;
+		send_redirect = function(url)
+			Http.response.redirect = url
+		end;
+	}
+end
+return M

Mercurial Hosting > luan