kc3-lang/kc3/test/http/04_server_request.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/04_server_request.kc3

• quote server = Socket.listen("localhost", "58000")
  server = Socket.listen("localhost", "58000")
  quote client = Socket.Buf.connect("localhost", "58000")
  client = Socket.Buf.connect("localhost", "58000")
  quote server_client = Socket.accept(server)
  server_client = Socket.Buf.accept(server)
  quote Buf.write_str(client.buf_rw.w, "GET / HTTP/1.0\r\n\r\n")
  Buf.write_str(client.buf_rw.w, "GET / HTTP/1.0\r\n\r\n")
  quote req = HTTP.Request.buf_parse(server_client.buf_rw.r)
  req = HTTP.Request.buf_parse(server_client.buf_rw.r)
  quote response = %HTTP.Response{body: "Hello, KC3 HTTP test server !"}
  response = %HTTP.Response{body: "Hello, KC3 HTTP test server !"}
  quote HTTP.Response.buf_write(response, client.buf_rw.w, true)
  HTTP.Response.buf_write(response, client.buf_rw.w, true)
  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 HTTP.Request.buf_parse(server_client.buf_rw.r)
  HTTP.Request.buf_parse(server_client.buf_rw.r)
  quote HTTP.Response.buf_write(response, client.buf_rw.w, true)
  HTTP.Response.buf_write(response, client.buf_rw.w, true)
  quote HTTP.Request.buf_parse(server_client.buf_rw.r)
  HTTP.Request.buf_parse(server_client.buf_rw.r)
  quote HTTP.Response.buf_write(response, client.buf_rw.w, true)
  HTTP.Response.buf_write(response, client.buf_rw.w, true)
  quote Socket.Buf.close(client)
  Socket.Buf.close(client)
  quote Socket.Buf.close(server_client)
  Socket.Buf.close(server_client)
  quote Socket.close(server)
  Socket.close(server)
  

Download