2007-01-04 Jonathan Pobst <[email protected]>

	* CommonDialogTest.cs, CursorTest.cs, ErrorProviderTest.cs,
	HelpProviderTest.cs: Add tests for Tag properties.

	* LinkAreaTest.cs: Add test for ToString.

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

mcs/class/Managed.Windows.Forms/ChangeLog

@@ -1,3 +1,7 @@
+2007-01-04  Jonathan Pobst  <[email protected]>
+
+	* System.Windows.Forms_test.dll: Add LinkAreaTest.cs and HelpProviderTest.cs.
+
 2006-12-30  Chris Toshok  <[email protected]>
 
 	* Makefile (TEST_HARNESS_LOCAL_EXCLUDES): exclude Interactive

mcs/class/Managed.Windows.Forms/System.Windows.Forms_test.dll.sources

@@ -42,8 +42,10 @@ System.Windows.Forms/EventArgsTest.cs
 System.Windows.Forms/GridColumnStylesCollectionTest.cs
 System.Windows.Forms/GridTableStylesCollectionTest.cs
 System.Windows.Forms/GroupBoxTest.cs
+System.Windows.Forms/HelpProviderTest.cs
 System.Windows.Forms/ImageListTest.cs
 System.Windows.Forms/LabelTest.cs
+System.Windows.Forms/LinkAreaTest.cs
 System.Windows.Forms/ListControlTest.cs
 System.Windows.Forms/ListBoxEventTest.cs
 System.Windows.Forms/ListBoxTest.cs

mcs/class/Managed.Windows.Forms/Test/System.Windows.Forms/ChangeLog

@@ -1,3 +1,10 @@
+2007-01-04  Jonathan Pobst  <[email protected]>
+
+	* CommonDialogTest.cs, CursorTest.cs, ErrorProviderTest.cs,
+	HelpProviderTest.cs: Add tests for Tag properties.
+
+	* LinkAreaTest.cs: Add test for ToString.
+
 2007-01-03  Gert Driesen  <[email protected]>
 
 	* ControlTest.cs: Enabled tests after DefaultFont change. Ignore test

mcs/class/Managed.Windows.Forms/Test/System.Windows.Forms/CommonDialogsTest.cs

@@ -270,6 +270,33 @@ namespace MonoTests.System.Windows.Forms
 			
 			fbd.RootFolder = (Environment.SpecialFolder)12;
 		}
+
+#if NET_2_0
+		[Test]
+		public void CommonDialogPropertyTag ()
+		{
+			MyDialog md = new MyDialog ();
+			object s = "MyString";
+			
+			Assert.AreEqual (null, md.Tag, "A1");
+			
+			md.Tag = s;
+			Assert.AreSame (s, md.Tag, "A2");
+		}
+		
+		private class MyDialog : CommonDialog
+		{
+			public override void Reset ()
+			{
+				throw new Exception ("The method or operation is not implemented.");
+			}
+
+			protected override bool RunDialog (IntPtr hwndOwner)
+			{
+				throw new Exception ("The method or operation is not implemented.");
+			}
+		}
+#endif
 	}
 }
 

mcs/class/Managed.Windows.Forms/Test/System.Windows.Forms/CursorTest.cs

@@ -25,5 +25,19 @@ namespace MonoTests.System.Windows.Forms
 
 			new Cursor (typeof (CursorTest).Assembly.GetManifestResourceStream ("a.cur"));
 		}
+
+#if NET_2_0
+		[Test]
+		public void CursorPropertyTag ()
+		{
+			Cursor md = Cursor.Current;
+			object s = "MyString";
+
+			Assert.AreEqual (null, md.Tag, "A1");
+
+			md.Tag = s;
+			Assert.AreSame (s, md.Tag, "A2");
+		}
+#endif
 	}
 }

mcs/class/Managed.Windows.Forms/Test/System.Windows.Forms/ErrorProviderTest.cs

@@ -100,5 +100,19 @@ namespace MonoTests.System.Windows.Forms
 			Assert.AreEqual (2, myErrorProvider.GetIconPadding (myForm), "#getset3");
 			myForm.Dispose ();
 		}
+
+#if NET_2_0
+		[Test]
+		public void ErrorProviderPropertyTag ()
+		{
+			ErrorProvider md = new ErrorProvider ();
+			object s = "MyString";
+
+			Assert.AreEqual (null, md.Tag, "A1");
+
+			md.Tag = s;
+			Assert.AreSame (s, md.Tag, "A2");
+		}
+#endif
 	}
 }

mcs/class/Managed.Windows.Forms/Test/System.Windows.Forms/HelpProviderTest.cs

@@ -0,0 +1,25 @@
+using System;
+using NUnit.Framework;
+using System.Windows.Forms;
+using System.Drawing;
+
+namespace MonoTests.System.Windows.Forms
+{
+	[TestFixture]
+	public class HelpProviderTest
+	{	
+#if NET_2_0
+		[Test]
+		public void HelpProviderPropertyTag ()
+		{
+			HelpProvider md = new HelpProvider ();
+			object s = "MyString";
+
+			Assert.AreEqual (null, md.Tag, "A1");
+
+			md.Tag = s;
+			Assert.AreSame (s, md.Tag, "A2");
+		}
+#endif
+	}
+}

mcs/class/Managed.Windows.Forms/Test/System.Windows.Forms/LinkAreaTest.cs

@@ -0,0 +1,26 @@
+using System;
+using NUnit.Framework;
+using System.Windows.Forms;
+using System.Drawing;
+
+namespace MonoTests.System.Windows.Forms
+{
+	[TestFixture]
+	public class LinkAreaTest
+	{	
+#if NET_2_0
+		[Test]
+		public void LinkAreaToString ()
+		{
+			LinkArea la = new LinkArea ();
+			Assert.AreEqual ("{Start=0, Length=0}", la.ToString (), "A1");
+
+			la = new LinkArea (0, 0);
+			Assert.AreEqual ("{Start=0, Length=0}", la.ToString (), "A2");
+
+			la = new LinkArea (4, 75);
+			Assert.AreEqual ("{Start=4, Length=75}", la.ToString (), "A3");		
+		}
+#endif
+	}
+}