[Grapevine-cvs-commits] cvs: grapevine /cpp IOLoop.cpp Makefile.in /raisen/test test-server.xml

[blackh <gra...@li...>]

blackh		Thu Aug  7 13:05:53 2003 EDT

  Added files:                 
    /grapevine/raisen/test	test-server.xml 

  Modified files:              
    /grapevine/cpp	IOLoop.cpp Makefile.in 
  Log:
  Fix truncated socket output bug.
  
  
Index: grapevine/cpp/Makefile.in
diff -u grapevine/cpp/Makefile.in:1.34 grapevine/cpp/Makefile.in:1.35
--- grapevine/cpp/Makefile.in:1.34	Thu Jul 10 04:02:14 2003
+++ grapevine/cpp/Makefile.in	Thu Aug  7 13:05:52 2003
@@ -10,7 +10,7 @@
 # even the implied warranty of MERCHANTABILITY or FITNESS FOR A
 # PARTICULAR PURPOSE.
 
-# $Id: Makefile.in,v 1.34 2003/07/10 11:02:14 blackh Exp $
+# $Id: Makefile.in,v 1.35 2003/08/07 20:05:52 blackh Exp $
 
 
 SHELL = @SHELL@
Index: grapevine/raisen/test/test-server.xml
+++ grapevine/raisen/test/test-server.xml
<?xml version="1.0"?>

<grapevine>
  <domain name="test.test-server" author1="Stephen Blackheath" rev="$Revision: 1.1 $">
    
    <rules>
    
      init:
        <init/>,
	println("Regression test for socket I/O problem.  Run this server, and contact"),
	println("it over the Internet (otherwise it won't block).  Test fails if the"),
	println("output is truncated.  This was caused by not correctly handling "),
	println("EWOULDBLOCK/WSAEWOULDBLOCK errors after ::send / ::write was called."),
	println("Fixed in grapevine-1.0.6."),
	println(""),
        remember new <sys.http-in.listen id="sprat" port="2222" listener="test.test-server"/>;
        
      report:
        <sys.http-in.listen id="sprat" port="[port]" status="[status]" error="[error]"/>,
        println("listening on port " ## port ## " status=" ## status ## " " ## error);
        
      incoming:
        req=<request id="[id]" mode="process"/>,
	reply = new <reply id="[id]" count="0" of="1000"/>,
	fire reply,
	reply#text = base64encode("Welcome to the test server\r\n");

      incoming-10:
        reply=<reply id="[id]" count="[count]" of="[of]"/>,
	count &lt; of,
	reply#text = reply#text ## base64encode("Pack my box with five dozen liquor jugs! This is line " ## toString(count+1) ## " of " ## of ## "\r\n"),
	reply#count = count + 1;

      incoming-20:
        reply=<reply id="[id]"/>,
	text=reply#text,
	length = binaryLength(text),
        assert new <sys.http-in.response id="[id]" code="200 OK">
          <header content-type="text/plain" content-length="[length]"/>
	  <text>[text]</text>
        </sys.http-in.response>;
        
    </rules>
    
  </domain>
</grapevine>