From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@sympa.inria.fr Delivered-To: caml-list@sympa.inria.fr Received: from mail2-relais-roc.national.inria.fr (mail2-relais-roc.national.inria.fr [192.134.164.83]) by sympa.inria.fr (Postfix) with ESMTPS id 6DA947EEF6 for ; Tue, 16 Jun 2015 17:03:16 +0200 (CEST) Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of kennethadammiller@gmail.com) identity=pra; client-ip=209.85.214.177; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="kennethadammiller@gmail.com"; x-sender="kennethadammiller@gmail.com"; x-conformance=sidf_compatible Received-SPF: Pass (mail2-smtp-roc.national.inria.fr: domain of kennethadammiller@gmail.com designates 209.85.214.177 as permitted sender) identity=mailfrom; client-ip=209.85.214.177; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="kennethadammiller@gmail.com"; x-sender="kennethadammiller@gmail.com"; x-conformance=sidf_compatible; x-record-type="v=spf1" Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of postmaster@mail-ob0-f177.google.com) identity=helo; client-ip=209.85.214.177; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="kennethadammiller@gmail.com"; x-sender="postmaster@mail-ob0-f177.google.com"; x-conformance=sidf_compatible X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: A0BiAwBdOYBVm7HWVdFbgkWBfgaDGLBPk08HTAEBAQEBARIBAQEBAQYLCwkhLoQ7EQQZARseAxIDDS0KAiQBEQEFASI1h3cBAxKZNI06gzE+MYs/gWuCeYt4ChknDVeFCAEFDo9xgzqBRQWTX4tFlk4SI4EMCYQ7IjGCRwEBAQ X-IPAS-Result: A0BiAwBdOYBVm7HWVdFbgkWBfgaDGLBPk08HTAEBAQEBARIBAQEBAQYLCwkhLoQ7EQQZARseAxIDDS0KAiQBEQEFASI1h3cBAxKZNI06gzE+MYs/gWuCeYt4ChknDVeFCAEFDo9xgzqBRQWTX4tFlk4SI4EMCYQ7IjGCRwEBAQ X-IronPort-AV: E=Sophos;i="5.13,626,1427752800"; d="scan'208";a="165617049" Received: from mail-ob0-f177.google.com ([209.85.214.177]) by mail2-smtp-roc.national.inria.fr with ESMTP/TLS/RC4-SHA; 16 Jun 2015 17:03:15 +0200 Received: by obbgp2 with SMTP id gp2so13236342obb.2 for ; Tue, 16 Jun 2015 08:03:14 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:date:message-id:subject:from:to:content-type; bh=LOXfrhoPKioY8vAhsD6T/OgqTwMwQokJG0PsdilyIJg=; b=HGOVe2PFB23dNFZKYLoiTtEXyY1769HIySW0kCvWIOXQrVl6jzBehHiKbxVq7wq8CO mbjgEyZ4IwiaTZsAMqbU2ZPZUxd/n+/5yHzh/YXFbeKzXV3dPHyKEQESsT3U/jEHySJq v8xBeH8T9ThJ+Pi0o4pvYN+Q+6661cBHQMUDZkVgs93kwHawqouWQs7n1SG1hrcvoBKn Wz9b8Ype6jniauIfltzJnRTFBTzheN7wALDBrzQnC7FqEAOL1rOG6E6OoBflfWpQ2auD VMUdH5mChyfU4k9laoFZ4F5eyUkDb3dw3Qo8nlOaleouNg4eNJqckSvmCoeaTDH6ccXP LW5Q== MIME-Version: 1.0 X-Received: by 10.60.50.168 with SMTP id d8mr650234oeo.41.1434466994215; Tue, 16 Jun 2015 08:03:14 -0700 (PDT) Received: by 10.202.191.8 with HTTP; Tue, 16 Jun 2015 08:03:14 -0700 (PDT) Date: Tue, 16 Jun 2015 11:03:14 -0400 Message-ID: From: Kenneth Adam Miller To: caml users Content-Type: multipart/alternative; boundary=001a11c30bf0a1e1e10518a3df86 Subject: [Caml-list] Async Server not executing --001a11c30bf0a1e1e10518a3df86 Content-Type: text/plain; charset=UTF-8 I'm having trouble with OCaml Async. I wrote a small server with it, and right now I'm trying to unit test that server. Here's my code for the server: let _main ()= print_endline "Server running"; let handler = print_endline in let socket = Tcp.on_port 5554 in let server = Tcp.Server.create socket (fun addr r w -> (Reader.contents r) >>| handler; (Writer.write w "got it")) in server In my unit test code I have: let test_shutdown test_ctxt = Thread_safe.block_on_async_exn (fun () -> ( print_endline "test_shutdown"; let server = Server._main () in server >>= fun server -> let where = Tcp.to_host_and_port "127.0.0.1" 5554 in Tcp.connect where >>= fun s -> let socket, r, w = s in ignore (Writer.write w "kill"); ignore (Writer.flushed w); (Reader.recv r >>> function | `Ok result -> print_endline ("writing shutdown to server" ^ result) | `Eof -> ()); return () )); () I see test_shutdown and Server running, but not sign of "writing shutdown to server" or even "got it"; why isn't my server or even any of the connection executing? --001a11c30bf0a1e1e10518a3df86 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
I'm having trouble with OCaml Async. I wrote a small server= with it, and right now I'm trying to unit test that server. Here's= my code for the server:


