another test

[mono.git] / mono / tests / remoting1.cs

diff --git a/mono/tests/remoting1.cs b/mono/tests/remoting1.cs
index d4baa668e1b724779c29206db5150825e32631e6..de3ec58b9b11db95e720ed61316ee6bb4eb0a513 100644 (file)
--- a/mono/tests/remoting1.cs
+++ b/mono/tests/remoting1.cs
@@ -82,13 +82,16 @@ class R1 : MarshalByRefObject {
        }
 
        public long nonvirtual_Add (int a, int b) {
-               Console.WriteLine ("nonvirtual_Add");
+               Console.WriteLine ("nonvirtual_Add " + a + " + " + b);
                return a + b;
        }
 }
 
 class Test {
 
+       delegate MyStruct RemoteDelegate1 (int a, out int c, int b);
+       delegate long RemoteDelegate2 (int a, int b);
+
        static long test_call (R1 o)
        {
                return o.nonvirtual_Add (2, 3);
@@ -107,26 +110,27 @@ class Test {
                        return 1;
                
                if (!RemotingServices.IsTransparentProxy (o))
-                       return 1;
+                       return 2;
+
+               if (o.GetType () != myobj.GetType ())
+                       return 3;
 
-               Console.WriteLine (o.GetType ());
-               
                MyStruct myres = o.Add (2, out res, 3);
 
                Console.WriteLine ("Result: " + myres.a + " " +
                                   myres.b + " " + myres.c +  " " + res);
 
                if (myres.a != 2)
-                       return 1;
+                       return 4;
                
                if (myres.b != 3)
-                       return 1;
+                       return 5;
                
                if (myres.c != 5)
-                       return 1;
+                       return 6;
 
                if (res != 5)
-                       return 1;
+                       return 7;
 
                R1 o2 = new R1 ();
                
@@ -136,15 +140,36 @@ class Test {
 
                Console.WriteLine ("Result: " + lres);
                if (lres != 5)
-                       return 1;
+                       return 8;
                
                lres = test_call (o);
 
-               //o.test_field = 2;
+               o.test_field = 2;
                
                Console.WriteLine ("test_field: " + o.test_field);
-               if (o.test_field != 5)
-                       return 1;
+               if (o.test_field != 2)
+                       return 9;
+
+               RemoteDelegate1 d1 = new RemoteDelegate1 (o.Add);
+               MyStruct myres2 = d1 (2, out res, 3);
+
+               Console.WriteLine ("Result: " + myres2.a + " " +
+                                  myres2.b + " " + myres2.c +  " " + res);
+
+               if (myres2.a != 2)
+                       return 10;
+               
+               if (myres2.b != 3)
+                       return 11;
+               
+               if (myres2.c != 5)
+                       return 12;
+
+               if (res != 5)
+                       return 13;
+
+               RemoteDelegate2 d2 = new RemoteDelegate2 (o.nonvirtual_Add);
+               d2 (6, 7);
 
                return 0;
        }