2003-06-15 Zoltan Varga <[email protected]>

	* PropertyBuilderTest.cs: New file.

svn path=/trunk/mcs/; revision=15416

mcs/class/corlib/Test/System.Reflection.Emit/ChangeLog

@@ -1,3 +1,7 @@
+2003-06-15  Zoltan Varga  <[email protected]>
+
+	* PropertyBuilderTest.cs: New file.
+
 2003-05-28  Nick Drochak <[email protected]>
 
 	* MethodBuilderTest: correct order of expected and actual values.

mcs/class/corlib/Test/System.Reflection.Emit/PropertyBuilderTest.cs

@@ -0,0 +1,104 @@
+//
+// PropertyBuilderTest.cs - NUnit Test Cases for the PropertyBuilder class
+//
+// Zoltan Varga ([email protected])
+//
+// (C) Ximian, Inc.  http://www.ximian.com
+
+using System;
+using System.Threading;
+using System.Reflection;
+using System.Reflection.Emit;
+using System.Runtime.CompilerServices;
+
+using NUnit.Framework;
+
+namespace MonoTests.System.Reflection.Emit
+{
+
+[TestFixture]
+public class PropertyBuilderTest : Assertion
+{	
+    private TypeBuilder tb;
+
+	private ModuleBuilder module;
+
+	[SetUp]
+	protected void SetUp () {
+		AssemblyName assemblyName = new AssemblyName();
+		assemblyName.Name = "MonoTests.System.Reflection.Emit.PropertyBuilderTest";
+
+		AssemblyBuilder assembly 
+			= Thread.GetDomain().DefineDynamicAssembly(
+				assemblyName, AssemblyBuilderAccess.Run);
+
+		module = assembly.DefineDynamicModule("module1");
+		
+	    tb = module.DefineType("class1", 
+							   TypeAttributes.Public);
+	}
+
+	[Test]
+	public void TestProperties () {
+
+		FieldBuilder propField = tb.DefineField("propField",
+												typeof(int),
+												FieldAttributes.Private);
+
+		PropertyBuilder property = 
+			tb.DefineProperty ("prop", PropertyAttributes.HasDefault, typeof (int), new Type [0] { });
+		property.SetConstant (44);
+
+		MethodBuilder propertyGet = tb.DefineMethod("GetProp",
+													MethodAttributes.Public,
+													typeof(int),
+													new Type[] { });
+
+		{
+			ILGenerator il = propertyGet.GetILGenerator();
+
+			il.Emit(OpCodes.Ldarg_0);
+			il.Emit(OpCodes.Ldfld, propField);
+			il.Emit(OpCodes.Ret);
+		}
+
+		MethodBuilder propertySet = tb.DefineMethod("SetProp",
+													MethodAttributes.Public,
+													null,
+													new Type[] { typeof(int) });
+		{
+			ILGenerator il = propertySet.GetILGenerator();
+
+			il.Emit(OpCodes.Ldarg_0);
+			il.Emit(OpCodes.Ldarg_1);
+			il.Emit(OpCodes.Stfld, propField);
+			il.Emit(OpCodes.Ret);
+		}
+
+		property.SetGetMethod(propertyGet);
+		property.SetSetMethod(propertySet);
+
+		Type t = tb.CreateType ();
+
+		PropertyInfo[] props = t.GetProperties (BindingFlags.Public|BindingFlags.Instance);
+		AssertEquals (1, props.Length);
+
+		PropertyInfo p = t.GetProperty ("prop");
+
+		AssertEquals (PropertyAttributes.HasDefault, p.Attributes);
+		AssertEquals (true, p.CanRead);
+		AssertEquals (true, p.CanWrite);
+		AssertEquals ("prop", p.Name);
+		AssertEquals (MemberTypes.Property, p.MemberType);
+		AssertEquals (typeof (int), p.PropertyType);
+		MethodInfo[] methods = p.GetAccessors ();
+		AssertEquals (2, methods.Length);
+		AssertNotNull (p.GetGetMethod ());
+		AssertNotNull (p.GetSetMethod ());
+
+		object o = Activator.CreateInstance (t);
+		p.SetValue (o, 42, null);
+		AssertEquals (42, p.GetValue (o, null));
+	}
+}
+}