mono/tests/delegate18.cs

   1 using System;
   2 using System.Reflection;
   3
   4 internal class Program
   5 {
   6         public static int Main (string[] args)
   7         {
   8                 // newobj Derived
   9                 Derived d = new Derived ();
  10                 // ldvirtftn Base::Foo
  11                 // newobj Del1::.ctor
  12                 Del1 b = new Del1 (d.Foo);
  13                 var mi = typeof (Del1).GetMethod ("Invoke");
  14                 if (mi is null)
  15                         return 2;
  16                 // should call Derived.Foo not Base.Foo
  17                 var r = (int) mi.Invoke (b, new object[] {"abcd"});
  18                 return r;
  19         }
  20 }
  21
  22
  23 public delegate int Del1 (string s);
  24 public delegate int Del2 (string s);
  25
  26 public class Base
  27 {
  28         public virtual int Foo (string s)
  29         {
  30                 Console.WriteLine ("Base.Foo called. Bad");
  31                 return 1;
  32         }
  33 }
  34
  35 public class Derived : Base
  36 {
  37         public override int Foo (string s)
  38         {
  39                 Console.WriteLine ("Derived.Foo called. Good");
  40                 return 0;
  41         }
  42 }