Mercurial Hosting > luan
comparison scripts/test.luan @ 1270:d410747a671a
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" |