2003-09-30 Zoltan Varga <vargaz@freemail.hu>
[mono.git] / mono / tests / remoting1.cs
index a230fb40b4bae24651a5639d093afae95e5f7521..912133c45fe98d3421f0bd30a35c43ed2e7ac968 100644 (file)
@@ -63,8 +63,11 @@ public struct MyStruct {
        public int b;
        public int c;
 }
+
+interface R2 {
+}
        
-class R1 : MarshalByRefObject {
+class R1 : MarshalByRefObject, R2 {
 
        public int test_field = 5;
        
@@ -82,7 +85,7 @@ class R1 : MarshalByRefObject {
        }
 
        public long nonvirtual_Add (int a, int b) {
-               Console.WriteLine ("nonvirtual_Add");
+               Console.WriteLine ("nonvirtual_Add " + a + " + " + b);
                return a + b;
        }
 }
@@ -110,27 +113,29 @@ class Test {
                        return 1;
                
                if (!RemotingServices.IsTransparentProxy (o))
-                       return 1;
+                       return 2;
+
+               Console.WriteLine ("XXXXXXXXXXXX: " + RemotingServices.GetRealProxy (o));
 
                if (o.GetType () != myobj.GetType ())
-                       return 1;
-               
+                       return 3;
+
                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 ();
                
@@ -140,7 +145,7 @@ class Test {
 
                Console.WriteLine ("Result: " + lres);
                if (lres != 5)
-                       return 1;
+                       return 8;
                
                lres = test_call (o);
 
@@ -148,7 +153,7 @@ class Test {
                
                Console.WriteLine ("test_field: " + o.test_field);
                if (o.test_field != 2)
-                       return 1;
+                       return 9;
 
                RemoteDelegate1 d1 = new RemoteDelegate1 (o.Add);
                MyStruct myres2 = d1 (2, out res, 3);
@@ -157,20 +162,23 @@ class Test {
                                   myres2.b + " " + myres2.c +  " " + res);
 
                if (myres2.a != 2)
-                       return 1;
+                       return 10;
                
                if (myres2.b != 3)
-                       return 1;
+                       return 11;
                
                if (myres2.c != 5)
-                       return 1;
+                       return 12;
 
                if (res != 5)
-                       return 1;
+                       return 13;
 
                RemoteDelegate2 d2 = new RemoteDelegate2 (o.nonvirtual_Add);
                d2 (6, 7);
 
+               if (!(real_proxy.GetTransparentProxy () is R2))
+                       return 14;
+
                return 0;
        }
 }