[svn] r6880: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests: Content/Class1-2.n Tests.n

[pbludov]

Log:
Some tests to be fixed.

Author: pbludov
Date: Mon Nov 13 07:49:57 2006
New Revision: 6880

Modified:
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Content/Class1-2.n
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Tests.n

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Content/Class1-2.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Content/Class1-2.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Content/Class1-2.n	Mon Nov 13 07:49:57 2006
@@ -6,6 +6,17 @@
 {
   partial class Class1
   {
+    public this(_ : XStruct) /*CtorArg:-5*/
+    {
+    }
+
+    m1(v : TestVariant2) : object
+    {
+    | AValue                       => v;
+    | BValue                       => v;
+    | CValue(sv) /*ArgPattern:-8*/ => sv;
+    }
+
     p1 : int * list[string * XStruct] /*TupleProp:-5*/
     {
         get { (0, [("str", XStruct())]) } 

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Tests.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Tests.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/Tests/Tests.n	Mon Nov 13 07:49:57 2006
@@ -453,5 +453,37 @@
       WriteLine(result.Text);
       Assert.AreEqual (result.Text.Split('\n')[0], "internal sealed struct XStruct");
     }
+
+    [Test]
+    public QuickTip_CtorArg_FIXME() : void
+    {
+      def file        = FilePath2;
+      def (line, col) = ReadLocation(file, "CtorArg");
+
+      def result = _project.GetQuickTipInfo(file, line, col);
+
+      // PB061113: Ýòîò òåñò ôàéëèò èç-çà òîãî, ÷òî method.Ast.header.Location
+      // âêëþ÷àåò â ñåáÿ òîëüêî ñëîâî "this". À ïàðàìåòðû êîíñòðóêòîðà âûïàäàþò.
+      //
+      Assert.IsNotNull(result, "result is null");
+      WriteLine(result.Text);
+      Assert.AreEqual (result.Text.Split('\n')[0], "internal sealed struct XStruct");
+    }
+
+    [Test]
+    public QuickTip_ArgPattern_FIXME() : void
+    {
+      def file        = FilePath2;
+      def (line, col) = ReadLocation(file, "ArgPattern");
+
+      def result = _project.GetQuickTipInfo(file, line, col);
+
+      // PB061113: Õç ÷òî ïðîèñõîäèò, íî åñëè ó ïàòòåðíà åñòü ïàðàìåòðû, òî íåò ëîêåéøåíà.
+      // Åñëè ïàðàìåòðîâ íåò, òî âñ¸ çàìå÷àòåëüíî.
+      //
+      Assert.IsNotNull(result, "result is null");
+      WriteLine(result.Text);
+      Assert.AreEqual (result.Text.Split('\n')[0], "internal sealed variant TestVariant2.CValue");
+    }
   }
 }