#use "topfind";;
#require "netamqp,nettls-gnutls";;

open Netamqp_types
open Printf

let () =
  Netamqp_endpoint.Debug.enable := true;
  Netamqp_transport.Debug.enable := true


let esys = Unixqueue.create_unix_event_system()
let tls_config =
  Netsys_tls.create_x509_config
    ~peer_auth:`None
    (Netsys_crypto.current_tls())
let p = `TLS(`Inet("localhost", 5671), tls_config)
let ep = Netamqp_endpoint.create p (`AMQP_0_9 `One) esys
let c = Netamqp_connection.create ep
let auth = Netamqp_connection.plain_auth "guest" "guest"

let test1() =
  Netamqp_connection.open_s c [ auth ] (`Pref "en") "/";
  eprintf "*** Connection could be opened, and the proto handshake is done!\n%!";
  let props = Netamqp_endpoint.tls_session_props ep in
  Netamqp_connection.close_s c;
  eprintf "*** Connection could be closed!\n%!";
  match props with
    | None -> failwith "No TLS props!"
    | Some p -> p