2007-05-11 Atsushi Enomoto <atsushi@ximian.com>

	* SoapServerType.cs : avoid IndexOutOfRange on reflecting
	  SoapRpcAttribute.

	* SoapServerTypeTest.cs : make sure that SoapRpcServiceAttribute works.

svn path=/trunk/mcs/; revision=77194

diff --git a/mcs/class/System.Web.Services/System.Web.Services.Protocols/ChangeLog b/mcs/class/System.Web.Services/System.Web.Services.Protocols/ChangeLog
index 0aa48bd885679ad10fbc0a271860676c6c1d1aa6..ae64ec2d0bacb7089ab74654f9dd3d26d56e59e0 100644 (file)
--- a/mcs/class/System.Web.Services/System.Web.Services.Protocols/ChangeLog
+++ b/mcs/class/System.Web.Services/System.Web.Services.Protocols/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-11  Atsushi Enomoto  <atsushi@ximian.com>
+
+       * SoapServerType.cs : avoid IndexOutOfRange on reflecting 
+         SoapRpcAttribute.
+
 2007-05-08  Atsushi Enomoto  <atsushi@ximian.com>
 
        * SoapServerMethod.cs : Some refactoring. simply use GetMethod() in

diff --git a/mcs/class/System.Web.Services/System.Web.Services.Protocols/ServerType.cs b/mcs/class/System.Web.Services/System.Web.Services.Protocols/ServerType.cs
index be3da7021b6f0bd00a486bfb46509a7387494c8c..f47f7ac117504cd81ec265e68f886aa65349e9ae 100644 (file)
--- a/mcs/class/System.Web.Services/System.Web.Services.Protocols/ServerType.cs
+++ b/mcs/class/System.Web.Services/System.Web.Services.Protocols/ServerType.cs
@@ -104,6 +104,7 @@ namespace System.Web.Services.Protocols
                                routingStyle = at.RoutingStyle;
                        }
                        else if (t.GetCustomAttributes (typeof(SoapRpcServiceAttribute), true).Length > 0) {
+                               o = t.GetCustomAttributes (typeof(SoapRpcServiceAttribute), true);
                                SoapRpcServiceAttribute at = (SoapRpcServiceAttribute) o[0];
 #if NET_2_0
                                bindingUse = at.Use;

diff --git a/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/ChangeLog b/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/ChangeLog
index 82048e7904ae2fd51757ae6107266fcd32c2db35..c6a892133861a065c34e4af07e2140dedc83f448 100644 (file)
--- a/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/ChangeLog
+++ b/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/ChangeLog
@@ -1,3 +1,7 @@
+2007-05-11  Atsushi Enomoto  <atsushi@ximian.com>
+
+       * SoapServerTypeTest.cs : make sure that SoapRpcServiceAttribute works.
+
 2007-05-08  Atsushi Enomoto  <atsushi@ximian.com>
 
        * SoapServerTypeTest.cs : added some more tests related to server

diff --git a/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/SoapServerTypeTest.cs b/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/SoapServerTypeTest.cs
index 32d69be644c09d03fff98a60c10d34b81dec6fdf..1476b80e93ff503abc7b84ac35b5f25ed29896d7 100644 (file)
--- a/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/SoapServerTypeTest.cs
+++ b/mcs/class/System.Web.Services/Test/System.Web.Services.Protocols/SoapServerTypeTest.cs
@@ -114,6 +114,22 @@ namespace MonoTests.System.Web.Services.Description
                        new SoapServerType (typeof (WrongBindingNameClass), WebServiceProtocols.HttpSoap);
                }
 
+               [Test]
+               public void SimpleRpcType ()
+               {
+                       new SoapServerType (typeof (SimpleRpcService), WebServiceProtocols.HttpSoap);
+               }
+
+               [WebService]
+               [SoapRpcService]
+               public class SimpleRpcService : WebService
+               {
+                       [WebMethod]
+                       public void Hello ()
+                       {
+                       }
+               }
+
                // bug #78953
                [WebServiceAttribute (Namespace = "www.DefaultNamespace.org")]
                [WebServiceBindingAttribute (Name = "Local", Namespace = "urn:localBinding:local")]