let _main=C2= =A0()=3D
=C2=A0 print_endline=C2=A0&quo= t;Server running";
=C2=A0 let handler=C2=A0=3D=C2=A0print_endline=C2=A0in
= =C2=A0 let socket=C2=A0=3D=C2=A0Tcp.on_port= =C2=A05554=C2=A0in
=C2=A0 let server=C2=A0= =3D=C2=A0Tcp.Server.create socket=C2=A0(<= /span>fun addr r w=C2=A0->
=C2=A0 =C2=A0 =C2= =A0=C2=A0(Reader.contents r)=C2=A0>>= ;|=C2=A0handler;=C2=A0(Writer.write w=C2=A0"got it"))=C2=A0in
=C2=A0 server


=
In my unit te= st code I have:
let test_shutdown test_ctxt=C2= =A0=3D=C2=A0Thread_safe.block_on_async_ex= n=C2=A0(fun=C2=A0()=C2=A0->=C2=A0(
=C2=A0 =C2=A0 =C2=A0 print_endline=C2=A0"test_shutdown";
=C2=A0 =C2=A0 = =C2=A0 let server=C2=A0=3D=C2=A0Server._mai= n=C2=A0()=C2=A0in
=C2=A0 =C2=A0 =C2=A0 server=C2=A0>>=3D=C2=A0fun server=C2= =A0->
=C2=A0 =C2=A0 =C2=A0 let=C2=A0= where=C2=A0=3D=C2=A0Tcp.to_host_and_port=C2=A0&= quot;127.0.0.1"=C2=A05554=C2=A0<= span class=3D"" style=3D"margin:0px;padding:0px;border:0px;vertical-align:b= aseline;color:rgb(0,0,136)">in
=C2=A0 = =C2=A0 =C2=A0=C2=A0Tcp.connect=C2=A0where=C2= =A0>>=3D=C2=A0fun s=C2=A0->=C2=A0
=C2=A0 =C2=A0 =C2=A0 =C2=A0 let soc= ket,=C2=A0r,=C2=A0w=C2=A0=3D=C2=A0s=C2=A0in
=C2=A0 =C2=A0 =C2=A0 =C2=A0 ignore=C2=A0(= Writer.write w=C2=A0"kill");
= =C2=A0 =C2=A0 =C2=A0 =C2=A0 ignore=C2=A0(Writer.flushed w);
=C2=A0 =C2=A0 = =C2=A0 =C2=A0=C2=A0(Reader.recv r=C2=A0= >>>=C2=A0function
=C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0=C2=A0|=C2=A0`Ok resul= t -> =C2=A0print_endline ("writing shutdown to server" ^ resul= t)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 | `Eof=C2=A0->=C2=A0());
=C2=A0 =C2= =A0 =C2=A0 =C2=A0=C2=A0return=C2=A0()
=C2=A0 =C2=A0=C2=A0));=C2=A0()



I see test_shutdown and Server running, but not sign of &qu= ot;writing shutdown to server" or even "got it"; why isn'= ;t my server or even any of the connection executing?
--001a11c30bf0a1e1e10518a3df86--