mono/tests/fullaot-mixed/lambda.cs

   1 /* This test is extracted from System.Core tests, that happens to be
   2  * problematic if *all* assemblies are full-aot'd, but the interpreter is still
   3  * used for SRE.
   4  */
   5 using System;
   6 using System.Collections.Generic;
   7 using System.Reflection;
   8 using System.Linq;
   9 using System.Linq.Expressions;
  10
  11 public class Repro {
  12         public class Foo {
  13                 public string Bar;
  14                 public string Baz;
  15
  16                 public Gazonk Gaz;
  17
  18                 public Gazonk Gazoo { get; set; }
  19
  20                 public string Gruik { get; set; }
  21
  22                 public Foo ()
  23                 {
  24                         Gazoo = new Gazonk ();
  25                         Gaz = new Gazonk ();
  26                 }
  27         }
  28
  29         public class Gazonk {
  30                 public string Tzap;
  31
  32                 public int Klang;
  33
  34                 public string Couic { get; set; }
  35
  36                 public string Bang () { return ""; }
  37         }
  38
  39         public static int CompiledMemberBinding ()
  40         {
  41                 var getfoo = Expression.Lambda<Func<Foo>> (
  42                                 Expression.MemberInit (
  43                                         Expression.New (typeof (Foo)),
  44                                         Expression.MemberBind (
  45                                                 typeof (Foo).GetProperty ("Gazoo"),
  46                                                 Expression.Bind (typeof (Gazonk).GetField ("Tzap"),
  47                                                         Expression.Constant ("tzap")),
  48                                                 Expression.Bind (typeof (Gazonk).GetField ("Klang"),
  49                                                         Expression.Constant (42))))).Compile ();
  50
  51                 var foo = getfoo ();
  52
  53                 if (foo == null)
  54                         return 2;
  55                 if (foo.Gazoo.Klang != 42)
  56                         return 3;
  57                 if (foo.Gazoo.Tzap != "tzap")
  58                         return 4;
  59
  60                 return 0;
  61         }
  62
  63         public static int Main (string []args)
  64         {
  65                 return CompiledMemberBinding ();
  66         }
  67 }