95 lines
2.5 KiB
Lua
95 lines
2.5 KiB
Lua
local sproto = require "sproto"
|
|
local print_r = require "print_r"
|
|
|
|
local server_proto = sproto.parse [[
|
|
.package {
|
|
type 0 : integer
|
|
session 1 : integer
|
|
}
|
|
|
|
foobar 1 {
|
|
request {
|
|
what 0 : string
|
|
}
|
|
response {
|
|
ok 0 : boolean
|
|
}
|
|
}
|
|
|
|
foo 2 {
|
|
response {
|
|
ok 0 : boolean
|
|
}
|
|
}
|
|
|
|
bar 3 {}
|
|
|
|
blackhole 4 {
|
|
}
|
|
]]
|
|
|
|
local client_proto = sproto.parse [[
|
|
.package {
|
|
type 0 : integer
|
|
session 1 : integer
|
|
}
|
|
]]
|
|
|
|
print("=== default table")
|
|
|
|
print_r(server_proto:default("package"))
|
|
print_r(server_proto:default("foobar", "REQUEST"))
|
|
assert(server_proto:default("foo", "REQUEST")==nil)
|
|
assert(server_proto:request_encode("foo")=="")
|
|
server_proto:response_encode("foo", { ok = true })
|
|
assert(server_proto:request_decode("blackhole")==nil)
|
|
assert(server_proto:response_decode("blackhole")==nil)
|
|
|
|
print("=== test 1")
|
|
|
|
-- The type package must has two field : type and session
|
|
local server = server_proto:host "package"
|
|
local client = client_proto:host "package"
|
|
local client_request = client:attach(server_proto)
|
|
|
|
print("client request foobar")
|
|
local req = client_request("foobar", { what = "foo" }, 1)
|
|
print("request foobar size =", #req)
|
|
local type, name, request, response = server:dispatch(req)
|
|
assert(type == "REQUEST" and name == "foobar")
|
|
print_r(request)
|
|
print("server response")
|
|
local resp = response { ok = true }
|
|
print("response package size =", #resp)
|
|
print("client dispatch")
|
|
local type, session, response = client:dispatch(resp)
|
|
assert(type == "RESPONSE" and session == 1)
|
|
print_r(response)
|
|
|
|
local req = client_request("foo", nil, 2)
|
|
print("request foo size =", #req)
|
|
local type, name, request, response = server:dispatch(req)
|
|
assert(type == "REQUEST" and name == "foo" and request == nil)
|
|
local resp = response { ok = false }
|
|
print("response package size =", #resp)
|
|
print("client dispatch")
|
|
local type, session, response = client:dispatch(resp)
|
|
assert(type == "RESPONSE" and session == 2)
|
|
print_r(response)
|
|
|
|
local req = client_request("bar") -- bar has no response
|
|
print("request bar size =", #req)
|
|
local type, name, request, response = server:dispatch(req)
|
|
assert(type == "REQUEST" and name == "bar" and request == nil and response == nil)
|
|
|
|
local req = client_request "blackhole"
|
|
print("request blackhole size = ", #req)
|
|
|
|
print("=== test 2")
|
|
local v, tag = server_proto:request_encode("foobar", { what = "hello"})
|
|
print("tag =", tag)
|
|
print_r(server_proto:request_decode("foobar", v))
|
|
local v, tag = server_proto:response_encode("foobar", { ok = true })
|
|
print("tag =", tag)
|
|
print_r(server_proto:response_decode("foobar", v))
|