kc3-lang/kc3/test/http/07_client_server.kc3

Tag - branch -callablemasterconfigurefnfractionsfractions-rebaselinuxratio-rebasev0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.13v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.1.1HTTPd-v0.1.0

• Show log

  Commit

• Hash : f91b2487
  Author : Thomas de Grivel
  Date : 2024-08-15T15:40:08
  

  test http 07_client_server

Download

• test/http/07_client_server.kc3

• quote server = Socket.listen("localhost", "57000")
  server = Socket.listen("localhost", "57000")
  quote client = Socket.Buf.connect("localhost", "57000")
  client = Socket.Buf.connect("localhost", "57000")
  quote server_client = Socket.Buf.accept(server)
  server_client = Socket.Buf.accept(server)
  quote client_req = %HTTP.Request{method: :get,
                                   url: "/",
                                   protocol: "HTTP/1.1",
                                   headers: []}
  client_req = %HTTP.Request{method: :get,
                             url: "/",
                             protocol: "HTTP/1.1",
                             headers: []}
  quote HTTP.Request.buf_write(client_req, client.buf_rw.w)
  HTTP.Request.buf_write(client_req, client.buf_rw.w)
  quote req = HTTP.Request.buf_parse(server_client.buf_rw.r)
  req = HTTP.Request.buf_parse(server_client.buf_rw.r)
  quote puts(req)
  puts(req)
  quote res = HTTP.Response.buf_write(%HTTP.Response{body: "Hello !"}, server_client.buf_rw.w, true)
  res = HTTP.Response.buf_write(%HTTP.Response{body: "Hello !"}, server_client.buf_rw.w, true)
  quote client_response = HTTP.Response.buf_parse(client.buf_rw.r, true)
  client_response = HTTP.Response.buf_parse(client.buf_rw.r, true)
  quote puts(client_response)
  puts(client_response)
  quote Socket.Buf.close(server_client)
  Socket.Buf.close(server_client)
  quote Socket.Buf.close(client)
  Socket.Buf.close(client)
  quote Socket.close(server)
  Socket.close(server)
  

Download