kc3-lang/kc3/test/tls/tls.kc3

• Show log

  Commit

• Hash : abb8cf40
  Author : Thomas de Grivel
  Date : 2025-09-13T03:54:12
  

  wip test tls private key file
  

Download

• test/tls/tls.kc3

• quote require Socket
  require Socket
  quote require Socket.Buf
  require Socket.Buf
  quote require TLS
  require TLS
  quote TLS.init()
  TLS.init()
  quote (server_config = TLS.Config.new()) ; void
  (server_config = TLS.Config.new()) ; void
  quote TLS.Config.set_key_file(server_config,
    "/etc/ssl/private/privkey.pem") ; void
  TLS.Config.set_key_file(server_config,
    "/etc/ssl/private/privkey.pem") ; void
  quote (server = Socket.listen("127.0.0.1", "57000")); void
  (server = Socket.listen("127.0.0.1", "57000")) ; void
  quote (client_config = TLS.Config.new()) ; void
  (client_config = TLS.Config.new()) ; void
  quote TLS.Config.set_ca_file(client_config, TLS.ca_cert_path()) ; void
  TLS.Config.set_ca_file(client_config, TLS.ca_cert_path()) ; void
  quote (client = Socket.Buf.connect("127.0.0.1", "57000")) ; void
  (client = Socket.Buf.connect("127.0.0.1", "57000")) ; void
  quote (server_client = Socket.Buf.accept(server)) ; void
  (server_client = Socket.Buf.accept(server)) ; void
  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)
  quote TLS.Config.free(client_config)
  TLS.Config.free(client_config)
  quote TLS.Config.free(server_config)
  TLS.Config.free(server_config)
  

Download