Mercurial Hosting > luan

annotate src/luan/modules/http/Http_test.luan @ 1520:d9a5405a3102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
try statement
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 21 Jun 2020 18:14:13 -0600
parents b3c4fcf29a53
children b82767112d8e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 629
diff changeset
1 local Luan = require "luan:Luan.luan"
572
f1601a4ce1aa fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents: 571
diff changeset
2 local error = Luan.error
f1601a4ce1aa fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents: 571
diff changeset
3 local set_metatable = Luan.set_metatable or error()
702
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
4 local Package = require "luan:Package.luan"
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 629
diff changeset
5 local Io = require "luan:Io.luan"
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 629
diff changeset
6 local String = require "luan:String.luan"
572
f1601a4ce1aa fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents: 571
diff changeset
7 local matches = String.matches or error()
693
ca169567ce07 module URIs must now include ".luan"
Franklin Schmidt <fschmidt@gmail.com>
parents: 629
diff changeset
8 local Http = require "luan:http/Http.luan"
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9
572
f1601a4ce1aa fix stack when calling meta-methods
Franklin Schmidt <fschmidt@gmail.com>
parents: 571
diff changeset
10
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
11 local Http_test = {}
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
13 Http_test.welcome_file = "index.html"
1153
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
14 Http_test.cookies = {}
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
16 function Http_test.get_page(path)
702
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
17 Http.request.path = path
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
18 if Http_test.welcome_file ~= nil and matches(path,"/$") then
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
19 path = path .. Http_test.welcome_file
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 end
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 local old_out = Io.stdout
1520
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
22 try
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
23 local mod = Package.load("site:"..path..".luan") or error(path.." not found")
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
24 mod()
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
25 Http_test.text_writer.close()
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
26 finally
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
27 Io.stdout = old_out
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
28 end
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
29 return Http_test.result.read_text()
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30 end
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31
1270
d410747a671a fix scripts/test.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1228
diff changeset
32 function Http_test.run_page(page_fn)
d410747a671a fix scripts/test.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1228
diff changeset
33 local old_out = Io.stdout
1520
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
34 try
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
35 page_fn()
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
36 Http_test.text_writer.close()
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
37 finally
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
38 Io.stdout = old_out
d9a5405a3102 try statement
Franklin Schmidt <fschmidt@gmail.com>
parents: 1340
diff changeset
39 end
1270
d410747a671a fix scripts/test.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1228
diff changeset
40 return Http_test.result.read_text()
d410747a671a fix scripts/test.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1228
diff changeset
41 end
d410747a671a fix scripts/test.luan
Franklin Schmidt <fschmidt@gmail.com>
parents: 1228
diff changeset
42
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
43 function Http_test.init()
1228
Franklin Schmidt <fschmidt@gmail.com>
parents: 1160
diff changeset
44 function Http.reset_luan() end
1160
4beabb087be6 add http/impl
Franklin Schmidt <fschmidt@gmail.com>
parents: 1153
diff changeset
45 Http.request = Http.new_request()
1153
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
46 Http.request.cookies = Http_test.cookies
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
47
1160
4beabb087be6 add http/impl
Franklin Schmidt <fschmidt@gmail.com>
parents: 1153
diff changeset
48 Http.response = {
4beabb087be6 add http/impl
Franklin Schmidt <fschmidt@gmail.com>
parents: 1153
diff changeset
49
4beabb087be6 add http/impl
Franklin Schmidt <fschmidt@gmail.com>
parents: 1153
diff changeset
50 headers = {}
4beabb087be6 add http/impl
Franklin Schmidt <fschmidt@gmail.com>
parents: 1153
diff changeset
51
4beabb087be6 add http/impl
Franklin Schmidt <fschmidt@gmail.com>
parents: 1153
diff changeset
52 status = Http.STATUS.OK
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
53
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
54 text_writer = function()
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
55 Http_test.result = Io.uri "string:"
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
56 Http_test.text_writer = Http_test.result.text_writer()
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
57 return Http_test.text_writer
702
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
58 end
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
59
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
60 set_cookie = function(name,value)
1153
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
61 Http_test.cookies[name] = value
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
62 end
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
63
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
64 set_persistent_cookie = function(name,value)
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
65 Http_test.cookies[name] = value
702
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
66 end
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
67
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
68 remove_cookie = function(name)
1153
1f4da56abd4f change http cookies interface
Franklin Schmidt <fschmidt@gmail.com>
parents: 1088
diff changeset
69 Http_test.cookies[name] = nil
702
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
70 end
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
71
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
72 send_redirect = function(url)
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
73 Http.response.redirect = url
702
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
74 end
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
75
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
76 send_error = function(code)
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
77 error("sent error "..code)
87970832a3c3 improve Http_test
Franklin Schmidt <fschmidt@gmail.com>
parents: 693
diff changeset
78 end
503
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
79
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
80 }
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
81
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
82 end
92c3d22745b8 make _ENV optional
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
83
1088
bae2d0c2576c change module naming convention
Franklin Schmidt <fschmidt@gmail.com>
parents: 799
diff changeset
84 return Http_test