Author: gert
Date: 2008-02-08 13:26:20 -0500 (Fri, 08 Feb 2008)
New Revision: 95290
Added:
trunk/gert/standalone/bug358987/
trunk/gert/standalone/bug358987/client.cs
trunk/gert/standalone/bug358987/default.build
trunk/gert/standalone/bug358987/server.cs
Modified:
trunk/gert/standalone/known-issues
Log:
Added test for bug #358987.
Added: trunk/gert/standalone/bug358987/client.cs
===================================================================
--- trunk/gert/standalone/bug358987/client.cs 2008-02-08 18:11:21 UTC (rev
95289)
+++ trunk/gert/standalone/bug358987/client.cs 2008-02-08 18:26:20 UTC (rev
95290)
@@ -0,0 +1,19 @@
+using System;
+using System.Net;
+using System.Net.Sockets;
+using System.Text;
+
+class Client
+{
+ static void Main ()
+ {
+ Socket s = new Socket (AddressFamily.InterNetwork,
SocketType.Stream, ProtocolType.Tcp);
+ s.Connect (IPAddress.Parse ("127.0.0.1"), 8081);
+ string request = "GET / HTTP/1.1\r\n" +
+ "Host: 127.0.0.1\r\n\r\n";
+ //request = "GET / HTTP/1.1\r\nHost: 127.0.0.1:8001\r\n\r\n";
+ s.Send (Encoding.UTF8.GetBytes (request));
+ s.Shutdown (SocketShutdown.Both);
+ s.Close ();
+ }
+}
Property changes on: trunk/gert/standalone/bug358987/client.cs
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/gert/standalone/bug358987/default.build
===================================================================
--- trunk/gert/standalone/bug358987/default.build 2008-02-08 18:11:21 UTC
(rev 95289)
+++ trunk/gert/standalone/bug358987/default.build 2008-02-08 18:26:20 UTC
(rev 95290)
@@ -0,0 +1,38 @@
+<project name="bug358987" default="rebuild">
+ <include buildfile="../../build/common.build" />
+
+ <property name="frameworks" value="mono-2.0,net-2.0" />
+
+ <target name="clean">
+ <delete>
+ <fileset>
+ <include name="client.exe" />
+ <include name="ok" />
+ <include name="out" />
+ <include name="server.exe" />
+ </fileset>
+ </delete>
+ </target>
+
+ <target name="compile" depends="init">
+ <csc target="exe" define="${csc.defines}" output="client.exe"
warnaserror="true" warninglevel="4">
+ <sources>
+ <include name="client.cs" />
+ </sources>
+ </csc>
+ <csc target="exe" define="${csc.defines}" output="server.exe"
warnaserror="true" warninglevel="4">
+ <sources>
+ <include name="server.cs" />
+ </sources>
+ </csc>
+ </target>
+
+ <target name="run-test" depends="compile">
+ <exec program="server.exe" managed="true" spawn="true"
pidproperty="server.pid" />
+ <sleep milliseconds="200" />
+ <exec program="client.exe" managed="true" />
+ <sleep milliseconds="4000" />
+ <fail if="${file::exists('out')}">#1</fail>
+ <fail unless="${file::exists('ok')}">#2</fail>
+ </target>
+</project>
Property changes on: trunk/gert/standalone/bug358987/default.build
___________________________________________________________________
Name: svn:eol-style
+ native
Added: trunk/gert/standalone/bug358987/server.cs
===================================================================
--- trunk/gert/standalone/bug358987/server.cs 2008-02-08 18:11:21 UTC (rev
95289)
+++ trunk/gert/standalone/bug358987/server.cs 2008-02-08 18:26:20 UTC (rev
95290)
@@ -0,0 +1,30 @@
+using System;
+using System.Net;
+using System.IO;
+using System.Text;
+
+class Server
+{
+ static void Main ()
+ {
+ HttpListener listener = new HttpListener ();
+ listener.Prefixes.Add ("http://*:8081/";);
+ listener.Start ();
+
+ HttpListenerContext context = listener.GetContext ();
+
+ // Create the response.
+ HttpListenerResponse response = context.Response;
+ string responseString = "<html><body>hi client</body></html>";
+ byte [] buffer = Encoding.UTF8.GetBytes (responseString);
+ response.ContentLength64 = buffer.Length;
+ System.Threading.Thread.Sleep (3000);
+ response.OutputStream.Write (buffer, 0, buffer.Length);
+ if (response != null)
+ response.Close ();
+ listener.Close ();
+
+ string dir = AppDomain.CurrentDomain.BaseDirectory;
+ File.Create (Path.Combine (dir, "ok")).Close ();
+ }
+}
Property changes on: trunk/gert/standalone/bug358987/server.cs
___________________________________________________________________
Name: svn:eol-style
+ native
Modified: trunk/gert/standalone/known-issues
===================================================================
--- trunk/gert/standalone/known-issues 2008-02-08 18:11:21 UTC (rev 95289)
+++ trunk/gert/standalone/known-issues 2008-02-08 18:26:20 UTC (rev 95290)
@@ -138,3 +138,4 @@
bug351740/**
bug353495/**
bug353537/**
+bug358987/**
_______________________________________________
Mono-patches maillist - [email protected]
http://lists.ximian.com/mailman/listinfo/mono-patches
