2007-09-25 Zoltan Varga <vargaz@gmail.com>

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

diff --git a/mono/tests/codegen.cs b/mono/tests/codegen.cs
index c5924039202507f536d9a17674c5df166c0945b9..8886255cefd9d1a718836b726e592f07b79a79d8 100644 (file)
--- a/mono/tests/codegen.cs
+++ b/mono/tests/codegen.cs
@@ -8,28 +8,42 @@ class CGen {
                AssemblyBuilder abuilder;
                ModuleBuilder mbuilder;
                TypeBuilder tbuilder;
+               FieldBuilder fbuilder;
+               PropertyBuilder pbuilder;
                AssemblyName an;
                String name = "tcgen.exe";
-               MethodBuilder method;
+               MethodBuilder method, get_method;
                TypeAttributes attrs = TypeAttributes.Public | TypeAttributes.Class;
                MethodAttributes mattrs = MethodAttributes.Public | MethodAttributes.Static;
-               byte[] body = {0x2a}; // ret
+               byte[] body = {0x16, 0x2a}; // ldc.i4.0 ret
 
                an = new AssemblyName ();
                an.Name = name;
                abuilder = AppDomain.CurrentDomain.DefineDynamicAssembly (an, AssemblyBuilderAccess.Save);
 
                mbuilder = abuilder.DefineDynamicModule (name, name);
-               abuilder.Save(name);
 
                tbuilder = mbuilder.DefineType ("Test.CodeGen", attrs);
                Type result = typeof(int);
-               Type[] param = new Type[] {};
+               Type[] param = new Type[] {typeof (String[])};
                method = tbuilder.DefineMethod("Main", mattrs, result, param);
                method.CreateMethodBody (body, body.Length);
+
+               fbuilder = tbuilder.DefineField ("int_field", typeof(int), FieldAttributes.Private);
+               fbuilder = tbuilder.DefineField ("string_field", typeof(string), FieldAttributes.Public);
+               /*pbuilder = tbuilder.DefineProperty ("FieldI", PropertyAttributes.None, typeof(int), null);
+               get_method = tbuilder.DefineMethod("get_FieldI", MethodAttributes.Public, result, null);
+               get_method.CreateMethodBody (body, body.Length);
+               pbuilder.SetGetMethod (get_method);*/
+
                Type t = tbuilder.CreateType ();
                abuilder.SetEntryPoint (method);
                abuilder.Save (name);
+               Console.WriteLine ("abuilder == module.assembly: {0}", abuilder == mbuilder.Assembly);
+               Console.WriteLine ("abuilder == type.assembly: {0}", abuilder == t.Assembly);
+               Console.WriteLine ("abuilder == tbuilder.assembly: {0}", abuilder == tbuilder.Assembly);
+               Console.WriteLine ("mbuilder == type.Module: {0}", mbuilder == t.Module);
+               Console.WriteLine ("mbuilder == tbuilder.Module: {0}", mbuilder == tbuilder.Module);
                return 0;
        }
 }