Mercurial Hosting > luan

comparison scripts/test.luan @ 1270:d410747a671a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix scripts/test.luan
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 12 Nov 2018 20:02:50 -0700
parents bcb39089e899
children 709f7498a363
comparison
equal deleted inserted replaced
1269:bcb39089e899 1270:d410747a671a
20 local range = Luan.range or error() 20 local range = Luan.range or error()
21 local trim = String.trim or error() 21 local trim = String.trim or error()
22 local find = String.find or error() 22 local find = String.find or error()
23 local init = Http_test.init or error() 23 local init = Http_test.init or error()
24 local get_page = Http_test.get_page or error() 24 local get_page = Http_test.get_page or error()
25 local run_page = Http_test.run_page or error()
25 26
26 27
27 local function print(...) 28 local function print(...)
28 Io.print_to(Io.stderr,...) 29 Io.print_to(Io.stderr,...)
29 end 30 end
30 31
31 function Io.schemes.site(path)
32 return Io.uri( "luan:http/tools"..path )
33 end
34
35 local page 32 local page
36 33
37 init() 34 init()
38 Http.request.parameters.code = "require('luan:Io.luan').print 'hi'" 35 Http.request.parameters.code = "require('luan:Io.luan').print 'hi'"
39 page = get_page "/run" 36 page = run_page(require("luan:http/tools/Run.luan").respond)
40 trim(page) == "hi" or error "failed" 37 trim(page) == "hi" or error "failed"
41 38
42 init() 39 init()
43 Http.request.parameters.cmd = "'ab'..'cd'" 40 Http.request.parameters.cmd = "'ab'..'cd'"
44 page = get_page "/shell" 41 page = run_page(require("luan:http/tools/Shell.luan").respond)
45 find(page,"abcd") or error "failed" 42 find(page,"abcd") or error "failed"
46 43
47 44
48 -- lucene 45 -- lucene
49 46
77 init(); get_page "/docs.html" 74 init(); get_page "/docs.html"
78 init(); get_page "/tutorial.html" 75 init(); get_page "/tutorial.html"
79 init(); get_page "/pil.html" 76 init(); get_page "/pil.html"
80 init(); get_page "/manual.html" 77 init(); get_page "/manual.html"
81 init(); get_page "/diff.html" 78 init(); get_page "/diff.html"
82 init(); get_page "/examples/hi" 79 init(); get_page "/examples/hi.html"
83 init(); get_page "/examples/hi2" 80 init(); get_page "/examples/hi2.html"
84 init(); get_page "/examples/shell" 81 init(); get_page "/examples/shell.html"
85 82
86 init() 83 init()
87 Http.request.parameters.name = "bob" 84 Http.request.parameters.name = "bob"
88 page = get_page "/examples/hi2" 85 page = get_page "/examples/hi2.html"
89 find(page,"bob") or error "failed" 86 find(page,"bob") or error "failed"
90 87
91 88
92 print "done" 89 print "done"